--- loncom/interface/spreadsheet/assesscalc.pm	2003/11/17 19:55:41	1.29
+++ loncom/interface/spreadsheet/assesscalc.pm	2003/12/08 19:58:39	1.30
@@ -1,5 +1,5 @@
 #
-# $Id: assesscalc.pm,v 1.29 2003/11/17 19:55:41 matthew Exp $
+# $Id: assesscalc.pm,v 1.30 2003/12/08 19:58:39 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -531,7 +531,7 @@ sub csv_rows {
     # writes the meat of the spreadsheet to an excel worksheet.  Called
     # by Spreadsheet::outsheet_excel;
     my $self = shift;
-    my ($filehandle) = @_;
+    my ($connection,$filehandle) = @_;
     #
     # Write a header row
     $self->csv_output_row($filehandle,undef,
@@ -554,12 +554,13 @@ sub excel_rows {
     # writes the meat of the spreadsheet to an excel worksheet.  Called
     # by Spreadsheet::outsheet_excel;
     my $self = shift;
-    my ($worksheet,$cols_output,$rows_output) = @_;
+    my ($connection,$worksheet,$cols_output,$rows_output) = @_;
+    return if (! ref($worksheet));
     #
     # Write a header row
     $cols_output = 0;
     foreach my $value ('Parameter','Description','Value') {
-        $worksheet->write($rows_output,$cols_output++,&mt($value));
+        $worksheet->write($rows_output,$cols_output++,$value);
     }
     $rows_output++;    
     #