X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=sql-ledger%2Fold%2Fsql-ledger%2Fbin%2Flynx%2Fmenu.pl;fp=sql-ledger%2Fold%2Fsql-ledger%2Fbin%2Flynx%2Fmenu.pl;h=0000000000000000000000000000000000000000;hp=5599716856217070d5c5f63fc43e6f4bbb9df2c2;hb=0554f5dec1d99c9be70b2a0b841b5327db917dbe;hpb=ac9a5336dd181bc617710a09effc3efa1a0d5932 diff --git a/sql-ledger/old/sql-ledger/bin/lynx/menu.pl b/sql-ledger/old/sql-ledger/bin/lynx/menu.pl deleted file mode 100644 index 559971685..000000000 --- a/sql-ledger/old/sql-ledger/bin/lynx/menu.pl +++ /dev/null @@ -1,128 +0,0 @@ -###################################################################### -# SQL-Ledger Accounting -# Copyright (c) 2001 -# -# 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. -####################################################################### -# -# menu for text based browsers (lynx) -# -# CHANGE LOG: -# DS. 2000-07-04 Created -# DS. 2001-08-07 access control -# CBB 2002-02-09 Refactored HTML out to subroutines -####################################################################### - -$menufile = "menu.ini"; -use SL::Menu; - - -1; -# end of main - - - -sub display { - - $menu = new Menu "$menufile"; - - @menuorder = $menu->access_control(\%myconfig); - - $form->{title} = "SQL-Ledger $form->{version}"; - - $form->header; - - $offset = int (21 - $#menuorder)/2; - - print "
"; - print "\n" x $offset; - print ""; - - print qq|
".$menu->menuitem(\%myconfig, \%$form, $_).$locale->text($_).qq| |