--- loncom/interface/Attic/londropadd.pm 2002/08/21 17:18:08 1.46
+++ loncom/interface/Attic/londropadd.pm 2002/09/09 20:54:52 1.48
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.46 2002/08/21 17:18:08 www Exp $
+# $Id: londropadd.pm,v 1.48 2002/09/09 20:54:52 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -142,34 +142,17 @@ sub domain_form {
# ============================================================== Menu Phase One
sub menu_phase_one {
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(<
-
-
+END
}
sub phase_two_header {
@@ -546,7 +529,8 @@ sub enroll_single_student {
my $amode='';
my $genpwd='';
if ($ENV{'form.login'} eq 'krb') {
- $amode='krb4';
+ $amode='krb';
+ $amode.=$ENV{'form.krbver'};
$genpwd=$ENV{'form.krbarg'};
} elsif ($ENV{'form.login'} eq 'int') {
$amode='internal';
@@ -730,7 +714,10 @@ sub menu_phase_two_drop {
# ============================================== view classlist
sub menu_phase_two_view {
my $r=shift;
- $r->print("
Current Classlist
");
+ $r->print(<Current Classlist
+CSV format
+END
my $cid=$ENV{'request.course.id'};
my ($error,%currentlist)=&get_current_classlist
($ENV{'course.'.$cid.'.domain'},$ENV{'course.'.$cid.'.num'});
@@ -889,6 +876,32 @@ END
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(<
+
+