--- loncom/interface/statistics/lonstudentsubmissions.pm 2008/10/30 17:45:25 1.50 +++ loncom/interface/statistics/lonstudentsubmissions.pm 2009/12/16 13:01:01 1.55 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentsubmissions.pm,v 1.50 2008/10/30 17:45:25 bisitz Exp $ +# $Id: lonstudentsubmissions.pm,v 1.55 2009/12/16 13:01:01 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -265,9 +265,10 @@ sub prepare_html_output { $headers{'response'} .= ''. &mt('Response [_1]',$responses->[$i]).''; - $headers{'student'}.= ''.join('', + $headers{'student'}.= ''. + join('', @headers). - ''; + ''; } } if ($part_span == 0) { @@ -284,7 +285,7 @@ sub prepare_html_output { $headers{'part'} .= qq{$tmpname}; $nonempty_part_headers = 1; } else { - $headers{'part'} .= qq{ }; + $headers{'part'} .= qq{ }; } $prob_span += $part_span; } @@ -501,7 +502,7 @@ sub html_essay_results { if (defined($respid)) { $id .= ' '.$respid; } - $Str .= ''.$id.''.(' 'x4); + $Str .= ''.$id.''.(' 'x4); } # shift(@$headers); # Get rid of the Submission header @@ -510,11 +511,11 @@ sub html_essay_results { $correct = &html_format_essay_sub($response->{'Correct'}); shift(@$headers); } - $Str .= ''. + $Str .= ''. join('', map { (' 'x4).&mt($_.': [_1]',$response->{$_}); - } @$headers).''; + } @$headers).''; if (@$headers || ! $single_response) { $Str .= '
'; } @@ -567,7 +568,7 @@ sub html_non_essay_results { if ($resptype eq 'radiobutton') { $submission = &HTML::Entities::encode($submission,'<>&"'); $submission =~ s/=([^=])$//; - $submission = ''.$submission.''; + $submission = ''.$submission.''; } $response->{'Submission'} = $submission; # @@ -930,11 +931,13 @@ sub prepare_csv_output { time.'_'.rand(1000000000).'.csv'; unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) { $r->log_error("Couldn't open $filename for output $!"); - $r->print('
' - .&mt('Problems occurred in writing the CSV file. ' - .'This error has been logged. ' - .'Please alert your LON-CAPA administrator.') - .'
'); + $r->print( + '

' + .&mt('Problems occurred in writing the CSV file.') + .' '.&mt('This error has been logged.') + .' '.&mt('Please alert your LON-CAPA administrator.') + .'

' + ); $outputfile = undef; } # @@ -1095,7 +1098,6 @@ sub CreateInterface { $Str .= ''.&mt('Sections').''; $Str .= ''.&mt('Groups').''; $Str .= ''.&mt('Access Status').''; -# $Str .= ''.&mt('Output as [_1]',$output_selector).''; $Str .= ''.&mt('Options').''; $Str .= ''.&mt('Output Format').''; $Str .= &Apache::loncommon::end_data_table_header_row(); @@ -1145,14 +1147,14 @@ sub CreateInterface { # $Str .= ''. '
'. + &mt('Show problem').' '.$prob_checkbox.'
'. '
'. + &mt('Show correct answers').' '.$ans_checkbox.'
'. '
'. '
'. ''; # @@ -1166,6 +1168,7 @@ sub CreateInterface { '') .'

'; + $Str .= '

'; ## return $Str; }