--- loncom/interface/lonparmset.pm	2003/11/21 18:18:04	1.138
+++ loncom/interface/lonparmset.pm	2003/12/09 22:40:46	1.139.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.138 2003/11/21 18:18:04 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
 #
@@ -131,12 +131,12 @@ sub parmval {
 
 # -------------------------------------------------------- first, check default
 
-    if ($def) { $outpar[11]=$def; $result=11; }
+    if (defined($def)) { $outpar[11]=$def; $result=11; }
 
 # ----------------------------------------------------- second, check map parms
 
     my $thisparm=$parmhash{$symbparm};
-    if ($thisparm) { $outpar[10]=$thisparm; $result=10; }
+    if (defined($thisparm)) { $outpar[10]=$thisparm; $result=10; }
 
 # --------------------------------------------------------- third, check course
 
@@ -1614,10 +1614,12 @@ sub crsenv {
                              '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};