--- loncom/interface/spreadsheet/classcalc.pm	2004/06/08 15:55:38	1.21
+++ loncom/interface/spreadsheet/classcalc.pm	2005/04/07 06:56:23	1.23
@@ -1,5 +1,5 @@
 #
-# $Id: classcalc.pm,v 1.21 2004/06/08 15:55:38 matthew Exp $
+# $Id: classcalc.pm,v 1.23 2005/04/07 06:56:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -228,12 +228,12 @@ 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) = @_;
     #
     # Write a header row
     $cols_output = 0;
     foreach my $value ('Fullname','Username','Domain','Section','Status','ID') {
-        $worksheet->write($rows_output,$cols_output++,&mt($value));
+        $worksheet->write($rows_output,$cols_output++,&mt($value),$format->{'h4'});
     }
     $rows_output++;    
     #
@@ -307,7 +307,7 @@ sub outsheet_htmlclasslist {
     #
     # Determine if we should output expire caches links...
     my $show_expire_link = 0;
-    if (exists($ENV{'user.role.dc./'.$ENV{'request.role.domain'}.'/'})){
+    if (exists($env{'user.role.dc./'.$env{'request.role.domain'}.'/'})){
         $show_expire_link = 1;
     }
     #