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

raeburn lon-capa-cvs@mail.lon-capa.org
Fri, 05 Dec 2003 16:18:45 -0000


raeburn		Fri Dec  5 11:18:45 2003 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  Suppress display of all parameters designated as "internal", e.g., internal.coursecode etc.  Internal parameters are used presently to set automated enrollment parameters including mapping of courses to institutional course classifications.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.141 loncom/interface/lonparmset.pm:1.142
--- loncom/interface/lonparmset.pm:1.141	Thu Dec  4 16:45:18 2003
+++ loncom/interface/lonparmset.pm	Fri Dec  5 11:18:45 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.141 2003/12/04 21:45:18 sakharuk Exp $
+# $Id: lonparmset.pm,v 1.142 2003/12/05 16:18:45 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1616,10 +1616,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};