--- loncom/interface/lonmeta.pm	2001/12/19 17:17:46	1.8
+++ loncom/interface/lonmeta.pm	2001/12/22 21:59:07	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.8 2001/12/19 17:17:46 albertel Exp $
+# $Id: lonmeta.pm,v 1.9 2001/12/22 21:59:07 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -29,7 +29,7 @@
 #
 # 05/29/00,05/30,10/11 Gerd Kortemeyer)
 #
-# 10/19,10/21,10/23,11/27,08/09/01 Gerd Kortemeyer
+# 10/19,10/21,10/23,11/27,08/09/01,12/22 Gerd Kortemeyer
 
 package Apache::lonmeta;
 
@@ -37,6 +37,21 @@ use strict;
 use Apache::Constants qw(:common);
 use Apache::lonnet();
 
+# ----------------------------------------- Fetch and evaluate dynamic metadata
+
+sub dynamicmeta {
+    my $url=&Apache::lonnet::declutter(shift);
+    $url=~s/\.meta$//;
+    my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//);
+    my $regexp=&Apache::lonnet::escape($url);
+    $regexp=~s/(\W)/\\$1/g;
+    my %evaldata=&Apache::lonnet::dump
+                                     ('resevaldata',$adomain,$aauthor,$regexp);
+    my %returnhash=();
+    foreach (keys %evaldata) {
+    }
+    return %returnhash;
+}
 
 # ================================================================ Main Handler
 
@@ -122,6 +137,7 @@ ENDHEAD
       $r->print("<br>\n");
    } sort keys %content;
   }
+  &dynamicmeta($uri);
   $r->print('</body></html>');
   return OK;
 }