--- loncom/xml/lonxml.pm	2001/05/04 15:29:32	1.68
+++ loncom/xml/lonxml.pm	2001/05/04 16:10:17	1.69
@@ -40,15 +40,32 @@ sub xmlend {
 sub registerurl {
   return (<<ENDSCRIPT);
 <script language="JavaScript">
-    if (window.location.pathname!="/res/adm/pages/menu.html") {
-	menu=window.open("","LONCAPAmenu");
-	menu.currentURL=window.location.pathname;
-        menu.currentStale=0;
+    function LONCAPAreg() {
+       if (window.location.pathname!="/res/adm/pages/menu.html") {
+	  menu=window.open("","LONCAPAmenu");
+	  menu.currentURL=window.location.pathname;
+          menu.currentStale=0;
+       }
+    }
+  
+    function LONCAPAstale() {
+       if (window.location.pathname!="/res/adm/pages/menu.html") {
+	  menu=window.open("","LONCAPAmenu");
+          menu.currentStale=1;
+       }
     }
 </script>
 ENDSCRIPT
 }
 
+sub loadevents() {
+    return 'LONCAPAreg();';
+}
+
+sub unloadevents() {
+    return 'LONCAPAstale();';
+}
+
 sub register {
   my $space;
   my @taglist;