--- loncom/interface/lonmenu.pm 2004/08/10 18:05:12 1.112 +++ loncom/interface/lonmenu.pm 2004/08/13 20:12:11 1.113 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.112 2004/08/10 18:05:12 albertel Exp $ +# $Id: lonmenu.pm,v 1.113 2004/08/13 20:12:11 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -420,6 +420,7 @@ ENDREGTEXT } else { my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0]; $requri=&Apache::lonnet::unescape($requri); + my $navstatus=&get_nav_status(); $result = (< @@ -437,6 +438,7 @@ var swmenu=null; swmenu.currentSymb="$ENV{'request.symb'}"; swmenu.reloadSymb="$ENV{'request.symb'}"; swmenu.currentStale=0; + $navstatus $hwkadd $editbutton } @@ -929,6 +931,17 @@ sub serverform { ENDSERVERFORM } + +sub get_nav_status { + my $navstatus="swmenu.w_loncapanav_flag="; + if ($ENV{'environment.remotenavmap'} eq 'on') { + $navstatus.="1"; + } else { + $navstatus.="-1"; + } + return $navstatus; +} + # ================================================ Handler when called directly