--- loncom/interface/statistics/lonstudentsubmissions.pm 2008/10/30 17:45:25 1.50
+++ loncom/interface/statistics/lonstudentsubmissions.pm 2010/01/14 17:20:51 1.56
@@ -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.56 2010/01/14 17:20:51 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();
@@ -1143,18 +1145,21 @@ sub CreateInterface {
}
$prob_status_checkbox .= 'value="true" />';
#
- $Str .= ''.
- ''.
- &mt('Show problem [_1]',$prob_checkbox).' '.
- ''.
- &mt('Show correct answers [_1]',$ans_checkbox).' '.
- ''.
- &mt('Show all submissions [_1]',$all_sub_checkbox).
- ' '.
- ''.
- &mt('Show problem grading [_1]',$prob_status_checkbox).
- ' '.
- ' ';
+ $Str .=
+ ''
+ .''
+ .$prob_checkbox.&mt('Show problem')
+ .' '
+ .''
+ .' '.$ans_checkbox.&mt('Show correct answers')
+ .' '
+ .''
+ .$all_sub_checkbox.&mt('Show all submissions')
+ .' '
+ .''
+ .$prob_status_checkbox.&mt('Show problem grading')
+ .' '
+ .' ';
#
$Str .= ''.$output_selector.' ';
#
@@ -1166,6 +1171,7 @@ sub CreateInterface {
' ')
.'';
+ $Str .= '';
##
return $Str;
}