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

[banghart]

banghart		Mon Oct  3 15:10:24 2005 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  	Add the 'active' flag to the display and metadata env value.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.255 loncom/interface/lonparmset.pm:1.256
--- loncom/interface/lonparmset.pm:1.255	Thu Sep 29 20:27:20 2005
+++ loncom/interface/lonparmset.pm	Mon Oct  3 15:10:22 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.255 2005/09/30 00:27:20 banghart Exp $
+# $Id: lonparmset.pm,v 1.256 2005/10/03 19:10:22 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2760,14 +2760,20 @@
         $options = 'active,stuadd';
         $values = 'Type a list of values separated by commas.';
     }
-    $output.='<tr><td><strong>'.$field_text.'</strong></td>';
+    if ($options =~ m/active/) {
+        $checked = ' CHECKED ';
+    } else {
+        $checked = '  ';
+    }
+    $output.='<tr><td><center><input type="checkbox" name="'.$field_name.'_active" value="yes"'.$checked.' /></center></td>';
+    $output.='<td><strong>'.$field_text.'</strong></td>';
     $output.='<td><input name="'.$field_name.'_values" type="text" value="'.$values.'" /></td>';
     if ($options =~ m/onlyone/) {
         $checked = ' CHECKED ';
     } else {
         $checked = '  ';
     }
-    $output.='<td><center><input type="checkbox" name="'.$field_name.'_onlyone"" value="yes"'.$checked.' /></center></td>';
+    $output.='<td><center><input type="checkbox" name="'.$field_name.'_onlyone" value="yes"'.$checked.' /></center></td>';
     if ($options =~ m/stuadd/) {
         $checked = ' CHECKED ';
     } else {
@@ -2836,7 +2842,7 @@
         
         <p>
         <table border=2>
-        <tr><th>Metadata Item</th><th>Values</th><th>Only One Choice</th><th>Student Can Add Choices</th></tr>
+        <tr><th>Active</th><th>Metadata Item</th><th>Values</th><th>Only One Choice</th><th>Student Can Add Choices</th></tr>
         $output
         </table>
         <input type="submit" name="instmeta" value="Update Portfolio Metadata">