[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Fri Jan  2 22:45:43 2009 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Adding domain defaults for timezone_def and datelocale_def to cached %domdefaults.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.981 loncom/lonnet/perl/lonnet.pm:1.982
--- loncom/lonnet/perl/lonnet.pm:1.981	Sun Dec 21 19:03:10 2008
+++ loncom/lonnet/perl/lonnet.pm	Fri Jan  2 22:45:43 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.981 2008/12/21 19:03:10 raeburn Exp $
+# $Id: lonnet.pm,v 1.982 2009/01/02 22:45:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1231,7 +1231,6 @@
 sub get_domain_defaults {
     my ($domain) = @_;
     my $cachetime = 60*60*24;
-    my ($defauthtype,$defautharg,$deflang,%deftools);
     my ($result,$cached)=&is_cached_new('domdefaults',$domain);
     if (defined($cached)) {
         if (ref($result) eq 'HASH') {
@@ -1245,6 +1244,8 @@
         $domdefaults{'lang_def'} = $domconfig{'defaults'}{'lang_def'}; 
         $domdefaults{'auth_def'} = $domconfig{'defaults'}{'auth_def'};
         $domdefaults{'auth_arg_def'} = $domconfig{'defaults'}{'auth_arg_def'};
+        $domdefaults{'timezone_def'} = $domconfig{'defaults'}{'timezone_def'};
+        $domdefaults{'datelocale_def'} = $domconfig{'defaults'}{'datelocale_def'}
     } else {
         $domdefaults{'lang_def'} = &domain($domain,'lang_def');
         $domdefaults{'auth_def'} = &domain($domain,'auth_def');