- } else {
- 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|;
+ } elsif ($menuitem->{module}) {
+ if ($::form->{$item} && $::form->{level} eq $item) {
+ my $image = make_image();
+ print qq|<tr><td valign=bottom>$spacer$image$anchor$label</a></td></tr>\n| if $show;
+
+ # remove same level items
+ $menu->{$_}{HIDDEN} = 1 for grep /^$item/, @menuorder;
+ section_menu($menu, $item);
+ } elsif ($show) {
+ my $image1 = make_image(label => $label, icon => $label_icon);
+ my $image2 = make_image(hidden => 1);
+ print "<tr><td class='hover' height='16'>$spacer$anchor$image1$chunks[0]</a></td></tr>\n";
+ print "<tr style='vertical-align:top'><td class='hover'>$spacer$image2$anchor$chunks[$_]</a></td></tr>\n"
+ for 1..$#chunks;