--- loncom/interface/statistics/lonstudentsubmissions.pm 2008/10/30 17:45:25 1.50 +++ loncom/interface/statistics/lonstudentsubmissions.pm 2008/12/11 14:55:27 1.51 @@ -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.51 2008/12/11 14:55:27 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -265,9 +265,9 @@ sub prepare_html_output { $headers{'response'} .= ''. &mt('Response [_1]',$responses->[$i]).''; - $headers{'student'}.= ''.join('', + $headers{'student'}.= ''.join('', @headers). - ''; + ''; } } if ($part_span == 0) { @@ -501,7 +501,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 +510,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 +567,7 @@ sub html_non_essay_results { if ($resptype eq 'radiobutton') { $submission = &HTML::Entities::encode($submission,'<>&"'); $submission =~ s/=([^=])$//; - $submission = ''.$submission.''; + $submission = ''.$submission.''; } $response->{'Submission'} = $submission; #