version 1.116, 2005/02/28 17:23:11
|
version 1.117, 2005/03/10 17:33:58
|
Line 939 sub SingleStudentTotal {
|
Line 939 sub SingleStudentTotal {
|
|
|
my $excel_sheet; |
my $excel_sheet; |
my $excel_workbook; |
my $excel_workbook; |
|
my $format; |
|
|
my $filename; |
my $filename; |
my $rows_output; |
my $rows_output; |
Line 1005 sub excel_initialize {
|
Line 1006 sub excel_initialize {
|
} |
} |
return if ($request_aborted); |
return if ($request_aborted); |
# |
# |
$filename = '/prtspool/'. |
|
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'. |
|
time.'_'.rand(1000000000).'.xls'; |
|
# |
# |
$excel_workbook = undef; |
$excel_workbook = undef; |
$excel_sheet = undef; |
$excel_sheet = undef; |
Line 1035 sub excel_initialize {
|
Line 1033 sub excel_initialize {
|
my $first_data_row = $rows_output++; |
my $first_data_row = $rows_output++; |
# |
# |
# Create sheet |
# Create sheet |
$excel_workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename); |
($excel_workbook,$filename,$format)= |
# |
&Apache::loncommon::create_workbook($r); |
# Check for errors |
return if (! defined($excel_workbook)); |
if (! defined($excel_workbook)) { |
|
$r->log_error("Error creating excel spreadsheet $filename: $!"); |
|
$r->print("Problems creating new Excel file. ". |
|
"This error has been logged. ". |
|
"Please alert your LON-CAPA administrator"); |
|
return ; |
|
} |
|
# |
|
# The excel spreadsheet stores temporary data in files, then put them |
|
# together. If needed we should be able to disable this (memory only). |
|
# The temporary directory must be specified before calling 'addworksheet'. |
|
# File::Temp is used to determine the temporary directory. |
|
$excel_workbook->set_tempdir($Apache::lonnet::tmpdir); |
|
# |
|
my $format = &Apache::loncommon::define_excel_formats($excel_workbook); |
|
# |
# |
# Add a worksheet |
# Add a worksheet |
my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |