--- loncom/interface/Attic/londropadd.pm 2002/04/22 15:26:46 1.28
+++ loncom/interface/Attic/londropadd.pm 2002/04/23 21:03:59 1.29
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to drop and add students in courses
#
-# $Id: londropadd.pm,v 1.28 2002/04/22 15:26:46 matthew Exp $
+# $Id: londropadd.pm,v 1.29 2002/04/23 21:03:59 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -166,15 +166,15 @@ function verify_message (vf,founduname,f
alert('You need to specify the username field');
return;
}
- if (vf.login.value == null) {
+ if (current.radiovalue == null || current.radiovalue == 'nochange') {
// They did not check any of the login radiobuttons.
alert('You must choose an authentication type');
return;
}
foundatype=1;
- if (vf.login.argfield.value == '') {
+ if (current.argfield == null || current.argfield == '') {
var alertmsg = '';
- switch (vf.login.value) {
+ switch (current.value) {
case 'krb':
alertmsg = 'You need to specify the Kerberos domain';
break;
@@ -382,6 +382,8 @@ sub phase_two_end {
my $krbform = &Apache::loncommon::authform_kerberos(%param);
my $intform = &Apache::loncommon::authform_internal(%param);
my $locform = &Apache::loncommon::authform_local(%param);
+ # Set up domain selection form
+ my $domform = &Apache::loncommon::select_dom_form($defdom,'lcdomain');
$r->print(<
+LON-CAPA domain: $domform
Domain:
+Domain: $domform
Note: login settings below will not take effect if the user already exists
$krbform