--- loncom/interface/Attic/londropadd.pm 2002/04/17 13:55:35 1.27 +++ loncom/interface/Attic/londropadd.pm 2002/04/22 15:26:46 1.28 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.27 2002/04/17 13:55:35 matthew Exp $ +# $Id: londropadd.pm,v 1.28 2002/04/22 15:26:46 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -146,7 +146,7 @@ to this page if the data selected is ins
Note: this will not take effect if the user already exists
- -Kerberos authenticated with domain - +$krbform
- -Internally authenticated (with initial password -) +$intform
- -Local Authentication with argument - +$locform
@@ -510,10 +478,10 @@ sub enroll_single_student {
my $genpwd='';
if ($ENV{'form.login'} eq 'krb') {
$amode='krb4';
- $genpwd=$ENV{'form.krbdom'};
+ $genpwd=$ENV{'form.krbarg'};
} elsif ($ENV{'form.login'} eq 'int') {
$amode='internal';
- $genpwd=$ENV{'form.intpwd'};
+ $genpwd=$ENV{'form.intarg'};
} elsif ($ENV{'form.login'} eq 'loc') {
$amode='localauth';
$genpwd=$ENV{'form.locarg'};
@@ -546,8 +514,14 @@ sub menu_phase_two_enroll {
my $halfyear = $today+15552000;
my $defdom=$r->dir_config('lonDefDomain');
my $javascript_validations=&javascript_validations($krbdefdom);
+ # Set up authentication forms
+ my %param = ( formname => 'document.studentform');
+ my $krbform = &Apache::loncommon::authform_kerberos(%param);
+ my $intform = &Apache::loncommon::authform_internal(%param);
+ my $locform = &Apache::loncommon::authform_local(%param);
+ # Print it all out
$r->print(<