|
version 1.146, 2007/03/03 01:33:21
|
version 1.147, 2007/03/03 01:40:28
|
|
Line 1064 ENDNEWUSERHEAD
|
Line 1064 ENDNEWUSERHEAD
|
| if (lc($desiredhost) eq 'default') { |
if (lc($desiredhost) eq 'default') { |
| $desiredhost = undef; |
$desiredhost = undef; |
| } else { |
} else { |
| my %home_servers = &Apache::loncommon::get_library_servers |
my %home_servers = |
| ($env{'form.ccdomain'}); |
&Apache::lonnet::get_servers($env{'form.ccdomain'},'library'); |
| if (! exists($home_servers{$desiredhost})) { |
if (! exists($home_servers{$desiredhost})) { |
| $r->print($error.&mt('Invalid home server specified')); |
$r->print($error.&mt('Invalid home server specified')); |
| return; |
return; |
![[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