loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.125, 2005/02/17 08:29:42	version 1.126, 2005/03/10 17:33:57
Line 1326 END	Line 1326 END
}	}
} elsif ($mode eq 'excel') {	} elsif ($mode eq 'excel') {
# Create the excel spreadsheet	# Create the excel spreadsheet
$excel_filename = '/prtspool/'.	($excel_workbook,$excel_filename,$format) =
$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.	&Apache::loncommon::create_workbook($r);
time.'_'.rand(1000000000).'.xls';	return if (! defined($excel_workbook));
$excel_workbook = Spreadsheet::WriteExcel->new('/home/httpd'.
$excel_filename);
$excel_workbook->set_tempdir('/home/httpd/perl/tmp');
#
$format = &Apache::loncommon::define_excel_formats($excel_workbook);
$excel_sheet = $excel_workbook->addworksheet('classlist');	$excel_sheet = $excel_workbook->addworksheet('classlist');
#	#
my $description = 'Class List for '.	my $description = 'Class List for '.