###################################################################### # SQL-Ledger Accounting # Copyright (c) 2001 # # Author: DWS Systems Inc. # Web: http://www.sql-ledger.org # # Contributors: Christopher Browne # Tony Fraser # # 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. ####################################################################### # # two frame layout with refractured menu # ####################################################################### $menufile = "menu.ini"; use SL::Menu; 1; # end of main sub display { $menuwidth = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "155"; $menuwidth = $myconfig{menuwidth} if $myconfig{menuwidth}; $form->header; print qq| |; } sub acc_menu { my $menu = new Menu "$menufile"; $menu->add_file("custom_$menufile") if -f "custom_$menufile"; $menu->add_file("$form->{login}_$menufile") if -f "$form->{login}_$menufile"; $form->{title} = $locale->text('Accounting Menu'); $form->header; print qq|

|; if ($form->{js}) { &js_menu($menu); } else { §ion_menu($menu); } print qq| |; } sub section_menu { my ($menu, $level) = @_; # build tiered menus my @menuorder = $menu->access_control(\%myconfig, $level); while (@menuorder) { $item = shift @menuorder; $label = $item; $label =~ s/$level--//g; my $spacer = " " x (($item =~ s/--/--/g) * 2); $label =~ s/.*--//g; $label = $locale->text($label); $label =~ s/ / /g if $label !~ /{$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 print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label|; # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; §ion_menu($menu, $item); print qq|
\n|; } else { print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label ...|; # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; } } else { if ($menu->{$item}{module}) { print qq|
\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label|; } else { $form->{tag}++; print qq|

$label|; §ion_menu($menu, $item); print qq|
\n|; } } } } sub js_menu { my ($menu, $level) = @_; print qq|

|; # build tiered menus my @menuorder = $menu->access_control(\%myconfig, $level); while (@menuorder){ $i++; $item = shift @menuorder; $label = $item; $label =~ s/.*--//g; $label = $locale->text($label); $menu->{$item}{target} = "main_window" unless $menu->{$item}{target}; if ($menu->{$item}{submenu}) { $display = "display: none;" unless $level eq ' '; print qq|

|; # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; &js_menu($menu, $item); print qq|

|; } else { if ($menu->{$item}{module}) { if ($level eq "") { print qq||; # remove same level items map { shift @menuorder } grep /^$item/, @menuorder; &js_menu($menu, $item); } else { print qq|

|. $menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label

|; } } else { $display = "display: none;" unless $item eq ' '; print qq|

|; &js_menu($menu, $item); print qq|

|; } } } print qq|

|; } sub menubar { 1; }