--- loncom/interface/Attic/londropadd.pm	2004/02/26 22:42:21	1.103
+++ loncom/interface/Attic/londropadd.pm	2004/02/27 14:59:19	1.104
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.103 2004/02/26 22:42:21 matthew Exp $
+# $Id: londropadd.pm,v 1.104 2004/02/27 14:59:19 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1145,7 +1145,7 @@ sub print_html_classlist {
         foreach my $outputformat ('html','csv','excel') {
             my $option = '<option value="'.$outputformat.'" ';
             if ($outputformat eq $ENV{'form.state'}) {
-                $option .= 'checked ';
+                $option .= 'selected ';
             }
             $option .='>'.$lt{$outputformat}.'</option>';
             $output_selector .= "\n".$option;
@@ -1183,7 +1183,7 @@ sub show_class_list {
     my $cid=$ENV{'request.course.id'};
     #
     # Variables for excel output
-    my ($excel_workbook, $excel_sheet, $excel_filename,$row);
+    my ($excel_workbook, $excel_sheet, $excel_filename,$row,$format);
     #
     # Variables for csv output
     my ($CSVfile,$CSVfilename);
@@ -1267,14 +1267,16 @@ END
         $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');
         #
         my $description = 'Class List for '.
             $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
-        $excel_sheet->write($row++,0,$description);
+        $excel_sheet->write($row++,0,$description,$format->{'h1'});
         #
         $excel_sheet->write($row++,0,["username","domain","ID",
-                                      "student name","section","status"]);
+                                      "student name","section","status"],$format->{'bold'});
     }
     #
     # Sort the students