--- loncom/interface/lonmenu.pm 2004/11/30 19:08:18 1.131 +++ loncom/interface/lonmenu.pm 2004/12/02 23:03:32 1.133 @@ -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.133 2004/12/02 23:03:32 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -259,7 +259,7 @@ sub innerregister { $newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'}; my $maptitle=&Apache::lonnet::gettitle($mapurl); my $restitle=&Apache::lonnet::gettitle($resurl); - if ($maptitle) { + if ($maptitle && $maptitle ne 'default.sequence') { $newmail.=', '.$maptitle; } if ($restitle) { @@ -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