--- loncom/interface/lonparmset.pm 2005/10/06 22:05:56 1.258 +++ loncom/interface/lonparmset.pm 2005/10/26 21:42:10 1.262 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.258 2005/10/06 22:05:56 albertel Exp $ +# $Id: lonparmset.pm,v 1.262 2005/10/26 21:42:10 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2703,7 +2703,7 @@ ENDMAINFORMHEAD permission => $parm_permission, }, { text => 'Set Portfolio Metadata', - action => 'setinstmeta', + action => 'setrestrictmeta', permission => $parm_permission, }, { text => 'Set/Modify Resource Parameters - Helper Mode', @@ -2753,38 +2753,40 @@ ENDMAINFORMHEAD sub output_row { my ($r, $field_name, $field_text) = @_; my $output; - my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'}; - my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'}; + my $options=$env{'course.'.$env{'request.course.id'}.'.'.$field_name.'.options'}; + my $values=$env{'course.'.$env{'request.course.id'}.'.'.$field_name.'.values'}; my $checked; unless (defined($options)) { $options = 'active,stuadd'; - $values = 'Type a list of values separated by commas.'; + $values = ''; } + $output.=''.$field_text.':'; + $output.='
'; if ($options =~ m/active/) { $checked = ' checked="checked" '; } else { $checked = ' '; } - $output.='
'; - $output.=''.$field_text.''; - $output.=''; + $output.='     '; + $output.='Show to student
'; 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); } -sub setinstmeta { + +sub setrestrictmeta { my ($r)=@_; my $next_meta; my $output; @@ -2792,16 +2794,16 @@ sub setinstmeta { 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'}.'.metadata.'}; + my $key_base = $env{'course.'.$env{'request.course.id'}.'.'}; my $save_field = ''; - if ($env{'form.instmeta'}) { + if ($env{'form.restrictmeta'}) { foreach my $field (sort(keys(%env))) { if ($field=~m/^form.(.+)_(.+)$/) { my $options; @@ -2818,7 +2820,7 @@ sub setinstmeta { if ($env{'form.'.$meta_field.'_active'}) { $options.='active,'; } - my $name = 'metadata.'.$save_field; + my $name = $save_field; $put_result = &Apache::lonnet::put('environment', {'metadata.'.$meta_field.'.options'=>$options, 'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'}, @@ -2826,28 +2828,19 @@ sub setinstmeta { } } } - } &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'; @@ -3024,6 +3017,7 @@ Main handler. Calls &assessparms and &c ################################################## # use Data::Dumper; + sub handler { my $r=shift; @@ -3084,10 +3078,10 @@ sub handler { &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview', text=>"Overview Mode"}); &overview($r); - } elsif ($env{'form.action'} eq 'setinstmeta' && $parm_permission) { - &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setinstmeta', - text=>"Portfolio Metadata"}); - &setinstmeta($r); + } elsif ($env{'form.action'} eq 'setrestrictmeta' && $parm_permission) { + &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setrestrictmeta', + text=>"Restrict Metadata"}); + &setrestrictmeta($r); } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) { &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview', text=>"Overview Mode"});