X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=sql-ledger%2Fbin%2Fmozilla%2Fpe.pl;fp=sql-ledger%2Fbin%2Fmozilla%2Fpe.pl;h=0000000000000000000000000000000000000000;hp=841c3fef24fb3a602dee92a064f7c4b7b3c4f565;hb=86b1b489a4ed2f9bc0cba6cafeab0d6eca5584dc;hpb=948b8acdd4b9b3864342062d0c397a11f57c5700 diff --git a/sql-ledger/bin/mozilla/pe.pl b/sql-ledger/bin/mozilla/pe.pl deleted file mode 100644 index 841c3fef2..000000000 --- a/sql-ledger/bin/mozilla/pe.pl +++ /dev/null @@ -1,1236 +0,0 @@ -#===================================================================== -# SQL-Ledger Accounting -# Copyright (c) 2002 -# -# 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. -#====================================================================== -# -# project administration -# partsgroup administration -# translation maintainance -# -#====================================================================== - - -use SL::PE; - -1; -# end of main - - - -sub add { - - $form->{title} = "Add"; - - # construct callback - $form->{callback} = "$form->{script}?action=add&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; - - &{ "$form->{type}_header" }; - &{ "$form->{type}_footer" }; - -} - - -sub edit { - - $form->{title} = "Edit"; - - &{ "PE::get_$form->{type}" }("", \%myconfig, \%$form); - &{ "$form->{type}_header" }; - &{ "$form->{type}_footer" }; - -} - - -sub search { - - if ($form->{type} eq 'project') { - $report = "project_report"; - $sort = 'projectnumber'; - $form->{title} = $locale->text('Projects'); - - $number = qq| -