loncom/interface/londropadd.pm - diff

Return to londropadd.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.78, 2003/07/25 18:51:18	version 1.79, 2003/07/28 17:10:12
Line 622 sub enroll_single_student {	Line 622 sub enroll_single_student {
$r->print("unable to enroll: ".$login_result);	$r->print("unable to enroll: ".$login_result);
}	}
} else {	} else {
$r->print('<p><font color="#ff0000">ERROR</font> '.	$r->print('<p><font color="#ff0000">ERROR</font> ');
'Invalid login mode or password. '.	if ($amode =~ /^krb/) {
'Unable to enroll '.$ENV{'form.cuname'}.'.</p>');	$r->print('Missing Kerberos domain information. ');
}	} else {
	$r->print('Invalid login mode or password. ');
	}
	$r->print('<b>Unable to enroll '.$ENV{'form.cuname'}.'.</b></p>');
	}
} else {	} else {
$r->print('Invalid username or domain');	$r->print('Invalid username or domain');
}	}
Line 1585 sub upfile_drop_add {	Line 1589 sub upfile_drop_add {
$genpwd=$ENV{'form.locarg'};	$genpwd=$ENV{'form.locarg'};
}	}
}	}
	if ($amode =~ /^krb/) {
	if (! defined($genpwd) \|\| $genpwd eq '') {
	$r->print('<font color="red" size="+1">'.
	'Unable to enroll students:'.'</font> '.
	'No Kerberos domain was specified.</p>');
	$amode = ''; # This causes the loop below to be skipped
	}
	}
unless (($domain=~/\W/) \|\| ($amode eq '')) {	unless (($domain=~/\W/) \|\| ($amode eq '')) {
#######################################	#######################################
## Enroll Students ##	## Enroll Students ##