|
version 1.38, 2002/08/07 18:49:36
|
version 1.39, 2002/08/08 19:27:35
|
|
Line 573 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'); |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncreateuser.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface