loncom/interface/statistics/lonstudentsubmissions.pm - diff

Return to lonstudentsubmissions.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.47, 2008/09/11 14:47:23	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(&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.'));
$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;
}	}