--- loncom/interface/lonparmset.pm 2006/10/16 10:45:24 1.344 +++ loncom/interface/lonparmset.pm 2006/11/15 20:13:43 1.345 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.344 2006/10/16 10:45:24 foxr Exp $ +# $Id: lonparmset.pm,v 1.345 2006/11/15 20:13:43 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3190,6 +3190,7 @@ ENDMAINFORMHEAD sub output_row { my ($r, $field_name, $field_text, $added_flag) = @_; my $output; + $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'}; if (!defined($options)) { @@ -3197,9 +3198,10 @@ sub output_row { $values = ''; } if (!($options =~ /deleted/)) { - $output.=''.$field_text.':'; - $output.='
'; - + $output = ""; + $output .= ''.$field_text.':'; + $output .= ''; + $output .= "\n"; my @options= ( ['active', 'Show to student'], ['onlyone','Student may select only one choice'], ['stuadd', 'Student may type choices']); @@ -3208,10 +3210,11 @@ sub output_row { } foreach my $opt (@options) { my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ; - $output.=(' 'x5).' '."\n"; } + } return ($output); } @@ -3221,7 +3224,11 @@ sub order_meta_fields { my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; $r->print(&Apache::loncommon::start_page('Order Metadata Fields')); - $r->print(&Apache::lonhtmlcommon::breadcrumbs('Order Metadata Fields')); + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"/adm/parmset?action=setrestrictmeta", + text=>"Restrict Metadata"}, + {text=>"Order Metadata"}); + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Order Metadata')); if ($env{'form.storeorder'}) { my $newpos = $env{'form.newpos'} - 1; my $currentpos = $env{'form.currentpos'} - 1; @@ -3388,6 +3395,7 @@ sub setrestrictmeta { my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio'); # Now get possible added metadata fields my $added_metadata_fields = &get_added_meta_fieldnames(\%metadata_fields); + $output .= ""; foreach my $field (sort(keys(%metadata_fields))) { if ($field ne 'courserestricted') { $output.= &output_row($r, $field, $metadata_fields{$field}); @@ -3397,6 +3405,7 @@ sub setrestrictmeta { foreach my $field (sort(keys(%$added_metadata_fields))) { $output.= &output_row($r, $field, $$added_metadata_fields{$field},$added_flag); } + $output .= "
"; $r->print(<