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

Diff for /loncom/localize/lonlocal.pm between versions 1.48 and 1.49

version 1.48, 2008/09/13 02:37:29 version 1.49, 2008/09/19 03:27:04
Line 166  use locale; Line 166  use locale;
 use POSIX qw(locale_h strftime);  use POSIX qw(locale_h strftime);
 use DateTime();  use DateTime();
 use DateTime::TimeZone;  use DateTime::TimeZone;
   use DateTime::Locale;
   
 require Exporter;  require Exporter;
   
Line 366  sub locallocaltime { Line 367  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)  # ==================== Normalize string (reduce fragility in the lexicon files)
   
 # This normalizes a string to reduce fragility in the lexicon files of  # This normalizes a string to reduce fragility in the lexicon files of
Removed from v.1.48  
changed lines
  Added in v.1.49

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