--- loncom/interface/lonmenu.pm 2005/02/17 08:29:42 1.147 +++ loncom/interface/lonmenu.pm 2005/02/18 21:23:12 1.148 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.147 2005/02/17 08:29:42 albertel Exp $ +# $Id: lonmenu.pm,v 1.148 2005/02/18 21:23:12 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -443,27 +443,27 @@ ENDREALRES $buttons.=&clear(@rest); } } - my $addremote=0; - foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } } - if ($textual && $addremote) { -# Registered, textual output + + if ($textual) { + my $addremote=0; + foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } } my $inlinebuttons=''; + if ($addremote) { +# Registered, textual output - if ($ENV{'browser.interface'} eq 'textual') { - $inlinebuttons= + if ($ENV{'browser.interface'} eq 'textual') { + $inlinebuttons= join('',map { (defined($_)?$_:'') } @inlineremote); - } else { - $inlinebuttons=(<$inlineremote[21] $inlineremote[23] $inlineremote[61]$inlineremote[62]$inlineremote[63] $inlineremote[71]$inlineremote[72]$inlineremote[73] $inlineremote[81]$inlineremote[82]$inlineremote[83] $inlineremote[91]$inlineremote[92]$inlineremote[93] ENDINLINE + } } - if ($const_space && $is_const_dir) { - $inlinebuttons = ''; - } $result =(< // BEGIN LON-CAPA Internal @@ -485,11 +485,12 @@ ENDREGTEXT my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'}); my $navstatus=&get_nav_status(); my $clearcstr; + if ($ENV{'user.adv'}) { $clearcstr='clearbut(6,1)'; } $result = (< -// BEGIN LON-CAPA Internal +// ENDREGTHIS }