--- loncom/interface/lonmenu.pm 2004/12/02 23:03:32 1.133 +++ loncom/interface/lonmenu.pm 2004/12/03 06:51:50 1.134 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.133 2004/12/02 23:03:32 albertel Exp $ +# $Id: lonmenu.pm,v 1.134 2004/12/03 06:51:50 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -78,6 +78,13 @@ sub menubuttons { my $reloadlink=''; my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'})); my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.symb'})); + if ($ENV{'request.state'} eq 'construct') { + if (($ENV{'request.noversionuri'} eq '') || (!defined($ENV{'request.noversionuri'}))) { + my $returnurl = $ENV{'request.filename'}; + $returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:; + $escurl = &Apache::lonnet::escape($returnurl); + } + } if ($ENV{'browser.interface'} eq 'textual') { # Textual display only my %lt=&initlittle();