sql-ledger/bin/mozilla/ps.pl

   1 # point of sale script
   2
   3 use SL::AR;
   4 use SL::IS;
   5 use SL::RP;
   6
   7 require "$form->{path}/ar.pl";
   8 require "$form->{path}/is.pl";
   9 require "$form->{path}/rp.pl";
  10 require "$form->{path}/pos.pl";
  11
  12 # customizations
  13 if (-f "$form->{path}/custom_ar.pl") {
  14   eval { require "$form->{path}/custom_ar.pl"; };
  15 }
  16 if (-f "$form->{path}/$form->{login}_ar.pl") {
  17   eval { require "$form->{path}/$form->{login}_ar.pl"; };
  18 }
  19
  20 if (-f "$form->{path}/custom_is.pl") {
  21   eval { require "$form->{path}/custom_is.pl"; };
  22 }
  23 if (-f "$form->{path}/$form->{login}_is.pl") {
  24   eval { require "$form->{path}/$form->{login}_is.pl"; };
  25 }
  26
  27 if (-f "$form->{path}/custom_rp.pl") {
  28   eval { require "$form->{path}/custom_rp.pl"; };
  29 }
  30 if (-f "$form->{path}/$form->{login}_rp.pl") {
  31   eval { require "$form->{path}/$form->{login}_rp.pl"; };
  32 }
  33
  34 if (-f "$form->{path}/custom_pos.pl") {
  35   eval { require "$form->{path}/custom_pos.pl"; };
  36 }
  37 if (-f "$form->{path}/$form->{login}_pos.pl") {
  38   eval { require "$form->{path}/$form->{login}_pos.pl"; };
  39 }
  40
  41 1;
  42 # end