X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenu.pl;h=c51596dbb02573602c019e2c615dd33ce9596b60;hb=7712480e4a082f84a2229f5b1a90d79a6c01255b;hp=cffbddebee38e9564e8ae29aaba15f3ff577ad5d;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl index cffbddebe..c51596dbb 100644 --- a/bin/mozilla/menu.pl +++ b/bin/mozilla/menu.pl @@ -37,11 +37,13 @@ $menufile = "menu.ini"; use SL::Menu; +use Data::Dumper; 1; + # end of main - $framesize = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "190"; +$framesize = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "190"; sub display { $lxdebug->enter_sub(); @@ -49,7 +51,7 @@ sub display { $form->header; print qq| - + @@ -65,15 +67,14 @@ sub display { $lxdebug->leave_sub(); } - - sub acc_menu { $lxdebug->enter_sub(); - $mainlevel=$form->{level}; + $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"); + $menu = new Menu "$form->{login}_$menufile" + if (-f "$form->{login}_$menufile"); $form->{title} = $locale->text('Accounting Menu'); @@ -83,7 +84,9 @@ sub acc_menu { |; - print qq|
\n\n|; + print qq|
\n
\n|; §ion_menu($menu); @@ -96,59 +99,111 @@ sub acc_menu { $lxdebug->leave_sub(); } - sub section_menu { $lxdebug->enter_sub(); - my ($menu, $level) = @_; - # 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); - $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|\n|;} - # remove same level items - map { shift @menuorder } grep /^$item/, @menuorder; - §ion_menu($menu, $item); - } else { - if ($zeige) { print qq|\n|;} - # remove same level items - map { shift @menuorder } grep /^$item/, @menuorder; - } - } else { - if ($menu->{$item}{module}) { - if ($form->{$item} && $form->{level} eq $item) { - $menu->{$item}{$item} = !$form->{$item}; - if ($zeige) { print qq|\n|;} - # remove same level items - map { shift @menuorder } grep /^$item/, @menuorder; - §ion_menu($menu, $item); - } else { - if ($zeige) { - print qq|\n|; - } - } - } else { - my $ml_ = $form->escape($ml); - print qq|\n|; - §ion_menu($menu, $item); - #print qq|
\n|; - } - } - } + my ($menu, $level) = @_; + + # 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 { + $l += length $_; + if ($l < 20) { $chunks[$i] .= " $_"; + } else { $l =length $_; $chunks[++$i] = $_; } + } split / /, $label; + map { $chunks[$_] =~ s/ / / } 0..$#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|\n|; + } + + # remove same level items + map { shift @menuorder } grep /^$item/, @menuorder; + §ion_menu($menu, $item); + } else { + if ($zeige) { + print qq|\n|; + } + + # remove same level items + map { shift @menuorder } grep /^$item/, @menuorder; + } + } else { + if ($menu->{$item}{module}) { + if ($form->{$item} && $form->{level} eq $item) { + $menu->{$item}{$item} = !$form->{$item}; + if ($zeige) { + print + qq|\n|; + } + + # remove same level items + map { shift @menuorder } grep /^$item/, @menuorder; + §ion_menu($menu, $item); + } else { + if ($zeige) { + if (scalar @chunks <= 1) { + print + qq|\n|; + } else { + my $tmpitem = $menu->menuitem(\%myconfig, \%$form, $item, $level); + print + qq|\n|; + map { + print + qq|\n|; + } 1..$#chunks; + } + } + } + } else { + my $ml_ = $form->escape($ml); + print + qq|\n|; + §ion_menu($menu, $item); + + #print qq|
\n|; + } + } + } $lxdebug->leave_sub(); }
$spacer$label
|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label ...
$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label
$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label
 $label    
$spacer$label
| + . $menu->menuitem(\%myconfig, \%$form, $item, $level) + . qq|$label ...
$spacer| + . $menu->menuitem(\%myconfig, \%$form, $item, $level) + . qq|$label
$spacer| + . $menu->menuitem(\%myconfig, \%$form, $item, $level) + . qq|$label
$spacer| + . $tmpitem + . qq|$chunks[0]
$spacer| + . $tmpitem + . qq|$chunks[$_]
 $label