--- loncom/interface/lonsearchcat.pm 2016/11/15 20:03:50 1.351 +++ loncom/interface/lonsearchcat.pm 2017/08/10 22:49:01 1.352 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Search Catalog # -# $Id: lonsearchcat.pm,v 1.351 2016/11/15 20:03:50 raeburn Exp $ +# $Id: lonsearchcat.pm,v 1.352 2017/08/10 22:49:01 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2400,8 +2400,6 @@ END %all_library_servers = (%library_servers,%older_library_servers); @Servers_to_contact = sort(keys(%all_library_servers)); foreach my $server (@Servers_to_contact) { - my %possdoms; - map { $possdoms{$_}=1; } &Apache::lonnet::machine_domains($all_library_servers{$server}); $domains_by_server{$server} = join(',',sort(&Apache::lonnet::machine_domains($all_library_servers{$server}))); }