loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.33, 2002/04/23 21:05:45	version 1.34, 2002/04/29 14:32:11
Line 532 ENDTHREEHEAD	Line 532 ENDTHREEHEAD
$amode='localauth';	$amode='localauth';
$genpwd=$ENV{'form.locarg'};	$genpwd=$ENV{'form.locarg'};
$genpwd=" " if (!$genpwd);	$genpwd=" " if (!$genpwd);
	} elsif (($ENV{'form.login'} eq 'nochange')) {
	# There is no need to tell the user we did not change what they
	# did not ask us to change.
} else {	} else {
$r->print($error.'Invalid login mode or password'.$end);	$r->print($error.'Invalid login mode or password'.$end);
return;	return;
Line 571 ENDNEWUSERHEAD	Line 574 ENDNEWUSERHEAD
$ENV{'form.ccdomain'});	$ENV{'form.ccdomain'});
$r->print('<br>Home server: '.$home.' '.	$r->print('<br>Home server: '.$home.' '.
$Apache::lonnet::libserv{$home});	$Apache::lonnet::libserv{$home});
} elsif ($ENV{'form.login'} ne '') {	} elsif ($ENV{'form.login'} ne 'nochange') {
# Modify user privileges	# Modify user privileges
$r->print(<<ENDMODIFYUSERHEAD);	$r->print(<<ENDMODIFYUSERHEAD);
<h1>Change User Privileges</h1>	<h1>Change User Privileges</h1>