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.43 and 1.48.2.1

-version 1.43, 2008/01/29 13:26:09
+version 1.48.2.1, 2008/09/20 01:57:50
  Line 165  use Apache::localize;
  use locale;
  use POSIX qw(locale_h strftime);
  use DateTime();
+ 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 182  sub mt (@) {
+ Line 183  sub mt (@) {
  #    print LOG (@_[0]."\n");
  #    close(LOG);
      if ($lh) {
- 	return $lh->maketext(@_);
+         if ($_[0] eq '') {
+             if (wantarray) {
+                 return @_;
+             } else {
+                 return $_[0];
+             }
+         } else {
+             return $lh->maketext(@_);
+         }
      } else {
  	if (wantarray) {
  	    return @_;
- Line 192  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?
  sub current_language {
- Line 259  sub get_language_handle {
+ Line 289  sub get_language_handle {
  # ========================================================== Localize localtime
  sub gettimezone {
-     my ($time) = @_;
+     my $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'};
+             }
+         }
+     } 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)) {
+             return $timezone;
+         }
      }
      return 'local';
  }
- Line 271  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.43
changed lines
	Added in v.1.48.2.1