X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenu.pl;h=16d8b75ae57f23b11707d912ae51b94a4199ebf1;hb=1a3569b9a81d6b9ca88941793926327051506122;hp=85efc5c370af07d8616cd4ff20757fa1523e395c;hpb=d0810c4289d895acfb8cf477125c6796c51945e3;p=kivitendo-erp.git diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl index 85efc5c37..16d8b75ae 100644 --- a/bin/mozilla/menu.pl +++ b/bin/mozilla/menu.pl @@ -28,34 +28,43 @@ # 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; +use List::MoreUtils qw(apply); -# end of main +my $nbsp = ' '; +my $mainlevel; -$framesize = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "190"; +# end of main sub display { - $lxdebug->enter_sub(); + $::lxdebug->enter_sub; + + 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; + $::form->header(doctype => 'frameset'); print qq| - - - - + + + + You need a browser that can read frames to see this page. @@ -64,149 +73,163 @@ sub display { </HTML> |; - $lxdebug->leave_sub(); + $::lxdebug->leave_sub; } sub acc_menu { - $lxdebug->enter_sub(); - $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"); - - $form->{title} = $locale->text('Accounting Menu'); + $::lxdebug->enter_sub; - $form->header; + my $framesize = _calc_framesize() - 2; + my $menu = Menu->new("menu.ini"); + $mainlevel = $::form->{level}; + $::form->{title} = $::locale->text('kivitendo'); + $::form->header; - print qq| -<body class="menu"> - -|; - print qq|<div align="left">\n<table width="| - . $framesize - . qq|" border=0>\n|; - - &section_menu($menu); - - print qq|</table></div>|; - print qq| -</body> -</html> -|; + print $::form->parse_html_template('menu/menu', { + framesize => $framesize, + sections => [ section_menu($menu) ], + }); - $lxdebug->leave_sub(); + $::lxdebug->leave_sub; } sub section_menu { - $lxdebug->enter_sub(); + $::lxdebug->enter_sub; my ($menu, $level) = @_; + my @menuorder = $menu->access_control(\%::myconfig, $level); + my @items; + + for my $item (@menuorder) { + my $menuitem = $menu->{$item}; + my $label = apply { s/.*--// } $item; + my $ml = apply { s/--.*// } $item; + my $show = $ml eq $mainlevel; + my $spacer = $nbsp x (($item =~ s/--/--/g) * 2); + my $label_icon = $level . "--" . $label . ".png"; + + next if $level && $item ne "$level--$label"; + + $label = $::locale->text($label); + + $menuitem->{module} ||= $::form->{script}; + $menuitem->{action} ||= "section_menu"; + $menuitem->{target} ||= "main_window"; + $menuitem->{href} ||= "$menuitem->{module}?action=$menuitem->{action}"; + + # add other params + foreach my $key (keys %$menuitem) { + next if $key =~ /target|module|action|href/; + $menuitem->{href} .= "&" . $::form->escape($key, 1) . "="; + my ($value, $conf) = split(/=/, $menuitem->{$key}, 2); + $value = $::myconfig{$value} . "/$conf" if ($conf); + $menuitem->{href} .= $::form->escape($value, 1); + } - # build tiered menus - my @menuorder = $menu->access_control(\%myconfig, $level); - while (@menuorder) { - $item = shift @menuorder; - $label = $item; - $ml = $item; - $label =~ s/$level--//g; - $ml =~ s/--.*//; - if ($ml eq $mainlevel) { $zeige = 1; } - else { $zeige = 0; } - my $spacer = " " x (($item =~ s/--/--/g) * 1); - $label =~ s/.*--//g; - $label_icon = $label . ".gif"; - $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 - @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}/) { - - # expand menu - if ($zeige) { - print - qq|<tr><td valign=bottom><b>$spacer<img src="image/unterpunkt.png">$label</b></td></tr>\n|; - } - - # remove same level items - map { shift @menuorder } grep /^$item/, @menuorder; - &section_menu($menu, $item); + my $anchor = $menuitem->{href}; + + if (!$level) { # toplevel + my $ml_ = $::form->escape($ml); + my $image = make_image(icon => $item . '.png', size => 24, label => $label); + my $anchor = "menu.pl?action=acc_menu&level=$ml_"; + + push @items, make_item(href => $anchor, img => $image, label => $label, height => 24, class => 'menu'); + push @items, section_menu($menu, $item); + + } elsif ($menuitem->{submenu}) { + my $image = make_image(submenu => 1); + if ($mainlevel && $item =~ /^\Q$mainlevel\E/) { + push @items, make_item(target => $menuitem->{target}, spacer => $spacer, img => $image, label => $label, class => 'submenu') if $show; + push @items, section_menu($menu, $item); } else { - if ($zeige) { - print qq|<tr><td>| - . $menu->menuitem(\%myconfig, \%$form, $item, $level) - . qq|$label ...</a></td></tr>\n|; - } - - # remove same level items - map { shift @menuorder } grep /^$item/, @menuorder; + push @items, make_item(spacer => $spacer, href => $anchor, img => $image, label => $label . ' ...', class => 'submenu') if $show; } - } 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; - &section_menu($menu, $item); - } else { - if ($zeige) { - if (scalar @chunks <= 1) { - 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|; - } else { - my $tmpitem = $menu->menuitem(\%myconfig, \%$form, $item, $level); - print - qq|<tr><td class="hover" height="13" >$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:23; 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|; - &section_menu($menu, $item); + } elsif ($menuitem->{module}) { + my $image = make_image(label => $label, icon => $label_icon); + push @items, make_item(target => $menuitem->{target}, img => $image, href => $anchor, spacer => $spacer, label => $label, class => 'item') if $show; + push @items, section_menu($menu, $item) if $show && $::form->{$item} && $::form->{level} eq $item; + } + } + $::lxdebug->leave_sub; + return @items; +} - #print qq|<br>\n|; - } +sub make_item { + my %params = @_; + $params{a} ||= ''; + $params{spacer} ||= ''; + $params{height} ||= 16; + + return { + %params, + chunks => [ multiline($params{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 +sub multiline { + my ($label) = @_; + my @chunks; + my $l = 20; + for (split / /, $label) { + $l += length $_; + if ($l < 20) { + $chunks[-1] .= " $_"; + } else { + $l = length $_; + push @chunks, $_; } } - $lxdebug->leave_sub(); + return @chunks; +} + +sub make_image { + my (%params) = @_; + + my $icon = $params{icon}; + my $size = $params{size} || 16; + + return unless _show_images(); + + my $icon_found = $icon && -f _icon_path($icon, $size); + my $padding = $size == 16 && $icon_found ? $nbsp x 2 + : $size == 24 ? $nbsp + : ''; + + return { + src => $icon_found ? _icon_path($icon, $size) : "image/unterpunkt.png", + alt => $params{label}, + width => $icon_found ? $size : 24, + height => $size, + padding => $padding, + } } + +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; +} + +sub _show_images { + # don't show images in links + _calc_framesize() != 240; +} + +sub _icon_path { + my ($label, $size) = @_; + + $size ||= 16; + + return "image/icons/${size}x${size}/$label"; +} + +1; + +__END__