loncom/interface/statistics/lonstudentsubmissions.pm - diff

Return to lonstudentsubmissions.pm CVS log

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

version 1.45, 2006/05/30 12:46:50	version 1.47, 2008/09/11 14:47:23
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 1090 sub CreateInterface {	Line 1090 sub CreateInterface {
$Str .= '<tr>';	$Str .= '<tr>';
$Str .= '<th>'.&mt('Sections').'</th>';	$Str .= '<th>'.&mt('Sections').'</th>';
$Str .= '<th>'.&mt('Groups').'</th>';	$Str .= '<th>'.&mt('Groups').'</th>';
$Str .= '<th>'.&mt('Enrollment Status').'</th>';	$Str .= '<th>'.&mt('Access Status').'</th>';
$Str .= '<th>'.&mt('Output as [_1]',$output_selector).'</th>';	$Str .= '<th>'.&mt('Output as [_1]',$output_selector).'</th>';
$Str .= '</tr>'."\n";	$Str .= '</tr>'."\n";
#	#