X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenu.pl;h=ae2d6b7462e40de32c9729ab19d344ee600ce211;hb=afed390f75f0dad7df9d5aa5fbdac8f3005c852e;hp=9d18c7eced75a2f1d632ca6dbd5aec967014b8f4;hpb=4012cbd7e314abfdd1f04aad3621dece412e4150;p=kivitendo-erp.git diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl index 9d18c7ece..ae2d6b746 100644 --- a/bin/mozilla/menu.pl +++ b/bin/mozilla/menu.pl @@ -28,51 +28,42 @@ # 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 ####################################################################### -my $menufile = "menu.ini"; +use strict; + use SL::Menu; use Data::Dumper; use URI; -use strict; - -my $framesize; +my $menufile = "menu.ini"; my $mainlevel; -#my $framesize = ($ENV{HTTP_USER_AGENT} =~ /mobile/i) ? "130" : "190"; -if ($ENV{HTTP_USER_AGENT} =~ /mobile/i) { - $framesize = "130"; -} elsif ($ENV{HTTP_USER_AGENT} =~ /links/i) { - $framesize = "240"; -} else { - $framesize = "190"; -} - -1; - # end of main 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 $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| - + @@ -89,24 +80,25 @@ sub display { sub acc_menu { $main::lxdebug->enter_sub(); - my $form = $main::form; - my $locale = $main::locale; + my $form = $main::form; + my $locale = $main::locale; + my $framesize = _calc_framesize(); $mainlevel = $form->{level}; $mainlevel =~ s/\Q$mainlevel\E--//g; - my $menu = new Menu "$menufile"; + my $menu = Menu->new($::menufile); - $form->{title} = $locale->text('Accounting Menu'); + $form->{title} = $locale->text('Lx-Office'); $form->header; print qq| - -|; + +|; print qq|
\n\n|; + . ($framesize-2) + . qq|" border="0">\n|; §ion_menu($menu); @@ -123,9 +115,10 @@ 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_not_links_browser = $ENV{HTTP_USER_AGENT} =~ /links/i ? 0 : 1; my $zeige; @@ -139,9 +132,9 @@ sub section_menu { $ml =~ s/--.*//; if ($ml eq $mainlevel) { $zeige = 1; } else { $zeige = 0; } - my $spacer = " " x (($item =~ s/--/--/g) * 1); + my $spacer = " " x (($item =~ s/--/--/g) * 2); $label =~ s/.*--//g; - my $label_icon = $label . ".gif"; + my $label_icon = $level . "--" . $label . ".png"; my $mlab = $label; $label = $locale->text($label); @@ -207,18 +200,31 @@ sub section_menu { if ($zeige) { if (scalar @chunks <= 1) { print - qq|\n|; + qq|\n|; } else { my $tmpitem = $menu->menuitem(\%myconfig, \%$form, $item, $level); print - qq|\n|; map { print - qq|\n|; } 1..$#chunks; @@ -228,12 +234,31 @@ sub section_menu { } else { my $ml_ = $form->escape($ml); print - qq|\n|; + qq|\n|; §ion_menu($menu, $item); - #print qq|
\n|; + print qq|\n|; } } } $main::lxdebug->leave_sub(); } + +sub _calc_framesize { + my $is_lynx_browser = $ENV{HTTP_USER_AGENT} =~ /links/i; + my $is_mobile_browser = $ENV{HTTP_USER_AGENT} =~ /mobile/i; + my $is_mobile_style = $::form->{stylesheet} =~ /mobile/i; + + return $is_mobile_browser && $is_mobile_style ? 130 + : $is_lynx_browser ? 240 + : 200; +} + +1; + +__END__
$spacer| - . $menu->menuitem(\%myconfig, \%$form, $item, $level) - . qq|$label
$spacer| + . $menu->menuitem(\%myconfig, \%$form, $item, $level) ; + + if (-f "image/icons/16x16/$label_icon" && ($is_not_links_browser)) + { print + qq|  | } + else { + if ($is_not_links_browser) { + print qq||; + } + } + + print + qq|$label
$spacer| + qq|
$spacer| . $tmpitem . qq|$chunks[0]
$spacer| + qq|
$spacer| . $tmpitem . qq|$chunks[$_]
 $label    
+ |; + if ($is_not_links_browser) { + print qq||; + } + print qq| $label