--- loncom/interface/lonparmset.pm 2006/11/15 22:33:13 1.346 +++ loncom/interface/lonparmset.pm 2006/11/20 21:04:44 1.347 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.346 2006/11/15 22:33:13 banghart Exp $ +# $Id: lonparmset.pm,v 1.347 2006/11/20 21:04:44 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3188,15 +3188,9 @@ ENDMAINFORMHEAD } ### Set portfolio metadata sub output_row { - my ($r, $field_name, $field_text, $added_flag, $alt_row) = @_; + my ($r, $field_name, $field_text, $added_flag) = @_; my $row_class; - if ($alt_row) { - $row_class = ' class="LC_metadata_light" '; - } else { - $row_class = ' class="LC_metadata_dark" '; - } 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)) { @@ -3204,10 +3198,11 @@ sub output_row { $values = ''; } if (!($options =~ /deleted/)) { - $output = ""; + $output = &Apache::loncommon::start_data_table_row(); $output .= ''.$field_text.':'; + # $output .= ''.$field_text.':'; $output .= ''; - $output .= "\n"; + $output .= &Apache::loncommon::end_data_table_row(); my @options= ( ['active', 'Show to student'], ['onlyone','Student may select only one choice'], ['stuadd', 'Student may type choices']); @@ -3216,9 +3211,11 @@ sub output_row { } foreach my $opt (@options) { my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ; - $output .= ''.(' ' x 5).' '; + $output .= &Apache::loncommon::end_data_table_row(); } } @@ -3402,11 +3399,11 @@ sub setrestrictmeta { # Now get possible added metadata fields my $added_metadata_fields = &get_added_meta_fieldnames(\%metadata_fields); my $row_alt = 1; - $output .= ''; + $output .= &Apache::loncommon::start_data_table(); foreach my $field (sort(keys(%metadata_fields))) { if ($field ne 'courserestricted') { $row_alt = $row_alt ? 0 : 1; - $output.= &output_row($r, $field, $metadata_fields{$field}, undef, $row_alt); + $output.= &output_row($r, $field, $metadata_fields{$field}); } } my $added_flag = 1; @@ -3414,7 +3411,7 @@ sub setrestrictmeta { $row_alt = $row_alt ? 0 : 1; $output.= &output_row($r, $field, $$added_metadata_fields{$field},$added_flag, $row_alt); } - $output .= "
"; + $output .= &Apache::loncommon::end_data_table(); $r->print(< $output