1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#=====================================================================
# SQL-Ledger
# Copyright (c) DWS Systems Inc.
#
# Author: DWS Systems Inc.
# Web: http://www.sql-ledger.com
#
#=====================================================================
#
# point of sale script
#
#=====================================================================
use SL::AA;
use SL::IS;
use SL::RP;
require "$form->{path}/rp.pl";
require "$form->{path}/ar.pl";
require "$form->{path}/is.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}/custom/$form->{login}/pos.pl") {
eval { require "$form->{path}/custom/$form->{login}/pos.pl"; };
}
1;
# end
|
