[freeside-commits] freeside/FS/FS cust_main.pm, 1.586.2.15, 1.586.2.16

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv16040/FS/FS

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	cust_main.pm 
Log Message:
fix credit cards showing up as PO#s, RT#16291

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.586.2.15
retrieving revision 1.586.2.16
diff -u -w -d -r1.586.2.15 -r1.586.2.16
--- cust_main.pm	14 Jan 2012 07:05:17 -0000	1.586.2.15
+++ cust_main.pm	8 Feb 2012 07:09:46 -0000	1.586.2.16
@@ -5013,6 +5013,10 @@
     "UPDATE cust_main SET paydate = SUBSTRING(paydate FROM 1 FOR 5) || '0' || SUBSTRING(paydate FROM 6) WHERE SUBSTRING(paydate FROM 7 FOR 1) = '-'";
   }
 
+  push @statements, #fix the weird BILL with a cc# in payinfo problem
+    #DCRD to be safe, or CARD?
+    "UPDATE cust_main SET payby = 'DCRD' WHERE payby = 'BILL' and length(payinfo) = 16";
+
   foreach my $sql ( @statements ) {
     my $sth = dbh->prepare($sql) or die dbh->errstr;
     $sth->execute or die $sth->errstr;