--- loncom/interface/lonparmset.pm 2005/10/03 19:10:22 1.256 +++ 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.256 2005/10/03 19:10:22 banghart Exp $ +# $Id: lonparmset.pm,v 1.258 2005/10/06 22:05:56 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2761,7 +2761,7 @@ sub output_row { $values = 'Type a list of values separated by commas.'; } if ($options =~ m/active/) { - $checked = ' CHECKED '; + $checked = ' checked="checked" '; } else { $checked = ' '; } @@ -2769,13 +2769,13 @@ sub output_row { $output.=''.$field_text.''; $output.=''; if ($options =~ m/onlyone/) { - $checked = ' CHECKED '; + $checked = ' checked="checked" '; } else { $checked = ' '; } $output.='
'; if ($options =~ m/stuadd/) { - $checked = ' CHECKED '; + $checked = ' checked="checked" '; } else { $checked = ' '; } @@ -2829,13 +2829,10 @@ 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(<