version 1.31, 2002/04/22 15:26:46
|
version 1.32, 2002/04/22 18:04:19
|
Line 165 ENDFORMINFO
|
Line 165 ENDFORMINFO
|
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my %incdomains; |
my %incdomains; |
my %inccourses; |
my %inccourses; |
my %home_servers = &get_home_servers($ccdomain); |
|
foreach (%Apache::lonnet::hostdom) { |
foreach (%Apache::lonnet::hostdom) { |
$incdomains{$_}=1; |
$incdomains{$_}=1; |
} |
} |
Line 176 ENDFORMINFO
|
Line 175 ENDFORMINFO
|
} |
} |
if ($uhome eq 'no_host') { |
if ($uhome eq 'no_host') { |
my $home_server_list= |
my $home_server_list= |
'<option value="default" selected>default</option>'."\n"; |
'<option value="default" selected>default</option>'."\n". |
foreach (sort keys(%home_servers)) { |
&Apache::loncommon::home_server_option_list($ccdomain); |
$home_server_list.= |
|
'<option value="'.$_.'">'.$_.' '. |
|
$home_servers{$_}."</option>\n"; |
|
} |
|
$r->print(<<ENDNEWUSER); |
$r->print(<<ENDNEWUSER); |
$dochead |
$dochead |
<h1>Create New User</h1> |
<h1>Create New User</h1> |
Line 552 ENDNEWUSERHEAD
|
Line 548 ENDNEWUSERHEAD
|
if (lc($desiredhost) eq 'default') { |
if (lc($desiredhost) eq 'default') { |
$desiredhost = undef; |
$desiredhost = undef; |
} else { |
} else { |
my %home_servers = &get_home_servers($ENV{'form.ccdomain'}); |
my %home_servers = &Apache::loncommon::get_home_servers |
|
($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'); |
return; |
return; |
Line 832 ENDTABLE
|
Line 829 ENDTABLE
|
#---------------------------------------------- end functions for &phase_two |
#---------------------------------------------- end functions for &phase_two |
|
|
#--------------------------------- functions for &phase_two and &phase_three |
#--------------------------------- functions for &phase_two and &phase_three |
sub get_home_servers { |
|
my $domain = shift; |
|
my %home_servers; |
|
foreach (keys(%Apache::lonnet::libserv)) { |
|
if ($Apache::lonnet::hostdom{$_} eq $domain) { |
|
$home_servers{$_} = $Apache::lonnet::hostname{$_}; |
|
} |
|
} |
|
return %home_servers; |
|
} |
|
|
|
#--------------------------end of functions for &phase_two and &phase_three |
#--------------------------end of functions for &phase_two and &phase_three |
|
|