version 1.54, 2009/04/21 13:28:23
|
version 1.56, 2010/01/14 17:20:51
|
Line 931 sub prepare_csv_output {
|
Line 931 sub prepare_csv_output {
|
time.'_'.rand(1000000000).'.csv'; |
time.'_'.rand(1000000000).'.csv'; |
unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) { |
unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) { |
$r->log_error("Couldn't open $filename for output $!"); |
$r->log_error("Couldn't open $filename for output $!"); |
$r->print('<div class="LC_error">' |
$r->print( |
.&mt('Problems occurred in writing the CSV file. ' |
'<p class="LC_error">' |
.'This error has been logged. ' |
.&mt('Problems occurred in writing the CSV file.') |
.'Please alert your LON-CAPA administrator.') |
.' '.&mt('This error has been logged.') |
.'</div>'); |
.' '.&mt('Please alert your LON-CAPA administrator.') |
|
.'</p>' |
|
); |
$outputfile = undef; |
$outputfile = undef; |
} |
} |
# |
# |
Line 1143 sub CreateInterface {
|
Line 1145 sub CreateInterface {
|
} |
} |
$prob_status_checkbox .= 'value="true" />'; |
$prob_status_checkbox .= 'value="true" />'; |
# |
# |
$Str .= '<td align="right" valign="top">'. |
$Str .= |
'<label><b>'. |
'<td valign="top">' |
&mt('Show problem').' '.$prob_checkbox.'</b></label><br />'. |
.'<label>' |
'<label><b>'. |
.$prob_checkbox.&mt('Show problem') |
&mt('Show correct answers').' '.$ans_checkbox.'</b></label><br />'. |
.'</label><br />' |
'<label><b>'. |
.'<label>' |
&mt('Show all submissions').' '.$all_sub_checkbox. |
.' '.$ans_checkbox.&mt('Show correct answers') |
'</b></label><br />'. |
.'</label><br />' |
'<label><b>'. |
.'<label>' |
&mt('Show problem grading').' '.$prob_status_checkbox. |
.$all_sub_checkbox.&mt('Show all submissions') |
'</b></label><br />'. |
.'</label><br />' |
'</td>'; |
.'<label>' |
|
.$prob_status_checkbox.&mt('Show problem grading') |
|
.'</label>' |
|
.'</td>'; |
# |
# |
$Str .= '<td align="center" valign="top">'.$output_selector.'</td>'; |
$Str .= '<td align="center" valign="top">'.$output_selector.'</td>'; |
# |
# |