--- loncom/lonnet/perl/lonnet.pm	2001/03/27 21:50:52	1.118
+++ loncom/lonnet/perl/lonnet.pm	2001/04/16 11:46:22	1.121
@@ -52,7 +52,7 @@
 # receipt()          : returns a receipt to be given out to users 
 # getfile(filename)  : returns the contents of filename, or a -1 if it can't
 #                      be found, replicates and subscribes to the file
-# filelocation(dir,file) : returns a farily clean absolute reference to file 
+# filelocation(dir,file) : returns a fairly clean absolute reference to file 
 #                          from the directory dir
 # hreflocation(dir,file) : same as filelocation, but for hrefs
 # log(domain,user,home,msg) : write to permanent log for user
@@ -91,7 +91,7 @@
 # 09/01,10/01,11/01 Gerd Kortemeyer
 # 02/27/01 Scott Harrison
 # 3/2 Gerd Kortemeyer
-# 3/15 Scott Harrison
+# 3/15,3/19 Scott Harrison
 # 3/19,3/20 Gerd Kortemeyer
 # 3/22,3/27 Scott Harrison
 
@@ -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;