X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=sql-ledger%2Fbin%2Fjs%2Fmenu.pl;fp=sql-ledger%2Fbin%2Fjs%2Fmenu.pl;h=0000000000000000000000000000000000000000;hb=86b1b489a4ed2f9bc0cba6cafeab0d6eca5584dc;hp=718d22dfd7cd2388b1d2dc35e11f8b9ea63d1563;hpb=948b8acdd4b9b3864342062d0c397a11f57c5700;p=freeside.git diff --git a/sql-ledger/bin/js/menu.pl b/sql-ledger/bin/js/menu.pl deleted file mode 100644 index 718d22dfd..000000000 --- a/sql-ledger/bin/js/menu.pl +++ /dev/null @@ -1,188 +0,0 @@ -###################################################################### -# SQL-Ledger Accounting -# Copyright (c) 2004 -# -# Author: Dieter Simader -# Email: dsimader@sql-ledger.org -# Web: http://www.sql-ledger.org -# -# -# 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. -####################################################################### - -$menufile = "menu.ini"; -use SL::Menu; - - -1; -# end of main - - -sub display { - - $menuwidth = ($myconfig{menuwidth}) ? $myconfig{menuwidth} : ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "155"; - - $form->header(1); - - print qq| - - - - - - - - - - -|; - -} - - -sub acc_menu { - - 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'); - - $form->header; - - print qq| - - - -|; - - §ion_menu($menu); - - print qq| - - -|; - -} - - -sub section_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| - - - |; - - } else { - - if ($menu->{$item}{module}) { - if ($level eq "") { - print qq||; - - # remove same level items - map { shift @menuorder } grep /^$item/, @menuorder; - - §ion_menu($menu, $item); - - } else { - - print qq|
|. - $menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label
|; - } - - } else { - - $display = "display: none;" unless $item eq ' '; - - print qq| - - - |; - - } - - } - - } - - print qq| -
- |; -} - - -sub menubar { - - 1; - -} - -