X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ee072e4f077213bf6f8792ca8f0a1afebbb6282f..b8fee3fc:/bin/mozilla/menu.pl diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl deleted file mode 100644 index e97fec3bd..000000000 --- a/bin/mozilla/menu.pl +++ /dev/null @@ -1,179 +0,0 @@ -#===================================================================== -# 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; - -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/$mainlevel--//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'); - - $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/$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|$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) { - print - qq|$spacer

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

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