--- loncom/interface/lonmenu.pm	2003/08/15 14:55:45	1.84
+++ loncom/interface/lonmenu.pm	2003/09/09 18:46:28	1.87
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.84 2003/08/15 14:55:45 www Exp $
+# $Id: lonmenu.pm,v 1.87 2003/09/09 18:46:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -216,7 +216,7 @@ sub innerregister {
 	$newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="3" cellpadding="3" width="100%"><tr><td bgcolor="'.$tabbg.'">';
     }
     if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {
-	my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'});
+	my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'});
         $newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
         my $maptitle=&Apache::lonnet::gettitle($mapurl);
 	my $restitle=&Apache::lonnet::gettitle($resurl);
@@ -377,7 +377,8 @@ $form
 ENDREGTEXT
 # Registered, graphical output
         } else {
-	    my $requri=&Apache::lonnet::unescape($ENV{'REQUEST_URI'});
+	    my $requri=(split(/\?/,$ENV{'REQUEST_URI'}))[0];
+	    $requri=&Apache::lonnet::unescape($requri);
 	    $result = (<<ENDREGTHIS);
      
 <script language="JavaScript">
@@ -391,7 +392,7 @@ var swmenu=null;
           $newmail
           $buttons
 	  swmenu.currentURL="$requri";
-          swmenu.reloadURL=currentURL+window.location.search;
+          swmenu.reloadURL=swmenu.currentURL+window.location.search;
           swmenu.currentSymb="$ENV{'request.symb'}";
           swmenu.reloadSymb="$ENV{'request.symb'}";
           swmenu.currentStale=0;