--- loncom/lonnet/perl/lonnet.pm	2001/03/27 13:37:43	1.117
+++ loncom/lonnet/perl/lonnet.pm	2001/03/27 21:50:52	1.118
@@ -93,7 +93,7 @@
 # 3/2 Gerd Kortemeyer
 # 3/15 Scott Harrison
 # 3/19,3/20 Gerd Kortemeyer
-# 3/22 Scott Harrison
+# 3/22,3/27 Scott Harrison
 
 package Apache::lonnet;
 
@@ -1244,18 +1244,24 @@ sub definerole {
 
 sub metadata_query {
     my ($query,$custom,$customshow)=@_;
-    # need to put in a library server loop here and return list
-    unless ($custom or $customshow) {
-	my $reply=&reply("querysend:".&escape($query),'msul3');
-	return $reply;
-    }
-    else {
-	my $reply=&reply("querysend:".&escape($query).':'.
-			 &escape($custom).':'.&escape($customshow),'msul3');
-	return $reply;
+    # need to put in a library server loop here and return a hash
+#    for my $server (keys %libserv) {
+    my %rhash;
+    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;
+	}
     }
-    my ($query)=@_;
-    my $reply=&reply("querysend:".&escape($query),'msul3');
+    return \%rhash;
 }
 
 # ------------------------------------------------------------------ Plain Text