--- loncom/interface/lonmenu.pm 2003/02/17 22:59:37 1.42 +++ loncom/interface/lonmenu.pm 2003/03/03 20:35:20 1.46 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.42 2003/02/17 22:59:37 www Exp $ +# $Id: lonmenu.pm,v 1.46 2003/03/03 20:35:20 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -49,7 +49,15 @@ sub menubuttons { my $registration=shift; unless ($ENV{'browser.interface'} eq 'textual') { return ''; } # Textual display only - my $output='Main Menu
'; + my $output=(< +// BEGIN LON-CAPA Internal + +Main Menu
+ +ENDMAINMENU if ($registration) { $output.=&innerregister($forcereg,$target); } return $output."
"; } @@ -62,7 +70,7 @@ sub registerurl { my $result = ''; if ($target eq 'edit') { - $result .="\n"; @@ -237,7 +245,7 @@ var swmenu=null; $newmail $buttons swmenu.currentURL=window.location.pathname; - swmenu.reloadURL=window.location.pathname; + swmenu.reloadURL=window.location.pathname+window.location.search; swmenu.currentSymb="$ENV{'request.symb'}"; swmenu.reloadSymb="$ENV{'request.symb'}"; swmenu.currentStale=0; @@ -449,7 +457,8 @@ sub switch { my $text=$top.' '.$bot; $text=~s/\- //; return "\n".($nobreak?' ':'
'). - ''.$text.' '.($nobreak?'':$desc); + ''.$text.' '. + ($nobreak?'':$desc); } }