--- loncom/interface/lonmenu.pm 2007/07/16 01:57:38 1.220 +++ loncom/interface/lonmenu.pm 2007/08/17 22:12:30 1.223 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.220 2007/07/16 01:57:38 raeburn Exp $ +# $Id: lonmenu.pm,v 1.223 2007/08/17 22:12:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -547,19 +547,24 @@ $inlineremote[91] $inlineremote[92] $inl ENDINLINEICONS } } else { - $inlinebuttons=(<$inlineremote[21] $inlineremote[23] ENDFIRSTLINE - if (&hidden_button_check() ne 'yes') { - $inlinebuttons .= (<$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 (&hidden_button_check() ne 'yes') { + foreach my $row (6..9) { + if ($inlineremote[${row}.'1'] ne '' + || $inlineremote[$row.'2'] ne '' + || $inlineremote[$row.'3'] ne '') { + $inlinebuttons .= <<"ENDLINE"; +$inlineremote["${row}1"]$inlineremote["${row}2"]$inlineremote["${row}3"] +ENDLINE + } + } + } + } + } } $result =(< @@ -807,15 +812,16 @@ sub open { return ''; } my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'}; - unless (shift eq 'unix') { + +# unless (shift eq 'unix') { # resizing does not work on linux because of virtual desktop sizes - $returnval.=(<