--- loncom/interface/Attic/londropadd.pm 2003/12/05 21:27:59 1.91
+++ loncom/interface/Attic/londropadd.pm 2004/01/21 00:29:56 1.91.2.2
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.91 2003/12/05 21:27:59 raeburn Exp $
+# $Id: londropadd.pm,v 1.91.2.2 2004/01/21 00:29:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -43,6 +43,7 @@ use Apache::lonhtmlcommon();
use Apache::Constants qw(:common :http REDIRECT);
use Spreadsheet::WriteExcel;
use Apache::lonlocal;
+use localenroll();
###############################################################
###############################################################
@@ -171,10 +172,14 @@ sub print_main_menu {
$Text{'drop'}
+END
+ if (&localenroll::run() ) {
+ $r->print(<
$Text{'populate'}
END
+ }
}
###############################################################
@@ -235,7 +240,7 @@ sub print_upload_manager_header {
###############################################################
###############################################################
sub javascript_validations {
- my ($mode,$krbdefdom)=@_;
+ my ($mode,$krbdefdom,$curr_authtype,$curr_authfield)=@_;
my $authheader;
if ($mode eq 'auth') {
my %param = ( formname => 'studentform',
@@ -245,7 +250,15 @@ sub javascript_validations {
my %param = ( formname => 'ccrs',
kerb_def_dom => $krbdefdom );
$authheader = &Apache::loncommon::authform_header(%param);
+ } elsif ($mode eq 'modifycourse') {
+ my %param = ( formname => 'cmod',
+ kerb_def_dom => $krbdefdom,
+ mode => 'modifycourse',
+ curr_authtype => $curr_authtype,
+ curr_autharg => $curr_authfield );
+ $authheader = &Apache::loncommon::authform_header(%param);
}
+
my %alert = &Apache::lonlocal::texthash
(username => 'You need to specify the username field.',
@@ -263,24 +276,59 @@ sub javascript_validations {
my $function_name =(<