--- 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;
#