X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenu.pl;h=b119d7a59f8c054a306d38225b8ab7032fd99acb;hb=ee1d7e16868223bdeb2be45555b4d15545b53c7c;hp=92fa43fa2f571df2cfede04f04496a6ab3a72de2;hpb=ad27efa6a3b7e8feea8497c24acebe5bd501156b;p=kivitendo-erp.git diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl index 92fa43fa2..b119d7a59 100644 --- a/bin/mozilla/menu.pl +++ b/bin/mozilla/menu.pl @@ -28,11 +28,13 @@ # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ####################################################################### # -# thre frame layout with refractured menu +# the frame layout with refractured menu # # CHANGE LOG: # DS. 2002-03-25 Created # 2004-12-14 - New Optik - Marco Welter +# 2010-08-19 - Icons for sub entries and single click behavior, unlike XUL-Menu +# JS switchable HTML-menu - Sven Donath ####################################################################### use strict; @@ -49,19 +51,19 @@ my $mainlevel; sub display { $main::lxdebug->enter_sub(); - my $form = $main::form; + my $form = $main::form; - my $callback = $form->unescape($form->{callback}); - $callback = URI->new($callback)->rel($callback) if $callback; - $callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/; - my $framesize = _calc_framesize(); + my $callback = $form->unescape($form->{callback}); + $callback = URI->new($callback)->rel($callback) if $callback; + $callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/; + my $framesize = _calc_framesize(); $form->header; print qq| - + @@ -92,10 +94,10 @@ sub acc_menu { print qq| - -|; + +|; print qq|
\n\n|; §ion_menu($menu); @@ -113,9 +115,11 @@ sub section_menu { $main::lxdebug->enter_sub(); my ($menu, $level) = @_; - my $form = $main::form; - my %myconfig = %main::myconfig; - my $locale = $main::locale; + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + my $is_links_browser = 1; + if ( _calc_framesize() eq 240) { $is_links_browser = 0; } my $zeige; @@ -197,18 +201,20 @@ sub section_menu { if ($zeige) { if (scalar @chunks <= 1) { print - qq|\n|; } else { @@ -229,7 +235,12 @@ sub section_menu { } else { my $ml_ = $form->escape($ml); print - qq|\n|; + qq|\n|; §ion_menu($menu, $item); print qq|\n|; @@ -246,7 +257,7 @@ sub _calc_framesize { return $is_mobile_browser && $is_mobile_style ? 130 : $is_lynx_browser ? 240 - : 190; + : 200; } 1;
$spacer| + qq|
$spacer| . $menu->menuitem(\%myconfig, \%$form, $item, $level) ; - - if (-f "image/icons/16x16/$label_icon") - { print - qq|  | } + + if (-f "image/icons/16x16/$label_icon" && ($is_links_browser)) + { print + qq|  | } else { - print qq||; - } - + if ($is_links_browser) { + print qq||; + } + } + print qq|$label
 $label    
+ |; + if ($is_links_browser) { + print qq||; + } + print qq| $label