--- loncom/interface/lonmenu.pm	2003/02/13 20:35:39	1.35
+++ loncom/interface/lonmenu.pm	2003/02/14 14:30:09	1.36
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.35 2003/02/13 20:35:39 www Exp $
+# $Id: lonmenu.pm,v 1.36 2003/02/14 14:30:09 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -181,7 +181,7 @@ sub switch {
    } else {
        my $text=$top.' '.$bot;
        $text=~s/\- //;
-       return '<br /><a href="'.$act.'">'.$text.'</a> '.$desc;
+       return '<br /><a href="javascript:'.$act.';">'.$text.'</a> '.$desc;
    }
 }
 
@@ -328,7 +328,20 @@ sub handler {
 
     my $bodytag=&Apache::loncommon::bodytag('Main Menu');
 # ------------------------------------------------------------ Print the screen
-    $r->print('<html><head><title>LON-CAPA Main Menu</title></head>'.$bodytag);
+    $r->print(<<ENDHEADER);
+<html><head>
+<title>LON-CAPA Main Menu</title>
+<script>
+function go(url) {
+    window.location=url;
+}
+function gopost(url) {
+    window.location=url;
+}
+</script>
+</head>
+$bodytag
+ENDHEADER
     $r->print(&rawconfig(1));
     $r->print('</body></html>');
     return OK;
