--- loncom/lonnet/perl/lonnet.pm 2001/04/02 13:43:15 1.119 +++ loncom/lonnet/perl/lonnet.pm 2001/04/02 16:56:22 1.120 @@ -1245,20 +1245,18 @@ sub definerole { sub metadata_query { my ($query,$custom,$customshow)=@_; # need to put in a library server loop here and return a hash -# for my $server (keys %libserv) { my %rhash; +# for my $server (keys %libserv) { for my $server ('msul3') { unless ($custom or $customshow) { my $reply=&reply("querysend:".&escape($query),$server); $rhash{$server}=$reply; - return $reply; } else { my $reply=&reply("querysend:".&escape($query).':'. &escape($custom).':'.&escape($customshow), $server); $rhash{$server}=$reply; - return $reply; } } return \%rhash;