--- loncom/interface/Attic/londropadd.pm 2004/01/21 00:23:30 1.91.2.1 +++ 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.2.1 2004/01/21 00:23:30 albertel Exp $ +# $Id: londropadd.pm,v 1.91.2.2 2004/01/21 00:29:56 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -240,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', @@ -250,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.', @@ -268,24 +276,59 @@ sub javascript_validations { my $function_name =(<