diff options
| author | jeff <jeff> | 2007-04-06 19:41:57 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-04-06 19:41:57 +0000 |
| commit | 59a1b6ce3bf606b2a3cc7638905431b5a73c3e2d (patch) | |
| tree | da4e44b3542e5cbc79609ccf168f3cdfbbe13a00 /FS/FS | |
| parent | 393e423d6fef10ed5c3770d7c68c30d951ec54f6 (diff) | |
ticket 1443 add account type and bank state for echeck processing (backport)
Diffstat (limited to 'FS/FS')
| -rw-r--r-- | FS/FS/Schema.pm | 2 | ||||
| -rw-r--r-- | FS/FS/cust_main.pm | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index 3b7030693..ccea14c81 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -445,6 +445,8 @@ sub tables_hashref { 'paystart_year', 'int', 'NULL', '', '', '', 'payissue', 'varchar', 'NULL', 2, '', '', 'payname', 'varchar', 'NULL', $char_d, '', '', + 'paystate', 'varchar', 'NULL', $char_d, '', '', + 'paytype', 'varchar', 'NULL', $char_d, '', '', 'payip', 'varchar', 'NULL', 15, '', '', 'tax', 'char', 'NULL', 1, '', '', 'otaker', 'varchar', '', 32, '', '', diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 7f8602e4a..f8ab82443 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -2,7 +2,7 @@ package FS::cust_main; use strict; use vars qw( @ISA @EXPORT_OK $DEBUG $me $conf @encrypted_fields - $import $skip_fuzzyfiles $ignore_expired_card ); + $import $skip_fuzzyfiles $ignore_expired_card @paytypes); use vars qw( $realtime_bop_decline_quiet ); #ugh use Safe; use Carp; @@ -70,6 +70,7 @@ $skip_fuzzyfiles = 0; $ignore_expired_card = 0; @encrypted_fields = ('payinfo', 'paycvv'); +@paytypes = ('Personal checking', 'Personal savings', 'Business checking', 'Business savings'); #ask FS::UID to run this stuff for us later #$FS::UID::callback{'FS::cust_main'} = sub { @@ -1333,6 +1334,7 @@ sub check { $error = $self->ut_numbern('paystart_month') || $self->ut_numbern('paystart_year') || $self->ut_numbern('payissue') + || $self->ut_textn('paytype') ; return $error if $error; |