[LON-CAPA-cvs] cvs: loncom(version_1_1_X) /interface lonparmset.pm

[albertel]

albertel		Tue Dec  9 17:40:46 2003 EDT

  Modified files:              (Branch: version_1_1_X)
    /loncom/interface	lonparmset.pm 
  Log:
  - backport 1.142
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.139 loncom/interface/lonparmset.pm:1.139.2.1
--- loncom/interface/lonparmset.pm:1.139	Fri Nov 21 14:54:42 2003
+++ loncom/interface/lonparmset.pm	Tue Dec  9 17:40:46 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.139 2003/11/21 19:54:42 albertel Exp $
+# $Id: lonparmset.pm,v 1.139.2.1 2003/12/09 22:40:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1614,10 +1614,12 @@
                              'default_enrollment_end_date',
                              );
 	foreach my $parameter (sort(keys(%values))) {
-	    if (! $descriptions{$parameter}) {
-                $descriptions{$parameter}=$parameter;
-                push(@Display_Order,$parameter);
-	    }
+            unless ($parameter =~ m/^internal\./) {
+                if (! $descriptions{$parameter}) {
+                    $descriptions{$parameter}=$parameter;
+                    push(@Display_Order,$parameter);
+                }
+            }
 	}
         foreach my $parameter (@Display_Order) {
             my $description = $descriptions{$parameter};