#===================================================================== # LX-Office ERP # Copyright (C) 2004 # Based on SQL-Ledger Version 2.1.9 # Web http://www.lx-office.org # ###################################################################### # SQL-Ledger Accounting # Copyright (c) 1998-2002 # # Author: Dieter Simader # Email: dsimader@sql-ledger.org # Web: http://www.sql-ledger.org # # Contributors: Christopher Browne # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ####################################################################### # # thre frame layout with refractured menu # # CHANGE LOG: # DS. 2002-03-25 Created # 2004-12-14 - New Optik - Marco Welter ####################################################################### $menufile = "menu.ini"; use SL::Menu; use Data::Dumper; 1; # end of main $framesize = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "190"; sub display { $lxdebug->enter_sub(); $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(); $mainlevel = $form->{level}; $mainlevel =~ s/\Q$mainlevel\E--//g; my $menu = new Menu "$menufile"; $form->{title} = $locale->text('Accounting Menu'); $form->header; print qq| |; print qq|

\n\n|; §ion_menu($menu); print qq|

|; print qq| |; $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/\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; $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 =~ /^\Q$form->{level}\E/) { # expand menu if ($zeige) { print qq|$spacer$label\n|; } # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; §ion_menu($menu, $item); } else { if ($zeige) { print qq|| . $menu->menuitem(\%myconfig, \%$form, $item, $level) . qq|$label ...\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|$spacer

| . $menu->menuitem(\%myconfig, \%$form, $item, $level) . qq|$label\n|; } # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; §ion_menu($menu, $item); } else { if ($zeige) { if (scalar @chunks <= 1) { print qq|$spacer

| . $menu->menuitem(\%myconfig, \%$form, $item, $level) . qq|$label\n|; } else { my $tmpitem = $menu->menuitem(\%myconfig, \%$form, $item, $level); print qq|$spacer

| . $tmpitem . qq|$chunks[0]\n|; map { print qq|$spacer

| . $tmpitem . qq|$chunks[$_]\n|; } 1..$#chunks; } } } } else { my $ml_ = $form->escape($ml); print qq|

$label \n|; §ion_menu($menu, $item); #print qq|
\n|; } } } $lxdebug->leave_sub(); }