--- loncom/interface/Attic/londropadd.pm 2002/04/26 18:59:00 1.31
+++ loncom/interface/Attic/londropadd.pm 2002/09/13 15:33:39 1.49
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.31 2002/04/26 18:59:00 matthew Exp $
+# $Id: londropadd.pm,v 1.49 2002/09/13 15:33:39 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -59,23 +59,21 @@ use Apache::Constants qw(:common :http R
# ================================================================ Print header
sub header {
+ my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager');
return(<
-
Drop/Add Students
-
+ + +
+END +} + +# +# Print out the initial form to get the courselist file +# +sub print_first_courselist_upload_form { + my $r=shift; + my $upfile_select=&Apache::loncommon::upfile_select_html(); + my $create_classlist_help = + &Apache::loncommon::help_open_topic("Course_Create_Class_List", + "How do I create a class list from a spreadsheet"); + my $create_csv_help = + &Apache::loncommon::help_open_topic("Course_Convert_To_CSV", + "How do I create a CSV file from a spreadsheet"); + $r->print(<
+
+$create_classlist_help
+$create_csv_help
+