--- loncom/interface/statistics/lonstudentsubmissions.pm 2008/10/30 17:45:25 1.50
+++ loncom/interface/statistics/lonstudentsubmissions.pm 2009/04/21 13:28:23 1.54
@@ -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.54 2009/04/21 13:28:23 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;
#
@@ -1095,7 +1096,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 +1145,14 @@ sub CreateInterface {
#
$Str .= ''.
' '.
+ &mt('Show problem').' '.$prob_checkbox.' '.
' '.
+ &mt('Show correct answers').' '.$ans_checkbox.' '.
' '.
' '.
' | ';
#
@@ -1166,6 +1166,7 @@ sub CreateInterface {
'')
.'';
+ $Str .= '';
##
return $Str;
}