version 1.45, 2006/05/30 12:46:50
|
version 1.48, 2008/09/12 14:35:45
|
Line 928 sub prepare_csv_output {
|
Line 928 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("Problems occured in writing the csv file. ". |
$r->print(&mt('Problems occurred in writing the CSV file. ' |
"This error has been logged. ". |
.'This error has been logged. ' |
"Please alert your LON-CAPA administrator."); |
.'Please alert your LON-CAPA administrator.')); |
$outputfile = undef; |
$outputfile = undef; |
} |
} |
# |
# |
Line 1046 sub prepare_csv_output {
|
Line 1046 sub prepare_csv_output {
|
# Close the progress window |
# Close the progress window |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
# |
# |
# Tell the user where to get their csv file |
# Tell the user where to get their CSV file |
$r->print('<br />'. |
$r->print('<br />'. |
'<a href="'.$filename.'">'.&mt('Your csv file.').'</a>'."\n"); |
'<a href="'.$filename.'">'.&mt('Your CSV file.').'</a>'."\n"); |
$r->rflush(); |
$r->rflush(); |
return; |
return; |
} |
} |
Line 1090 sub CreateInterface {
|
Line 1090 sub CreateInterface {
|
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<th>'.&mt('Sections').'</th>'; |
$Str .= '<th>'.&mt('Sections').'</th>'; |
$Str .= '<th>'.&mt('Groups').'</th>'; |
$Str .= '<th>'.&mt('Groups').'</th>'; |
$Str .= '<th>'.&mt('Enrollment Status').'</th>'; |
$Str .= '<th>'.&mt('Access Status').'</th>'; |
$Str .= '<th>'.&mt('Output as [_1]',$output_selector).'</th>'; |
$Str .= '<th>'.&mt('Output as [_1]',$output_selector).'</th>'; |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
# |
# |