- my $ml_ = $::form->escape($ml);
- my $image = make_image(icon => $item . '.png', size => 24, label => $label, valign => 'middle');
- my $anchor = "<a href='menu.pl?action=acc_menu&level=$ml_' class='nohover' title='$label'>";
- print qq|<tr><td class="bg" height="24" align="left" valign="middle">$anchor$image$label</a></td></tr>\n|;
-
- §ion_menu($menu, $item);
+ if ($menu->{$item}{module}) {
+ if ($form->{$item} && $form->{level} eq $item) {
+ $menu->{$item}{$item} = !$form->{$item};
+ if ($zeige) {
+ print
+ qq|<tr><td valign=bottom>$spacer<img src="image/unterpunkt.png">|
+ . $menu->menuitem(\%myconfig, \%$form, $item, $level)
+ . qq|$label</a></td></tr>\n|;
+ }
+
+ # remove same level items
+ map { shift @menuorder } grep /^$item/, @menuorder;
+ §ion_menu($menu, $item);
+ } else {
+ if ($zeige) {
+ if (scalar @chunks <= 1) {
+ print
+ qq|<tr><td class="hover" height="16" >$spacer|
+ . $menu->menuitem(\%myconfig, \%$form, $item, $level) ;
+
+ if (-f "image/icons/16x16/$label_icon" && ($is_not_links_browser))
+ { print
+ qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="|
+ . $label
+ . qq|"> | }
+ else {
+ if ($is_not_links_browser) {
+ print qq|<img src="image/unterpunkt.png" border="0" style="vertical-align:text-top">|;
+ }
+ }
+
+ print
+ qq|$label</a></td></tr>\n|;
+ } else {
+ my $tmpitem = $menu->menuitem(\%myconfig, \%$form, $item, $level);
+ print
+ qq|<tr><td class="hover" height="16" >$spacer<img src="image/unterpunkt.png" style="vertical-align:text-top">|
+ . $tmpitem
+ . qq|$chunks[0]</a></td></tr>\n|;
+ map {
+ print
+ qq|<tr style="vertical-align:top""><td class="hover">$spacer<img src="image/unterpunkt.png" style="visibility:hidden; width:24; height=2;">|
+ . $tmpitem
+ . qq|$chunks[$_]</a></td></tr>\n|;
+ } 1..$#chunks;
+ }
+ }
+ }
+ } else {
+ my $ml_ = $form->escape($ml);
+ print
+ qq|<tr><td class="bg" height="24" align="left" valign="middle">
+ <a href="menu.pl?action=acc_menu&level=$ml_" class="nohover" title="$label">|;
+ if ($is_not_links_browser) {
+ print qq|<img src="image/icons/24x24/$item.png" border="0" style="vertical-align:middle" title="$label">|;
+ }
+ print qq| $label</a> </td></tr>\n|;
+ §ion_menu($menu, $item);
+
+ print qq|\n|;
+ }