--- loncom/interface/lonmenu.pm 2018/12/27 20:10:31 1.493 +++ loncom/interface/lonmenu.pm 2018/12/29 23:24:40 1.494 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.493 2018/12/27 20:10:31 raeburn Exp $ +# $Id: lonmenu.pm,v 1.494 2018/12/29 23:24:40 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2089,13 +2089,16 @@ END sub utilityfunctions { my ($httphost) = @_; my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); - if ($currenturl =~ m{^/adm/wrapper/ext/} - && $env{'request.external.querystring'} ) { + my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); + if ($currenturl =~ m{^/adm/wrapper/ext/}) { + if ($env{'request.external.querystring'}) { $currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'}; + } + if ($currentsymb =~ /(\#[^\#]+)$/) { + $currenturl .= $1; + } } $currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl)); - - my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); my $dc_popup_cid; if ($env{'user.adv'} && exists($env{'user.role.dc./'.