Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI/money.pm

   1 package OpenILS::Application::Storage::CDBI::money;
   2 our $VERSION = 1;
   3
   4 #-------------------------------------------------------------------------------
   5 package money;
   6 use base qw/OpenILS::Application::Storage::CDBI/;
   7 #-------------------------------------------------------------------------------
   8
   9 package money::billable_transaction;
  10 use base qw/money/;
  11 __PACKAGE__->table('money_billable_xact');
  12 __PACKAGE__->columns(Primary => 'id');
  13 __PACKAGE__->columns(Essential => qw/xact_start usr/);
  14 __PACKAGE__->columns(Others => qw/xact_finish/);
  15 #-------------------------------------------------------------------------------
  16
  17 package money::billing;
  18 use base qw/money/;
  19 __PACKAGE__->table('money_billing');
  20 __PACKAGE__->columns(Primary => 'id');
  21 __PACKAGE__->columns(Essential => qw/xact amount billing_ts/);
  22 __PACKAGE__->columns(Others => qw/note/);
  23 #-------------------------------------------------------------------------------
  24
  25 package money::payment;
  26 use base qw/money/;
  27 __PACKAGE__->table('money_payment');
  28 __PACKAGE__->columns(Primary => 'id');
  29 __PACKAGE__->columns(Essential => qw/xact amount payment_ts/);
  30 __PACKAGE__->columns(Others => qw/note/);
  31 #-------------------------------------------------------------------------------
  32
  33 package money::cash_payment;
  34 use base qw/money/;
  35 __PACKAGE__->table('money_cash_payment');
  36 __PACKAGE__->columns(Primary => 'id');
  37 __PACKAGE__->columns(Essential => qw/xact amount payment_ts cash_drawer accepting_usr amount_collected/);
  38 __PACKAGE__->columns(Others => qw/note/);
  39 #-------------------------------------------------------------------------------
  40
  41 package money::check_payment;
  42 use base qw/money/;
  43 __PACKAGE__->table('money_check_payment');
  44 __PACKAGE__->columns(Primary => 'id');
  45 __PACKAGE__->columns(Essential => qw/xact amount payment_ts cash_drawer check_number accepting_usr amount_collected/);
  46 __PACKAGE__->columns(Others => qw/note/);
  47 #-------------------------------------------------------------------------------
  48
  49 package money::credit_card_payment;
  50 use base qw/money/;
  51 __PACKAGE__->table('money_credit_card_payment');
  52 __PACKAGE__->columns(Primary => 'id');
  53 __PACKAGE__->columns(Essential => qw/xact amount payment_ts cash_drawer
  54                                      accepting_usr amount_collected cc_type
  55                                      cc_number expire_month expire_year
  56                                      approval_code/);
  57 __PACKAGE__->columns(Others => 'note');
  58 #-------------------------------------------------------------------------------
  59
  60 package money::forgive_payment;
  61 use base qw/money/;
  62 __PACKAGE__->table('money_payment');
  63 __PACKAGE__->columns(Primary => 'id');
  64 __PACKAGE__->columns(Essential => qw/xact amount payment_ts accepting_usr amount_collected/);
  65 __PACKAGE__->columns(Others => qw/note/);
  66 #-------------------------------------------------------------------------------
  67
  68 package money::work_payment;
  69 use base qw/money::forgive_payment/;
  70 __PACKAGE__->table('money_work_payment');
  71 #-------------------------------------------------------------------------------
  72
  73 package money::credit_payment;
  74 use base qw/money::forgive_payment/;
  75 __PACKAGE__->table('money_credit_payment');
  76
  77 #-------------------------------------------------------------------------------
  78
  79 1;
  80