From ac5b087ea2d9ba7428d367aaeb288534158fee9a Mon Sep 17 00:00:00 2001 From: christopherm Date: Fri, 1 Sep 2006 01:16:38 +0000 Subject: Initial Import git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/ledger-smb@1 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/mozilla/ps.pl | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100755 bin/mozilla/ps.pl (limited to 'bin/mozilla/ps.pl') diff --git a/bin/mozilla/ps.pl b/bin/mozilla/ps.pl new file mode 100755 index 00000000..abda8e8f --- /dev/null +++ b/bin/mozilla/ps.pl @@ -0,0 +1,34 @@ +#===================================================================== +# LedgerSMB +# Small Medium Business Accounting software +# +# See COPYRIGHT file for copyright information +#====================================================================== +# +# This file has NOT undergone whitespace cleanup. +# +#====================================================================== +# +# point of sale script +# +####################################################################### + +use LedgerSMB::AA; +use LedgerSMB::IS; +use LedgerSMB::RP; + +require "$form->{path}/ar.pl"; +require "$form->{path}/is.pl"; +require "$form->{path}/rp.pl"; +require "$form->{path}/pos.pl"; + +# customizations +if (-f "$form->{path}/custom_pos.pl") { + eval { require "$form->{path}/custom_pos.pl"; }; +} +if (-f "$form->{path}/$form->{login}_pos.pl") { + eval { require "$form->{path}/$form->{login}_pos.pl"; }; +} + +1; +# end -- cgit v1.2.3