version 1.512, 2007/03/03 01:33:20
|
version 1.513, 2007/03/03 01:40:28
|
Line 1451 sub select_dom_form {
|
Line 1451 sub select_dom_form {
|
|
|
=pod |
=pod |
|
|
=item * get_library_servers($domain) |
|
|
|
Returns a hash which contains keys like '103l3' and values like |
|
'kirk.lite.msu.edu'. All of the keys will be for machines in the |
|
given $domain. |
|
|
|
=cut |
|
|
|
#------------------------------------------- |
|
sub get_library_servers { |
|
return &Apache::lonnet::get_servers($_[0],'library'); |
|
} |
|
|
|
#------------------------------------------- |
|
|
|
=pod |
|
|
|
=item * home_server_option_list($domain) |
=item * home_server_option_list($domain) |
|
|
returns a string which contains an <option> list to be used in a |
returns a string which contains an <option> list to be used in a |
Line 1478 returns a string which contains an <opti
|
Line 1461 returns a string which contains an <opti
|
#------------------------------------------- |
#------------------------------------------- |
sub home_server_option_list { |
sub home_server_option_list { |
my $domain = shift; |
my $domain = shift; |
my %servers = &get_library_servers($domain); |
my %servers = &Apache::lonnet::get_servers($domain,'library'); |
my $result = ''; |
my $result = ''; |
foreach my $hostid (sort(keys(%servers))) { |
foreach my $hostid (sort(keys(%servers))) { |
$result.= |
$result.= |