[BACK]Return to lonlocal.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / localize

Diff for /loncom/localize/lonlocal.pm between versions 1.50.2.1 and 1.50.4.2

version 1.50.2.1, 2008/12/12 04:29:35 version 1.50.4.2, 2009/09/14 22:34:41
Line 234  sub current_language { Line 234  sub current_language {
 }  }
   
 sub preferred_languages {  sub preferred_languages {
       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 340  sub get_language_handle { Line 341  sub get_language_handle {
   
 # ========================================================== Localize localtime  # ========================================================== Localize localtime
 sub gettimezone {  sub gettimezone {
     my $timezone;       my ($timezone) = @_;
     if ($Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'}) {      if ($timezone ne '') {
         $timezone = $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'};              if (!DateTime::TimeZone->is_valid_name($timezone)) {
     } elsif ($Apache::lonnet::env{'request.course.id'} ne '') {              $timezone = 'local';
         my $cdom = $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.domain'};          }
         if ($cdom ne '') {          return $timezone;
             my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);      }
             if ($domdefaults{'timezone_def'} ne '') {      my $cid = $Apache::lonnet::env{'request.course.id'};
                 $timezone = $domdefaults{'timezone_def'};      if ($cid ne '') {
           if ($Apache::lonnet::env{'course.'.$cid.'.timezone'}) {
               $timezone = $Apache::lonnet::env{'course.'.$cid.'.timezone'};
           } else {
               my $cdom = $Apache::lonnet::env{'course.'.$cid.'.domain'};
               if ($cdom ne '') {
                   my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);
                   if ($domdefaults{'timezone_def'} ne '') {
                       $timezone = $domdefaults{'timezone_def'};
                   }
             }              }
         }          }
     } elsif ($Apache::lonnet::env{'request.role.domain'} ne '') {      } elsif ($Apache::lonnet::env{'request.role.domain'} ne '') {
Line 373  sub gettimezone { Line 383  sub gettimezone {
 }  }
   
 sub locallocaltime {  sub locallocaltime {
     my $thistime=shift;      my ($thistime,$timezone) = @_;
     if (!defined($thistime) || $thistime eq '') {      if (!defined($thistime) || $thistime eq '') {
  return &mt('Never');   return &mt('Never');
     }      }
Line 387  sub locallocaltime { Line 397  sub locallocaltime {
     }      }
   
     my $dt = DateTime->from_epoch(epoch => $thistime)      my $dt = DateTime->from_epoch(epoch => $thistime)
                      ->set_time_zone(&gettimezone());                       ->set_time_zone(&gettimezone($timezone));
     if ((&current_language=~/^en/) || (!$lh)) {      if ((&current_language=~/^en/) || (!$lh)) {
   
  return $dt->strftime("%a %b %e %I:%M:%S %P %Y (%Z)");   return $dt->strftime("%a %b %e %I:%M:%S %P %Y (%Z)");
Removed from v.1.50.2.1  
changed lines
  Added in v.1.50.4.2

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