[freeside-commits] freeside/FS/FS cust_main.pm, 1.271.2.6, 1.271.2.7 Schema.pm, 1.44.2.1, 1.44.2.2

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv22509/FS/FS

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cust_main.pm Schema.pm 
Log Message:
ticket 1443 add account type and bank state for echeck processing (backport)

Index: Schema.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Schema.pm,v
retrieving revision 1.44.2.1
retrieving revision 1.44.2.2
diff -u -d -r1.44.2.1 -r1.44.2.2
--- Schema.pm	15 Mar 2007 20:08:55 -0000	1.44.2.1
+++ Schema.pm	6 Apr 2007 19:41:57 -0000	1.44.2.2
@@ -445,6 +445,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.271.2.6
retrieving revision 1.271.2.7
diff -u -d -r1.271.2.6 -r1.271.2.7
--- cust_main.pm	21 Mar 2007 23:07:17 -0000	1.271.2.6
+++ cust_main.pm	6 Apr 2007 19:41:57 -0000	1.271.2.7
@@ -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 { 
@@ -1333,6 +1334,7 @@
   $error =    $self->ut_numbern('paystart_month')
            || $self->ut_numbern('paystart_year')
            || $self->ut_numbern('payissue')
+           || $self->ut_textn('paytype')
   ;
   return $error if $error;