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

[raeburn]

raeburn		Mon Jul 10 13:38:00 2017 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - Sanity checking
  - Title for scoreformat parameter
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.574 loncom/interface/lonparmset.pm:1.575
--- loncom/interface/lonparmset.pm:1.574	Mon Jul 10 12:48:41 2017
+++ loncom/interface/lonparmset.pm	Mon Jul 10 13:37:59 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.574 2017/07/10 12:48:41 raeburn Exp $
+# $Id: lonparmset.pm,v 1.575 2017/07/10 13:37:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1939,7 +1939,7 @@
         'retrypartial' => 'tries',
         'discussvote'  => 'misc',
         'examcode' => 'high_level_randomization', 
-    );    
+    );
 }
 
 # Adds the given parameter name to an array of arrays listing all parameters for each category.
@@ -2033,6 +2033,7 @@
         $r->print('<div class="LC_Box LC_400Box">'
                  .'<h4 class="LC_hcell">'.&mt($categories{$key}).'</h4>'."\n");
         foreach my $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) {
+            next if ($tempkey eq '');
             $r->print('<span class="LC_nobreak">'
                      .'<label><input type="checkbox" name="pscat" '
                      .'value="'.$tempkey.'" ');
@@ -6002,6 +6003,7 @@
     close($config);
     $standard_parms{'int_pos'}      = 'Positive Integer';
     $standard_parms{'int_zero_pos'} = 'Positive Integer or Zero';
+    $standard_parms{'scoreformat'}  = 'Format for display of score';
 }
 
 # Returns a parameter title for standard parameters, the name for others.