--- loncom/interface/lonmenu.pm 2004/11/30 19:08:18 1.131 +++ loncom/interface/lonmenu.pm 2004/11/30 22:44:29 1.132 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.131 2004/11/30 19:08:18 raeburn Exp $ +# $Id: lonmenu.pm,v 1.132 2004/11/30 22:44:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -960,8 +960,9 @@ NAVCONTROL } sub utilityfunctions { + my $caller = shift; unless (($ENV{'browser.interface'} eq 'textual') || - ($ENV{'environment.remote'} eq 'off')) { return ''; } + ($ENV{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; } my $currenturl=&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}); my $currentsymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); @@ -1102,7 +1103,16 @@ sub handler { $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain); $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); $font=&Apache::loncommon::designparm($function.'.font',$domain); -# ---- Print the screen, pretent to be in text mode to generate text-based menu + my $script_tag; + if ($ENV{'environment.remote'} eq 'on') { + my $utility=&utilityfunctions('/adm/menu'); + $script_tag=(< +$utility + +ENDSCRIPT + } +# ---- Print the screen, pretend to be in text mode to generate text-based menu unless ($ENV{'browser.interface'} eq 'textual') { $ENV{'browser.interface'}='faketextual'; $ENV{'environment.remote'}='off'; @@ -1110,6 +1120,7 @@ sub handler { $r->print(< LON-CAPA Main Menu +$script_tag $bodytag ENDHEADER