version 1.52, 2008/12/12 05:52:26
|
version 1.56, 2010/01/14 17:20:51
|
Line 285 sub prepare_html_output {
|
Line 285 sub prepare_html_output {
|
$headers{'part'} .= qq{<th colspan="$part_span">$tmpname</th>}; |
$headers{'part'} .= qq{<th colspan="$part_span">$tmpname</th>}; |
$nonempty_part_headers = 1; |
$nonempty_part_headers = 1; |
} else { |
} else { |
$headers{'part'} .= qq{<th colspan="$part_span"> </th>}; |
$headers{'part'} .= qq{<th colspan="$part_span"> </th>}; |
} |
} |
$prob_span += $part_span; |
$prob_span += $part_span; |
} |
} |
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 1096 sub CreateInterface {
|
Line 1098 sub CreateInterface {
|
$Str .= '<th>'.&mt('Sections').'</th>'; |
$Str .= '<th>'.&mt('Sections').'</th>'; |
$Str .= '<th>'.&mt('Groups').'</th>'; |
$Str .= '<th>'.&mt('Groups').'</th>'; |
$Str .= '<th>'.&mt('Access Status').'</th>'; |
$Str .= '<th>'.&mt('Access Status').'</th>'; |
# $Str .= '<th>'.&mt('Output as [_1]',$output_selector).'</th>'; |
|
$Str .= '<th>'.&mt('Options').'</th>'; |
$Str .= '<th>'.&mt('Options').'</th>'; |
$Str .= '<th>'.&mt('Output Format').'</th>'; |
$Str .= '<th>'.&mt('Output Format').'</th>'; |
$Str .= &Apache::loncommon::end_data_table_header_row(); |
$Str .= &Apache::loncommon::end_data_table_header_row(); |
Line 1144 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 [_1]',$prob_checkbox).'</b></label><br />'. |
.'<label>' |
'<label><b>'. |
.$prob_checkbox.&mt('Show problem') |
&mt('Show correct answers [_1]',$ans_checkbox).'</b></label><br />'. |
.'</label><br />' |
'<label><b>'. |
.'<label>' |
&mt('Show all submissions [_1]',$all_sub_checkbox). |
.' '.$ans_checkbox.&mt('Show correct answers') |
'</b></label><br />'. |
.'</label><br />' |
'<label><b>'. |
.'<label>' |
&mt('Show problem grading [_1]',$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>'; |
# |
# |