loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.95, 2003/04/05 22:14:40
+version 1.97, 2003/05/03 20:35:43
  Line 1347  sub languagedescription {
      return $language{shift(@_)};
  }
+ # ----------------------------------------------------------- Display Languages
+ # returns a hash with all desired display languages
+ #
+ sub display_languages {
+     my %languages=();
+     if ($ENV{'environment.languages'}) {
+ 	foreach (split(/\s*(\,|\;|\:)\s*/,$ENV{'environment.languages'})) {
+ 	    $languages{$_}=1;
+         }
+     }
+     &get_unprocessed_cgi($ENV{'QUERY_STRING'},['displaylanguage']);
+     if ($ENV{'form.displaylanguage'}) {
+ 	foreach (split(/\s*(\,|\;|\:)\s*/,$ENV{'form.displaylanguage'})) {
+ 	    $languages{$_}=1;
+         }
+     }
+     return %languages;
+ }
  # --------------------------------------------------------------- Copyright IDs
  sub copyrightids {
      return sort(keys(%cprtag));
- Line 1635  Returns: value of designparamter $which
+ Line 1655  Returns: value of designparamter $which
  ##############################################
  sub designparm {
      my ($which,$domain)=@_;
+     if ($ENV{'environment.color.'.$which}) {
+ 	return $ENV{'environment.color.'.$which};
+     }
      $domain=&determinedomain($domain);
      if ($designhash{$domain.'.'.$which}) {
  	return $designhash{$domain.'.'.$which};