Diff for /loncom/localize/lonlocal.pm between versions 1.59 and 1.60.4.2

version 1.59, 2009/05/06 19:25:49 version 1.60.4.2, 2010/12/06 00:35:19
Line 242  sub current_language { Line 242  sub current_language {
 }  }
   
 sub preferred_languages {  sub preferred_languages {
       my $defdom = &Apache::lonnet::default_login_domain();
       foreach my $domtype ($Apache::lonnet::env{'user.domain'},$Apache::lonnet::env{'request.role.domain'},$defdom) {
           next if ($domtype eq '');
           if ($domtype =~ /^\w+ci/) {
               return ($domtype);
           } elsif ($domtype =~ /^(\w+c)itest$/) {
               return ($1.'t');
           } else {
               return ('gci');
           }
       }
     my @languages=();      my @languages=();
     if (($Apache::lonnet::env{'request.role.adv'}) && ($Apache::lonnet::env{'form.languages'})) {      if (($Apache::lonnet::env{'request.role.adv'}) && ($Apache::lonnet::env{'form.languages'})) {
         @languages=(@languages,split(/\s*(\,|\;|\:)\s*/,$Apache::lonnet::env{'form.languages'}));          @languages=(@languages,split(/\s*(\,|\;|\:)\s*/,$Apache::lonnet::env{'form.languages'}));
Line 262  sub preferred_languages { Line 273  sub preferred_languages {
         push(@languages,@browser);          push(@languages,@browser);
     }      }
   
     foreach my $domtype ($Apache::lonnet::env{'user.domain'},$Apache::lonnet::env{'request.role.domain'},      foreach my $domtype ($Apache::lonnet::env{'user.domain'},$Apache::lonnet::env{'request.role.domain'},$defdom) {
                          $Apache::lonnet::perlvar{'lonDefDomain'}) {  
         if ($domtype ne '') {          if ($domtype ne '') {
             my %domdefs = &Apache::lonnet::get_domain_defaults($domtype);              my %domdefs = &Apache::lonnet::get_domain_defaults($domtype);
             if ($domdefs{'lang_def'} ne '') {              if ($domdefs{'lang_def'} ne '') {

Removed from v.1.59  
changed lines
  Added in v.1.60.4.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>