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.47 and 1.50

-version 1.47, 2008/07/02 21:31:32
+version 1.50, 2008/09/19 12:31:06
  Line 166  use locale;
  use POSIX qw(locale_h strftime);
  use DateTime();
  use DateTime::TimeZone;
+ use DateTime::Locale;
  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 (@) {
+ Line 202  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 301  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 345  sub locallocaltime {
+ Line 379  sub locallocaltime {
      }
  }
+ sub getdatelocale {
+     my ($datelocale,$locale_obj);
+     if ($Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.datelocale'}) {
+         $datelocale = $Apache::lonnet::env{'course.'.$Apache::lonnet::env{'request.course.id'}.'.datelocale'};
+     } 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{'datelocale_def'} ne '') {
+                 $datelocale = $domdefaults{'datelocale_def'};
+             }
+         }
+     } elsif ($Apache::lonnet::env{'user.domain'} ne '') {
+         my %udomdefaults = &Apache::lonnet::get_domain_defaults($Apache::lonnet::env{'user.domain'});
+         if ($udomdefaults{'datelocale_def'} ne '') {
+             $datelocale = $udomdefaults{'datelocale_def'};
+         }
+     }
+     if ($datelocale ne '') {
+         eval {
+             $locale_obj = DateTime::Locale->load($datelocale);
+         };
+         if (!$@) {
+             if ($locale_obj->id() eq $datelocale) {
+                 return $locale_obj;
+             }
+         }
+     }
+     return $locale_obj;
+ }
  # ==================== Normalize string (reduce fragility in the lexicon files)
  # This normalizes a string to reduce fragility in the lexicon files of

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

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