[freeside-commits] freeside/FS/FS cust_main.pm, 1.280,
1.281 Schema.pm, 1.50, 1.51
Jeff Finucane,420,,
jeff at wavetail.420.am
Fri Apr 6 12:38:11 PDT 2007
Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv22328/FS/FS
Modified Files:
cust_main.pm Schema.pm
Log Message:
ticket 1443 add account type and bank state for echeck processing
Index: Schema.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Schema.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- Schema.pm 5 Apr 2007 02:04:21 -0000 1.50
+++ Schema.pm 6 Apr 2007 19:38:08 -0000 1.51
@@ -447,6 +447,8 @@
'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, '', '',
Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.280
retrieving revision 1.281
diff -u -d -r1.280 -r1.281
--- cust_main.pm 5 Apr 2007 02:04:21 -0000 1.280
+++ cust_main.pm 6 Apr 2007 19:38:08 -0000 1.281
@@ -2,7 +2,7 @@
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 @@
$ignore_expired_card = 0;
@encrypted_fields = ('payinfo', 'paycvv');
+ at 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 {
@@ -1336,6 +1337,7 @@
$error = $self->ut_numbern('paystart_month')
|| $self->ut_numbern('paystart_year')
|| $self->ut_numbern('payissue')
+ || $self->ut_textn('paytype')
;
return $error if $error;
More information about the freeside-commits
mailing list