diff options
Diffstat (limited to 'sql-ledger/bin/js/menu.pl')
-rw-r--r-- | sql-ledger/bin/js/menu.pl | 188 |
1 files changed, 0 insertions, 188 deletions
diff --git a/sql-ledger/bin/js/menu.pl b/sql-ledger/bin/js/menu.pl deleted file mode 100644 index 718d22d..0000000 --- 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| - -<FRAMESET COLS="$menuwidth,*" BORDER="1"> - - <FRAME NAME="acc_menu" SRC="$form->{script}?login=$form->{login}&sessionid=$form->{sessionid}&action=acc_menu&path=$form->{path}"> - <FRAME NAME="main_window" SRC="am.pl?login=$form->{login}&sessionid=$form->{sessionid}&action=company_logo&path=$form->{path}"> - -</FRAMESET> - -</BODY> -</HTML> -|; - -} - - -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| -<script type="text/javascript"> -function SwitchMenu(obj) { - if (document.getElementById) { - var el = document.getElementById(obj); - var ar = document.getElementById("cont").getElementsByTagName("DIV"); - - if (el.style.display == "none") { - el.style.display = "block"; //display the block of info - } else { - el.style.display = "none"; - } - - } -} -function ChangeClass(menu, newClass) { - if (document.getElementById) { - document.getElementById(menu).className = newClass; - } -} -document.onselectstart = new Function("return false"); -</script> - -<body class=menu> -|; - - §ion_menu($menu); - - print qq| -</body> -</html> -|; - -} - - -sub section_menu { - my ($menu, $level) = @_; - - print qq| - <div id="cont"> - |; - - # 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| -<div id="menu$i" class="menuOut" onclick="SwitchMenu('sub$i')" onmouseover="ChangeClass('menu$i','menuOver')" onmouseout="ChangeClass('menu$i','menuOut')">$label</div> - <div class="submenu" id="sub$i" style="$display">|; - - # remove same level items - map { shift @menuorder } grep /^$item/, @menuorder; - - §ion_menu($menu, $item); - - print qq| - - </div> - |; - - } else { - - if ($menu->{$item}{module}) { - if ($level eq "") { - print qq|<div id="menu$i" class="menuOut" onmouseover="ChangeClass('menu$i','menuOver')" onmouseout="ChangeClass('menu$i','menuOut')"> |. - $menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a></div>|; - - # remove same level items - map { shift @menuorder } grep /^$item/, @menuorder; - - §ion_menu($menu, $item); - - } else { - - print qq|<div class="submenu"> |. - $menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a></div>|; - } - - } else { - - $display = "display: none;" unless $item eq ' '; - - print qq| -<div id="menu$i" class="menuOut" onclick="SwitchMenu('sub$i')" onmouseover="ChangeClass('menu$i','menuOver')" onmouseout="ChangeClass('menu$i','menuOut')">$label</div> - <div class="submenu" id="sub$i" style="$display">|; - - §ion_menu($menu, $item); - - print qq| - - </div> - |; - - } - - } - - } - - print qq| - </div> - |; -} - - -sub menubar { - - 1; - -} - - |