X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenu.pl;h=b119d7a59f8c054a306d38225b8ab7032fd99acb;hb=4bbb5dbe9a272bc31d5f059b3ece3e230c2a6642;hp=e97fec3bd4ade006b20ed638fe9472106e10fb46;hpb=ee072e4f077213bf6f8792ca8f0a1afebbb6282f;p=kivitendo-erp.git diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl index e97fec3bd..b119d7a59 100644 --- a/bin/mozilla/menu.pl +++ b/bin/mozilla/menu.pl @@ -28,33 +28,44 @@ # 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 ####################################################################### -$menufile = "menu.ini"; +use strict; + use SL::Menu; +use Data::Dumper; +use URI; -1; +my $menufile = "menu.ini"; +my $mainlevel; # end of main -$framesize = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "190"; - sub display { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + 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(); $form->header; print qq| - - - - - + + + + + You need a browser that can read frames to see this page. @@ -63,29 +74,31 @@ sub display { </HTML> |; - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub acc_menu { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my $locale = $main::locale; + my $framesize = _calc_framesize(); + $mainlevel = $form->{level}; - $mainlevel =~ s/$mainlevel--//g; - my $menu = new Menu "$menufile"; - $menu = new Menu "custom_$menufile" if (-f "custom_$menufile"); - $menu = new Menu "$form->{login}_$menufile" - if (-f "$form->{login}_$menufile"); + $mainlevel =~ s/\Q$mainlevel\E--//g; + my $menu = Menu->new($::menufile); - $form->{title} = $locale->text('Accounting Menu'); + $form->{title} = $locale->text('Lx-Office'); $form->header; print qq| <body class="menu"> - -|; + +|; print qq|<div align="left">\n<table width="| - . $framesize - . qq|" border=0>\n|; + . ($framesize-2) + . qq|" border="0">\n|; &section_menu($menu); @@ -95,39 +108,66 @@ sub acc_menu { </html> |; - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub section_menu { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); my ($menu, $level) = @_; + 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; + # build tiered menus my @menuorder = $menu->access_control(\%myconfig, $level); while (@menuorder) { - $item = shift @menuorder; - $label = $item; - $ml = $item; - $label =~ s/$level--//g; + my $item = shift @menuorder; + my $label = $item; + my $ml = $item; + $label =~ s/\Q$level\E--//g; $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; - $label_icon = $label . ".gif"; - $mlab = $label; + my $label_icon = $level . "--" . $label . ".png"; + my $mlab = $label; $label = $locale->text($label); + + # multi line hack, sschoeling jul06 + # if a label is too long, try to split it at whitespaces, then join it to chunks of less + # than 20 chars and store it in an array. + # use this array later instead of the  -ed label + my @chunks = (); + my ($i,$l) = (-1, 20); + map { + if (($l += length $_) < 20) { + $chunks[$i] .= " $_"; + } else { + $l = length $_; + $chunks[++$i] = $_; + + } + } split / /, $label; + map { s/ / / } @chunks; + # end multi line + $label =~ s/ / /g; $menu->{$item}{target} = "main_window" unless $menu->{$item}{target}; if ($menu->{$item}{submenu}) { $menu->{$item}{$item} = !$form->{$item}; - if ($form->{level} && $item =~ /^$form->{level}/) { + if ($form->{level} && $item =~ /^\Q$form->{level}\E/) { # expand menu if ($zeige) { print - qq|<tr><td valign=bottom><b>$spacer<img src="image/unterpunkt.png">$label</b></td></tr>\n|; + qq|<tr><td style='vertical-align:bottom'><b>$spacer<img src="image/unterpunkt.png">$label</b></td></tr>\n|; } # remove same level items @@ -159,21 +199,67 @@ sub section_menu { &section_menu($menu, $item); } else { if ($zeige) { - print - qq|<tr><td class="hover" height="13" >$spacer<img src="image/unterpunkt.png" style="vertical-align:text-top">| - . $menu->menuitem(\%myconfig, \%$form, $item, $level) - . qq|$label</a></td></tr>\n|; + 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_links_browser)) + { print + qq|<img src="image/icons/16x16/$label_icon" border="0" style="vertical-align:text-top" title="| + . $label + . qq|">  | } + else { + if ($is_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="22" align="left" valign="middle" ><img src="image/$item.png" style="vertical-align:middle"> <a href="menu.pl?path=bin/mozilla&action=acc_menu&level=$ml_&login=$form->{login}&password=$form->{password}" class="nohover">$label</a>    </td></tr>\n|; + 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_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|; &section_menu($menu, $item); - #print qq|<br>\n|; + print qq|\n|; } } } - $lxdebug->leave_sub(); + $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__