version 1.54, 2009/04/21 13:28:23
|
version 1.55, 2009/12/16 13:01:01
|
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; |
} |
} |
# |
# |