--- loncom/interface/lonparmset.pm 2006/11/15 20:13:43 1.345 +++ loncom/interface/lonparmset.pm 2006/11/15 22:33:13 1.346 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.345 2006/11/15 20:13:43 banghart Exp $ +# $Id: lonparmset.pm,v 1.346 2006/11/15 22:33:13 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3188,9 +3188,15 @@ ENDMAINFORMHEAD } ### Set portfolio metadata sub output_row { - my ($r, $field_name, $field_text, $added_flag) = @_; + my ($r, $field_name, $field_text, $added_flag, $alt_row) = @_; + my $row_class; + if ($alt_row) { + $row_class = ' class="LC_metadata_light" '; + } else { + $row_class = ' class="LC_metadata_dark" '; + } my $output; - $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)) { @@ -3198,9 +3204,9 @@ sub output_row { $values = ''; } if (!($options =~ /deleted/)) { - $output = ""; - $output .= ''.$field_text.':'; - $output .= ''; + $output = ""; + $output .= ''.$field_text.':'; + $output .= ''; $output .= "\n"; my @options= ( ['active', 'Show to student'], ['onlyone','Student may select only one choice'], @@ -3210,7 +3216,7 @@ sub output_row { } foreach my $opt (@options) { my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ; - $output .= ''.(' ' x 5).'