--- loncom/interface/lonparmset.pm	2005/09/30 00:27:20	1.255
+++ loncom/interface/lonparmset.pm	2005/10/06 22:05:56	1.258
@@ -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.258 2005/10/06 22:05:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2760,16 +2760,22 @@ sub output_row {
         $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="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 ';
+        $checked = ' 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 ';
+        $checked = ' checked="checked" ';
     } else {
         $checked = ' ';
     }
@@ -2823,20 +2829,17 @@ sub setinstmeta {
         
     }
     &Apache::lonnet::coursedescription($env{'request.course.id'});
-    my %metadata_fields = &Apache::lonmeta::fieldnames();
-   
-    foreach my $field (sort(keys (%metadata_fields))) {
-        
-        if ($field =~ m/metadata/) {
-            $output.= &output_row($r, $field, $metadata_fields{$field});
-        }
+    my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');
+    
+    foreach my $field (sort(keys(%metadata_fields))) {
+	$output.= &output_row($r, $field, $metadata_fields{$field});
     }
     $r->print(<<ENDenv);       
         <form method="post" action="/adm/parmset?action=setinstmeta" name="form">
         
         <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">