--- loncom/interface/Attic/londropadd.pm 2004/02/26 22:42:21 1.103 +++ loncom/interface/Attic/londropadd.pm 2004/02/27 15:13:27 1.105 @@ -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.105 2004/02/27 15:13:27 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 = '
\n"); + $r->print(''. + "\n\n"); # # Print the classlist @@ -1183,7 +1184,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 +1268,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