version 1.510, 2007/03/01 02:33:04
|
version 1.511, 2007/03/02 23:17:58
|
Line 1489 sub get_library_servers {
|
Line 1489 sub get_library_servers {
|
my %library_servers; |
my %library_servers; |
foreach my $hostid (keys(%Apache::lonnet::libserv)) { |
foreach my $hostid (keys(%Apache::lonnet::libserv)) { |
if ($Apache::lonnet::hostdom{$hostid} eq $domain) { |
if ($Apache::lonnet::hostdom{$hostid} eq $domain) { |
$library_servers{$hostid} = $Apache::lonnet::hostname{$hostid}; |
$library_servers{$hostid} = &Apache::lonnet::hostname($hostid); |
} |
} |
} |
} |
return %library_servers; |
return %library_servers; |