|
version 1.51, 2002/08/08 13:43:04
|
version 1.52, 2002/08/08 19:27:35
|
|
Line 558 sub select_dom_form {
|
Line 558 sub select_dom_form {
|
| |
|
| =pod |
=pod |
| |
|
| =item get_home_servers($domain) |
=item get_library_servers($domain) |
| |
|
| Returns a hash which contains keys like '103l3' and values like |
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 |
'kirk.lite.msu.edu'. All of the keys will be for machines in the |
|
Line 567 given $domain.
|
Line 567 given $domain.
|
| =cut |
=cut |
| |
|
| #------------------------------------------- |
#------------------------------------------- |
| sub get_home_servers { |
sub get_library_servers { |
| my $domain = shift; |
my $domain = shift; |
| my %home_servers; |
my %library_servers; |
| foreach (keys(%Apache::lonnet::libserv)) { |
foreach (keys(%Apache::lonnet::libserv)) { |
| if ($Apache::lonnet::hostdom{$_} eq $domain) { |
if ($Apache::lonnet::hostdom{$_} eq $domain) { |
| $home_servers{$_} = $Apache::lonnet::hostname{$_}; |
$library_servers{$_} = $Apache::lonnet::hostname{$_}; |
| } |
} |
| } |
} |
| return %home_servers; |
return %library_servers; |
| } |
} |
| |
|
| #------------------------------------------- |
#------------------------------------------- |
|
Line 592 returns a string which contains an <opti
|
Line 592 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_home_servers($domain); |
my %servers = &get_library_servers($domain); |
| my $result = ''; |
my $result = ''; |
| foreach (sort keys(%servers)) { |
foreach (sort keys(%servers)) { |
| $result.= |
$result.= |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface