--- loncom/interface/lonparmset.pm 2005/10/14 04:25:56 1.259 +++ loncom/interface/lonparmset.pm 2005/10/14 17:05:44 1.260 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.259 2005/10/14 04:25:56 banghart Exp $ +# $Id: lonparmset.pm,v 1.260 2005/10/14 17:05:44 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2760,28 +2760,29 @@ sub output_row { $options = 'active,stuadd'; $values = 'Type a list of values separated by commas.'; } + $output.=''.$field_text.':'; + $output.='
'; if ($options =~ m/active/) { $checked = ' checked="checked" '; } else { $checked = ' '; } - $output.='
'; - $output.=''.$field_text.''; - $output.=''; + $output.='     '; + $output.='Active
'; if ($options =~ m/onlyone/) { $checked = ' checked="checked" '; } else { $checked = ' '; } - $output.='
'; + $output.='     '; + $output.='Student may select only one choice
'; if ($options =~ m/stuadd/) { $checked = ' checked="checked" '; } else { $checked = ' '; } - $output.=''; - - $output.=''; + $output.='     '; + $output.='Student may type choices
'; return ($output); } @@ -2793,11 +2794,11 @@ sub setrestrictmeta { my $put_result; $r->print(&Apache::lonxml::xmlbegin()); $r->print(' - LON-CAPA Set Portfolio Metadata + LON-CAPA Restrict Metadata '); - $r->print(&Apache::loncommon::bodytag('Set Portfolio Metadata')); + $r->print(&Apache::loncommon::bodytag('Restrict Metadata')); $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef, - 'Set Portfolio Metadata')); + 'Restrict Metadata')); my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; my $key_base = $env{'course.'.$env{'request.course.id'}.'.'}; @@ -2827,28 +2828,19 @@ sub setrestrictmeta { } } } - } &Apache::lonnet::coursedescription($env{'request.course.id'}); my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio'); - foreach my $field (sort(keys(%metadata_fields))) { $output.= &output_row($r, $field, $metadata_fields{$field}); } $r->print(< -

- - $output -
ActiveMetadata ItemValuesOnly One ChoiceStudent Can Add Choices
- ENDenv - - $r->print(' '); return 'ok';