loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.63, 2008/08/27 16:54:49	version 1.65, 2008/09/11 19:42:28
Line 2241 END	Line 2241 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("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.'));
$CSVfile = undef;	$CSVfile = undef;
}	}
#	#
Line 2559 END	Line 2559 END
&mt('Your Excel spreadsheet').'</a> '.&mt('is ready for download').'.</p>'."\n");	&mt('Your Excel spreadsheet').'</a> '.&mt('is ready for download').'.</p>'."\n");
} elsif ($mode eq 'csv') {	} elsif ($mode eq 'csv') {
close($CSVfile);	close($CSVfile);
$r->print('<a href="'.$CSVfilename.'">'.	$r->print('<p><a href="'.$CSVfilename.'">'.
&mt('Your CSV file').'</a> is ready for download.'.	&mt('Your CSV file').'</a> '.&mt('is ready for download').'.</p>'."\n");
"\n");
$r->rflush();	$r->rflush();
}	}
if ($mode eq 'autoenroll') {	if ($mode eq 'autoenroll') {