--- loncom/xml/lonxml.pm	2001/06/27 18:52:34	1.98
+++ loncom/xml/lonxml.pm	2001/07/03 20:58:27	1.99
@@ -70,9 +70,12 @@ $evaluate = 1;
 # data structure for eidt mode, determines what tags can go into what other tags
 %insertlist=();
 
-#stores the list of active tag namespaces
+# stores the list of active tag namespaces
 @namespace=();
 
+# has the dynamic menu been updated to know about this resource
+$Apache::lonxml::registered=0;
+
 sub xmlbegin {
   my $output='';
   if ($ENV{'browser.mathml'}) {
@@ -102,6 +105,7 @@ sub fontsettings() {
 }
 
 sub registerurl {
+    if ($Apache::lonxml::registered) { return ''; }
     if ($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) {
         my $hwkadd='';
         if ($ENV{'REQUEST_URI'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {
@@ -464,6 +468,7 @@ sub callsub {
 
 sub setup_globals {
   my ($target)=@_;
+  $Apache::lonxml::registered = 0;
   if ($target eq 'meta') {
     $Apache::lonxml::redirection = 0;
     $Apache::lonxml::metamode = 1;