--- loncom/interface/Attic/londropadd.pm 2002/04/22 15:26:46 1.28
+++ loncom/interface/Attic/londropadd.pm 2002/04/25 19:21:34 1.30
@@ -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.30 2002/04/25 19:21:34 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 @@ -865,7 +870,6 @@ sub drop_student_list { # ================================================================ Main Handler sub handler { my $r=shift; - $Apache::lonxml::debug=1; if ($r->header_only) { $r->content_type('text/html'); $r->send_http_header;