--- loncom/interface/lonmenu.pm 2003/08/15 13:25:28 1.83 +++ 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.83 2003/08/15 13:25:28 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='
'; } 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,6 +377,8 @@ $form ENDREGTEXT # Registered, graphical output } else { + my $requri=(split(/\?/,$ENV{'REQUEST_URI'}))[0]; + $requri=&Apache::lonnet::unescape($requri); $result = (< @@ -389,8 +391,8 @@ var swmenu=null; $timesync $newmail $buttons - swmenu.currentURL=window.location.pathname; - swmenu.reloadURL=window.location.pathname+window.location.search; + swmenu.currentURL="$requri"; + swmenu.reloadURL=swmenu.currentURL+window.location.search; swmenu.currentSymb="$ENV{'request.symb'}"; swmenu.reloadSymb="$ENV{'request.symb'}"; swmenu.currentStale=0;