--- loncom/lonnet/perl/lonnet.pm	2001/03/02 21:43:54	1.104
+++ loncom/lonnet/perl/lonnet.pm	2001/03/15 13:40:20	1.105
@@ -88,6 +88,7 @@
 # 09/01,10/01,11/01 Gerd Kortemeyer
 # 02/27/01 Scott Harrison
 # 3/2 Gerd Kortemeyer
+# 3/15 Scott Harrison
 
 package Apache::lonnet;
 
@@ -1182,6 +1183,13 @@ sub definerole {
   }
 }
 
+# ---------------- Make a metadata query against the network of library servers
+
+sub metadata_query {
+    my ($query)=@_;
+    my $reply=&metadata_query("querysend:$query",'msul3');
+}
+
 # ------------------------------------------------------------------ Plain Text
 
 sub plaintext {