loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.351, 2016/11/15 20:03:50	version 1.352, 2017/08/10 22:49:01
Line 2400 END	Line 2400 END
%all_library_servers = (%library_servers,%older_library_servers);	%all_library_servers = (%library_servers,%older_library_servers);
@Servers_to_contact = sort(keys(%all_library_servers));	@Servers_to_contact = sort(keys(%all_library_servers));
foreach my $server (@Servers_to_contact) {	foreach my $server (@Servers_to_contact) {
my %possdoms;
map { $possdoms{$_}=1; } &Apache::lonnet::machine_domains($all_library_servers{$server});
$domains_by_server{$server} =	$domains_by_server{$server} =
join(',',sort(&Apache::lonnet::machine_domains($all_library_servers{$server})));	join(',',sort(&Apache::lonnet::machine_domains($all_library_servers{$server})));
}	}