--- loncom/interface/spreadsheet/assesscalc.pm	2005/03/03 17:52:36	1.37
+++ loncom/interface/spreadsheet/assesscalc.pm	2005/03/10 17:33:57	1.38
@@ -1,5 +1,5 @@
 #
-# $Id: assesscalc.pm,v 1.37 2005/03/03 17:52:36 matthew Exp $
+# $Id: assesscalc.pm,v 1.38 2005/03/10 17:33:57 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -562,15 +562,15 @@ sub excel_rows {
     # writes the meat of the spreadsheet to an excel worksheet.  Called
     # by Spreadsheet::outsheet_excel;
     my $self = shift;
-    my ($connection,$worksheet,$cols_output,$rows_output) = @_;
+    my ($connection,$worksheet,$cols_output,$rows_output,$format) = @_;
     return if (! ref($worksheet));
     #
     # Write a header row
     $cols_output = 0;
     foreach my $value ('Parameter','Description','Value') {
-        $worksheet->write($rows_output,$cols_output++,$value);
+        $worksheet->write($rows_output,$cols_output++,$value,$format->{'h4'});
     }
-    $rows_output++;    
+    $rows_output++;
     #
     # Write each row
     foreach my $rownum (sort {$a <=> $b} ($self->rows())) {