X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenu.pl;h=27643486a7341871a4bee57248df89a9ce630ea9;hb=dc8f62cf5df4a7f8473e7d76fdd98846cea5721f;hp=cffbddebee38e9564e8ae29aaba15f3ff577ad5d;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl index cffbddebe..27643486a 100644 --- a/bin/mozilla/menu.pl +++ b/bin/mozilla/menu.pl @@ -35,25 +35,37 @@ # 2004-12-14 - New Optik - Marco Welter ####################################################################### -$menufile = "menu.ini"; +my $menufile = "menu.ini"; use SL::Menu; +use Data::Dumper; +use URI; + +use strict; + +my $framesize = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "190"; +my $mainlevel; 1; -# end of main - $framesize = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "190"; +# end of main 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 =~ /^(\.\/)?$/; $form->header; print qq| - - + + - - + + You need a browser that can read frames to see this page. @@ -62,18 +74,18 @@ sub display { </HTML> |; - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } +sub acc_menu { + $main::lxdebug->enter_sub(); + my $form = $main::form; + my $locale = $main::locale; -sub acc_menu { - $lxdebug->enter_sub(); - $mainlevel=$form->{level}; - $mainlevel =~ s/$mainlevel--//g; + $mainlevel = $form->{level}; + $mainlevel =~ s/\Q$mainlevel\E--//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'); @@ -83,7 +95,9 @@ sub acc_menu { <body class="menu"> |; - print qq|<div align="left">\n<table width="|.$framesize.qq|" border=0>\n|; + print qq|<div align="left">\n<table width="| + . $framesize + . qq|" border=0>\n|; &section_menu($menu); @@ -93,62 +107,124 @@ sub acc_menu { </html> |; - $lxdebug->leave_sub(); + $main::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|<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); - } 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; - } - } 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) { - 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 $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); - #print qq|<br>\n|; - } - } - } - $lxdebug->leave_sub(); + $main::lxdebug->enter_sub(); + my ($menu, $level) = @_; + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + my $zeige; + + # build tiered menus + my @menuorder = $menu->access_control(\%myconfig, $level); + while (@menuorder) { + 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); + $label =~ s/.*--//g; + my $label_icon = $label . ".gif"; + 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 =~ /^\Q$form->{level}\E/) { + + # expand menu + if ($zeige) { + print + qq|<tr><td style='vertical-align: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); + } 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; + } + } 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?action=acc_menu&level=$ml_" class="nohover">$label</a>    </td></tr>\n|; + &section_menu($menu, $item); + + #print qq|<br>\n|; + } + } + } + $main::lxdebug->leave_sub(); }