[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[albertel]

albertel		Wed Jan 28 11:18:29 2004 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - lonparmset expects internal parms to be name internal. not env.internal.
    the env. seems extraneous
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.175 loncom/interface/loncommon.pm:1.176
--- loncom/interface/loncommon.pm:1.175	Mon Jan 19 11:53:34 2004
+++ loncom/interface/loncommon.pm	Wed Jan 28 11:18:29 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.175 2004/01/19 16:53:34 matthew Exp $
+# $Id: loncommon.pm,v 1.176 2004/01/28 16:18:29 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3358,7 +3358,7 @@
     my %SaveHash;
     my %AppHash;
     while (my ($setting,$type) = each(%$Settings)) {
-        my $basename = 'env.internal.'.$prefix.'.'.$setting;
+        my $basename = 'internal.'.$prefix.'.'.$setting;
         my $envname = 'course.'.$courseid.'.'.$basename;
         if (exists($ENV{'form.'.$setting})) {
             # Save this value away
@@ -3403,7 +3403,7 @@
     my ($prefix,$Settings) = @_;
     while (my ($setting,$type) = each(%$Settings)) {
         next if (exists($ENV{'form.'.$setting}));
-        my $envname = 'course.'.$courseid.'.env.internal.'.$prefix.
+        my $envname = 'course.'.$courseid.'.internal.'.$prefix.
             '.'.$setting;
         if (exists($ENV{$envname})) {
             if ($type eq 'scalar') {