--- 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 =(<