--- loncom/interface/Attic/londropadd.pm 2003/12/12 18:04:38 1.94 +++ loncom/interface/Attic/londropadd.pm 2003/12/28 01:30:50 1.97 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.94 2003/12/12 18:04:38 sakharuk Exp $ +# $Id: londropadd.pm,v 1.97 2003/12/28 01:30:50 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,11 +25,6 @@ # # http://www.lon-capa.org/ # -# (Handler to set parameters for assessments -# -# (Handler to resolve ambiguous file locations -# -# (TeX Content Handler # ############################################################### ############################################################## @@ -232,7 +227,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', @@ -242,7 +237,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.', @@ -260,24 +263,59 @@ sub javascript_validations { my $function_name =(<

\n"; $Str .= ''."
\n"; + 'value="Update Class List" />'."
\n"; $Str .= &mt('Note: for large courses, this operation may be time '. 'consuming'); $r->print($Str);