X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenu.pl;h=4a46026fe6cccb4923d62bc8437f190c2dae2dc3;hb=24b6b41bbc19de53e40315124350df14314c6fd6;hp=27643486a7341871a4bee57248df89a9ce630ea9;hpb=20310b7f2138d6bcef41303e351fbc49de8c6ae0;p=kivitendo-erp.git diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl index 27643486a..4a46026fe 100644 --- a/bin/mozilla/menu.pl +++ b/bin/mozilla/menu.pl @@ -35,18 +35,15 @@ # 2004-12-14 - New Optik - Marco Welter ####################################################################### -my $menufile = "menu.ini"; +use strict; + use SL::Menu; use Data::Dumper; use URI; -use strict; - -my $framesize = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "190"; +my $menufile = "menu.ini"; my $mainlevel; -1; - # end of main sub display { @@ -57,6 +54,7 @@ sub display { 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; @@ -80,12 +78,13 @@ 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'); @@ -228,3 +227,17 @@ sub section_menu { } $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 + : 190; +} + +1; + +__END__