Diff for /loncom/localize/lonlocal.pm between versions 1.47 and 1.48.2.1

version 1.47, 2008/07/02 21:31:32 version 1.48.2.1, 2008/09/20 01:57:50
Line 170  use DateTime::TimeZone; Line 170  use DateTime::TimeZone;
 require Exporter;  require Exporter;
   
 our @ISA = qw (Exporter);  our @ISA = qw (Exporter);
 our @EXPORT = qw(mt mtn ns);  our @EXPORT = qw(mt mtn ns mt_user);
   
 # ========================================================= The language handle  # ========================================================= The language handle
   
Line 201  sub mt (@) { Line 201  sub mt (@) {
     }      }
 }  }
   
   sub mt_user {
       my ($user_lh,@what) = @_;
       if ($user_lh) {
           if ($what[0] eq '') {
               if (wantarray) {
                   return @what;
               } else {
                   return $what[0];
               }
           } else {
               return $user_lh->maketext(@what);
           }
       } else {
           if (wantarray) {
               return @what;
           } else {
               return $what[0];
           }
       }
   }
   
 # ============================================================== What language?  # ============================================================== What language?
   
 sub current_language {  sub current_language {
Line 279  sub gettimezone { Line 300  sub gettimezone {
                 $timezone = $domdefaults{'timezone_def'};                  $timezone = $domdefaults{'timezone_def'};
             }              }
         }          }
       } elsif ($Apache::lonnet::env{'request.role.domain'} ne '') {
           my %uroledomdefs = 
               &Apache::lonnet::get_domain_defaults($Apache::lonnet::env{'request.role.domain'});
           if ($uroledomdefs{'timezone_def'} ne '') {
               $timezone = $uroledomdefs{'timezone_def'};
           }
       } elsif ($Apache::lonnet::env{'user.domain'} ne '') {
           my %udomdefaults = 
               &Apache::lonnet::get_domain_defaults($Apache::lonnet::env{'user.domain'});
           if ($udomdefaults{'timezone_def'} ne '') {
               $timezone = $udomdefaults{'timezone_def'};
           }
     }      }
     if ($timezone ne '') {      if ($timezone ne '') {
         if (DateTime::TimeZone->is_valid_name($timezone)) {          if (DateTime::TimeZone->is_valid_name($timezone)) {

Removed from v.1.47  
changed lines
  Added in v.1.48.2.1


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