loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2002/08/07 18:04:35	version 1.39, 2002/08/08 19:27:35
Line 234 ENDCHANGEUSER	Line 234 ENDCHANGEUSER
<tr>	<tr>
END	END
foreach ('firstname','middlename','lastname','generation') {	foreach ('firstname','middlename','lastname','generation') {
my $result = &Apache::lonnet::allowed('mau',$ccdomain);
&Apache::lonnet::logthis("allowed: mau, $ccdomain = $result");
if (&Apache::lonnet::allowed('mau',$ccdomain)) {	if (&Apache::lonnet::allowed('mau',$ccdomain)) {
$r->print(<<"END");	$r->print(<<"END");
<td><input type="text" name="c$_" value="$userenv{$_}" size="15"/></td>	<td><input type="text" name="c$_" value="$userenv{$_}" size="15"/></td>
Line 575 ENDNEWUSERHEAD	Line 573 ENDNEWUSERHEAD
if (lc($desiredhost) eq 'default') {	if (lc($desiredhost) eq 'default') {
$desiredhost = undef;	$desiredhost = undef;
} else {	} else {
my %home_servers = &Apache::loncommon::get_home_servers	my %home_servers = &Apache::loncommon::get_library_servers
($ENV{'form.ccdomain'});	($ENV{'form.ccdomain'});
if (! exists($home_servers{$desiredhost})) {	if (! exists($home_servers{$desiredhost})) {
$r->print($error.'Invalid home server specified');	$r->print($error.'Invalid home server specified');