--- loncom/interface/Attic/londropadd.pm 2003/11/07 21:04:37 1.90
+++ loncom/interface/Attic/londropadd.pm 2003/12/05 21:27:59 1.91
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.90 2003/11/07 21:04:37 matthew Exp $
+# $Id: londropadd.pm,v 1.91 2003/12/05 21:27:59 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -146,7 +146,8 @@ sub print_main_menu {
'enrollone' => 'Enroll a single student',
'modify' => 'Modify student data',
'view' => 'View Class List',
- 'drop' => 'Drop Students');
+ 'drop' => 'Drop Students',
+ 'populate' => 'Automated Enrollment Manager');
$r->print(<
+
+ $Text{'populate'}
+
END
}
@@ -237,7 +241,12 @@ sub javascript_validations {
my %param = ( formname => 'studentform',
kerb_def_dom => $krbdefdom );
$authheader = &Apache::loncommon::authform_header(%param);
+ } elsif ($mode eq 'createcourse') {
+ my %param = ( formname => 'ccrs',
+ kerb_def_dom => $krbdefdom );
+ $authheader = &Apache::loncommon::authform_header(%param);
}
+
my %alert = &Apache::lonlocal::texthash
(username => 'You need to specify the username field.',
authen => 'You must choose an authentication type.',
@@ -256,10 +265,16 @@ function verify_message (vf,founduname,f
END
my $auth_checks = (<