[LON-CAPA-cvs] cvs: loncom /interface/statistics lonstudentassessment.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Wed, 18 Feb 2004 15:43:00 -0000
matthew Wed Feb 18 10:43:00 2004 EDT
Modified files:
/loncom/interface/statistics lonstudentassessment.pm
Log:
Modified to use &Apache::loncommon::define_excel_formats()
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.90 loncom/interface/statistics/lonstudentassessment.pm:1.91
--- loncom/interface/statistics/lonstudentassessment.pm:1.90 Thu Feb 12 16:15:47 2004
+++ loncom/interface/statistics/lonstudentassessment.pm Wed Feb 18 10:43:00 2004
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstudentassessment.pm,v 1.90 2004/02/12 21:15:47 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.91 2004/02/18 15:43:00 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -970,22 +970,12 @@
# 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
my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
$sheetname = &Apache::loncommon::clean_excel_name($sheetname);
$excel_sheet = $excel_workbook->addworksheet($sheetname);
- #
- # Define some potentially useful formats
- my $format;
- $format->{'header'} = $excel_workbook->add_format(bold => 1,
- bottom => 1,
- align => 'center');
- $format->{'bold'} = $excel_workbook->add_format(bold=>1);
- $format->{'h1'} = $excel_workbook->add_format(bold=>1, size=>18);
- $format->{'h2'} = $excel_workbook->add_format(bold=>1, size=>16);
- $format->{'h3'} = $excel_workbook->add_format(bold=>1, size=>14);
- $format->{'date'} = $excel_workbook->add_format(num_format=>
- 'mmm d yyyy hh:mm AM/PM');
#
# Put the course description in the header
$excel_sheet->write($header_row,$cols_output++,