X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/25b37b7f3ab68650c1d8898b534cac5bdd64c7e5..3ab26ffcd0c8bfbf08508624c9ea07fbc6b4352a:/bin/mozilla/menu.pl diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl index ac5ba0020..7e280ffd5 100644 --- a/bin/mozilla/menu.pl +++ b/bin/mozilla/menu.pl @@ -40,146 +40,91 @@ use strict; use SL::Menu; -use Data::Dumper; use URI; use List::MoreUtils qw(apply); -my $menufile = "menu.ini"; -my $nbsp = ' '; -my $mainlevel; - -# end of main - -sub display { +sub render { $::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; - - print qq| - - - - - - - - You need a browser that can read frames to see this page. - - - -|; - - $::lxdebug->leave_sub; -} - -sub acc_menu { - $::lxdebug->enter_sub; - - my $framesize = _calc_framesize() - 2; - my $menu = Menu->new($::menufile); - $mainlevel = $::form->{level}; - $::form->{title} = $::locale->text('Lx-Office'); - $::form->header; - - print qq| - + $::form->use_stylesheet(qw(css/icons16.css css/icons24.css)); -

\n\n|; + my $menu = Menu->new("menu.ini"); - section_menu($menu); - - print qq|

- - -|; + my $sections = [ section_menu($menu) ]; $::lxdebug->leave_sub; + $::form->parse_html_template('menu/menu', { + sections => $sections, + inline => 1, + }); } sub section_menu { - $::lxdebug->enter_sub; - my ($menu, $level) = @_; - - # build tiered menus + $::lxdebug->enter_sub(2); + my ($menu, $level, $id_prefix) = @_; my @menuorder = $menu->access_control(\%::myconfig, $level); + my @items; + + my $id = 0; + for my $item (@menuorder) { my $menuitem = $menu->{$item}; - my $label = apply { s/.*--// } $item; + my $olabel = 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"; - - $label = $::locale->text($label); - - $menuitem->{target} ||= "main_window"; - - my $anchor = $menu->menuitem(\%::myconfig, $::form, $item, $level); - - next if $menuitem->{HIDDEN}; - - # 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 $l = 20; - for (split / /, $label) { - $l += length $_; - if ($l < 20) { - $chunks[-1] .= " $_"; - } else { - $l = length $_; - push @chunks, $_; - } + my $icon_class = apply { y/ /-/ } $item; + my $spacer = "s" . (0 + $item =~ s/--/--/g); + + next if $level && $item ne "$level--$olabel"; + + my $label = $::locale->text($olabel); + + $menuitem->{module} ||= $::form->{script}; + $menuitem->{action} ||= "section_menu"; + $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); } - # end multi line - - if ($menuitem->{submenu}) { - if ($::form->{level} && $item =~ /^\Q$::form->{level}\E/) { - my $image = make_image(submenu => 1); - print "$spacer$image$label\n" if $show; - - # remove same level items - $menu->{$_}{HIDDEN} = 1 for grep /^$item/, @menuorder; - section_menu($menu, $item); - } else { - print "$anchor$label ...\n" if $show; - - # remove same level items - $menu->{$_}{HIDDEN} = 1 for grep /^$item/, @menuorder; - } + + my $anchor = $menuitem->{href}; + + my %common_args = ( + l => $label, + s => $spacer, + id => "$id_prefix\_$id", + ); + + if (!$level) { # toplevel + push @items, { %common_args, + i => "icon24 $icon_class", # make_image(size => 24, label => $item), + c => 'm', + }; + push @items, section_menu($menu, $item, "$id_prefix\_$id"); + } elsif ($menuitem->{submenu}) { + push @items, { %common_args, + i => "icon16 submenu", #make_image(label => 'submenu'), + c => 'sm', + }; + push @items, section_menu($menu, $item, "$id_prefix\_$id"); } elsif ($menuitem->{module}) { - if ($::form->{$item} && $::form->{level} eq $item) { - my $image = make_image(); - print qq|$spacer$image$anchor$label\n| if $show; - - # remove same level items - $menu->{$_}{HIDDEN} = 1 for grep /^$item/, @menuorder; - section_menu($menu, $item); - } elsif ($show) { - my $image1 = make_image(label => $label, icon => $label_icon); - my $image2 = make_image(hidden => 1); - print "$spacer$anchor$image1$chunks[0]\n"; - print "$spacer$image2$anchor$chunks[$_]\n" - for 1..$#chunks; - } - } else { - my $ml_ = $::form->escape($ml); - my $image = make_image(icon => $item . '.png', size => 24, label => $label, valign => 'middle'); - my $anchor = ""; - print qq|$anchor$image$label\n|; - - §ion_menu($menu, $item); + push @items, { %common_args, + i => "icon16 $icon_class", #make_image(size => 16, label => $item), + h => $anchor, + c => 'i', + }; } + } continue { + $id++; } - $::lxdebug->leave_sub; + + $::lxdebug->leave_sub(2); + return @items; } sub _calc_framesize { @@ -197,38 +142,6 @@ sub _show_images { _calc_framesize() != 240; } -sub make_image { - my (%params) = @_; - - my $label = $params{label}; - my $icon = $params{icon}; - my $hidden = $params{hidden}; - my $size = $params{size} || 16; - my $valign = $params{valign} || 'text-top'; - - return unless _show_images(); - - my $icon_found = $icon && -f _icon_path($icon, $size); - - my $image_url = $icon_found ? _icon_path($icon, $size) : "image/unterpunkt.png"; - my $style = $hidden ? "visibility:hidden" : "vertical-align:$valign"; - my $width = $hidden ? "width='$size'" : ''; - - my $padding = $size == 16 && $icon_found || $hidden ? $nbsp x 2 - : $size == 24 ? $nbsp - : ''; - - return "

$padding"; -} - -sub _icon_path { - my ($label, $size) = @_; - - $size ||= 16; - - return "image/icons/${size}x${size}/$label"; -} - 1; __END__