loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.34, 2002/04/29 14:32:11	version 1.35, 2002/04/29 14:47:57
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')) {	} elsif (($ENV{'form.login'} eq 'nochange') \|\|
	($ENV{'form.login'} eq '' )) {
# There is no need to tell the user we did not change what they	# There is no need to tell the user we did not change what they
# did not ask us to change.	# did not ask us to change.
	# If they are creating a new user but have not specified login
	# information this will be caught below.
} else {	} else {
$r->print($error.'Invalid login mode or password'.$end);	$r->print($error.'Invalid login mode or password'.$end);
return;	return;
Line 574 ENDNEWUSERHEAD	Line 577 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 'nochange') {	} elsif (($ENV{'form.login'} ne 'nochange') &&
	($ENV{'form.login'} ne '' )) {
# Modify user privileges	# Modify user privileges
$r->print(<<ENDMODIFYUSERHEAD);	$r->print(<<ENDMODIFYUSERHEAD);
<h1>Change User Privileges</h1>	<h1>Change User Privileges</h1>