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

Diff for /loncom/localize/lonlocal.pm between versions 1.43 and 1.46

version 1.43, 2008/01/29 13:26:09 version 1.46, 2008/07/02 21:10:41
Line 165  use Apache::localize; Line 165  use Apache::localize;
 use locale;  use locale;
 use POSIX qw(locale_h strftime);  use POSIX qw(locale_h strftime);
 use DateTime();  use DateTime();
   use DateTime::TimeZone;
   
 require Exporter;  require Exporter;
   
Line 182  sub mt (@) { Line 183  sub mt (@) {
 #    print LOG (@_[0]."\n");  #    print LOG (@_[0]."\n");
 #    close(LOG);  #    close(LOG);
     if ($lh) {      if ($lh) {
  return $lh->maketext(@_);          if ($_[0] eq '') {
               if (wantarray) {
                   return @_;
               } else {
                   return $_[0];
               }
           } else {
               return $lh->maketext(@_);
           }
     } else {      } else {
  if (wantarray) {   if (wantarray) {
     return @_;      return @_;
Line 259  sub get_language_handle { Line 268  sub get_language_handle {
   
 # ========================================================== Localize localtime  # ========================================================== Localize localtime
 sub gettimezone {  sub gettimezone {
     my ($time) = @_;      my $timezone; 
     if ($Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'}) {      if ($Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'}) {
  return $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'};          $timezone = $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.timezone'};    
       } elsif ($Apache::lonnet::env{'request.course.id'} ne '') {
           my $cdom = $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.domain'};
           if ($cdom ne '') {
               my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);
               if ($domdefaults{'timezone_def'} ne '') {
                   $timezone = $domdefaults{'timezone_def'};
               }
           }
       }
       if ($timezone ne '') {
           if (DateTime::TimeZone->is_valid_name($timezone)) {
               return $timezone;
           }
     }      }
     return 'local';      return 'local';
 }  }
Removed from v.1.43  
changed lines
  Added in v.1.46

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