version 1.68, 2008/09/12 13:39:26
|
version 1.69, 2008/09/12 14:35:46
|
Line 2244 END
|
Line 2244 END
|
time.'_'.rand(1000000000).'.csv'; |
time.'_'.rand(1000000000).'.csv'; |
unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) { |
unless ($CSVfile = Apache::File->new('>/home/httpd'.$CSVfilename)) { |
$r->log_error("Couldn't open $CSVfilename for output $!"); |
$r->log_error("Couldn't open $CSVfilename for output $!"); |
$r->print(&mt('Problems occurred 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.')); |
$CSVfile = undef; |
$CSVfile = undef; |