--- loncom/xml/lonxml.pm	2001/06/02 03:59:59	1.84
+++ loncom/xml/lonxml.pm	2001/06/02 19:55:46	1.85
@@ -9,6 +9,7 @@
 # 5/10 Scott Harrison
 # 5/26 Gerd Kortemeyer
 # 5/27 H. K. Ng
+# 6/2 Gerd Kortemeyer
 
 package Apache::lonxml; 
 use vars 
@@ -106,6 +107,17 @@ sub registerurl {
 	  menu=window.open("","LONCAPAmenu");
 	  menu.currentURL=window.location.pathname;
           menu.currentStale=0;
+          menu.clearbut(3,1);
+          menu.switchbutton
+       (8,1,'eval.gif','evaluate','this','gopost("/adm/evaluate",currentURL)');
+          menu.switchbutton
+    (8,2,'fdbk.gif','feedback','on this','gopost("/adm/feedback",currentURL)');
+          menu.switchbutton
+     (8,3,'prt.gif','prepare','printout','gopost("/adm/printout",currentURL)');
+          menu.switchbutton
+       (2,1,'back.gif','backward','','gopost("/adm/flip","back:"+currentURL)');
+          menu.switchbutton
+     (2,3,'forw.gif','forward','','gopost("/adm/flip","forward:"+currentURL)');
        }
     }
   
@@ -113,6 +125,13 @@ sub registerurl {
        if (window.location.pathname!="/res/adm/pages/menu.html") {
 	  menu=window.open("","LONCAPAmenu");
           menu.currentStale=1;
+          menu.clearbut(2,1);
+          menu.clearbut(2,3);
+          menu.clearbut(8,1);
+          menu.clearbut(8,2);
+          menu.clearbut(8,3);
+          menu.switchbutton
+            (3,1,'reload.gif','return','location','go(currentURL)');
        }
     }
 // END LON-CAPA Internal