loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

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

-version 1.46, 2008/07/02 21:10:41
+version 1.48.2.1, 2008/09/20 01:57:50
  Line 170  use DateTime::TimeZone;
  require Exporter;
  our @ISA = qw (Exporter);
- our @EXPORT = qw(mt mtn ns);
+ our @EXPORT = qw(mt mtn ns mt_user);
  # ========================================================= The language handle
  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?
  sub current_language {
- Line 279  sub gettimezone {
+ Line 300  sub gettimezone {
                  $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 (DateTime::TimeZone->is_valid_name($timezone)) {
- Line 293  sub locallocaltime {
+ Line 326  sub locallocaltime {
      if (!defined($thistime) || $thistime eq '') {
  	return &mt('Never');
      }
+     if (($thistime < 0) || ($thistime eq 'NaN')) {
+         &Apache::lonnet::logthis("Unexpected time (negative or NaN) '$thistime' passed to lonlocal::locallocaltime");
+         return &mt('Never');
+     }
+     if ($thistime !~ /^\d+$/) {
+         &Apache::lonnet::logthis("Unexpected non-numeric time '$thistime' passed to lonlocal::locallocaltime");
+         return &mt('Never');
+     }
      my $dt = DateTime->from_epoch(epoch => $thistime)
                       ->set_time_zone(&gettimezone());

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

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