loncom/interface/statistics/lonstudentsubmissions.pm - diff

Return to lonstudentsubmissions.pm CVS log

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

version 1.46, 2006/08/18 15:15:38	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;
}	}