--- loncom/lonnet/perl/lonnet.pm	2001/11/16 07:00:07	1.170
+++ loncom/lonnet/perl/lonnet.pm	2001/11/17 15:36:06	1.171
@@ -36,7 +36,10 @@
 # 10/2 Gerd Kortemeyer
 # 10/5,10/10,11/13,11/15 Scott Harrison
 #
-# $Id: lonnet.pm,v 1.170 2001/11/16 07:00:07 harris41 Exp $
+# $Id: lonnet.pm,v 1.171 2001/11/17 15:36:06 www Exp $
+#
+# 11/17 Gerd Kortemeyer
+#
 ###
 
 # Functions for use by content handlers:
@@ -2231,12 +2234,16 @@ sub EXT {
 # ---------------------------------------------------------------- Get metadata
 
 sub metadata {
-    my ($uri,$what)=@_;
+    my ($uri,$what,$liburi,$prefix)=@_;
 
     $uri=&declutter($uri);
     my $filename=$uri;
     $uri=~s/\.meta$//;
     unless ($metacache{$uri.':keys'}) {
+        if ($liburi) {
+	    $liburi=&declutter($liburi);
+            $filename=$liburi;
+        }
         my %metathesekeys=();
         unless ($filename=~/\.meta$/) { $filename.='.meta'; }
 	my $metastring=&getfile($perlvar{'lonDocRoot'}.'/res/'.$filename);