--- loncom/interface/Attic/londropadd.pm	2005/02/17 08:29:42	1.125
+++ loncom/interface/Attic/londropadd.pm	2005/03/10 17:33:57	1.126
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.125 2005/02/17 08:29:42 albertel Exp $
+# $Id: londropadd.pm,v 1.126 2005/03/10 17:33:57 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1326,14 +1326,9 @@ END
         }
     } elsif ($mode eq 'excel') {
         # Create the excel spreadsheet
-        $excel_filename = '/prtspool/'.
-            $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
-                time.'_'.rand(1000000000).'.xls';
-        $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_workbook,$excel_filename,$format) = 
+            &Apache::loncommon::create_workbook($r);
+        return if (! defined($excel_workbook));
         $excel_sheet = $excel_workbook->addworksheet('classlist');
         #
         my $description = 'Class List for '.