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

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 31 Jan 2003 22:39:11 -0000


albertel		Fri Jan 31 17:39:11 2003 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Fixes BUG#907, now package defaults are exported to the parmset screen
    and properly used allover
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.321 loncom/lonnet/perl/lonnet.pm:1.322
--- loncom/lonnet/perl/lonnet.pm:1.321	Fri Jan 31 17:12:13 2003
+++ loncom/lonnet/perl/lonnet.pm	Fri Jan 31 17:39:10 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.321 2003/01/31 22:12:13 albertel Exp $
+# $Id: lonnet.pm,v 1.322 2003/01/31 22:39:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3085,9 +3085,12 @@
                       my $unikey='parameter'.$keyroot.'_'.$name;
                       $metathesekeys{$unikey}=1;
                       $metacache{$uri.':'.$unikey.'.part'}=$part;
-                      unless 
-                       (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {
-                         $metacache{$uri.':'.$unikey.'.'.$subp}=$value;
+                      unless (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {
+			  $metacache{$uri.':'.$unikey.'.'.$subp}=$value;
+		      }
+		      if (defined($metacache{$uri.':'.$unikey.'.default'})) {
+			  $metacache{$uri.':'.$unikey}=
+			     $metacache{$uri.':'.$unikey.'.default'}
 		      }
                   }
               }