From 666c35e4745dc6b5518f53267aadb3233f7cddb8 Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Thu, 14 Jul 2016 23:32:19 -0700
Subject: store credit card type in cust_payby and transaction records, #71291,
 schema support

---
 FS/FS/cust_pay.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'FS/FS/cust_pay.pm')

diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm
index 331a156..8e87745 100644
--- a/FS/FS/cust_pay.pm
+++ b/FS/FS/cust_pay.pm
@@ -97,6 +97,10 @@ Payment Type (See L<FS::payinfo_Mixin> for valid values)
 
 Payment Information (See L<FS::payinfo_Mixin> for data format)
 
+=item cardtype
+
+Credit card type, if appropriate; autodetected.
+
 =item paymask
 
 Masked payinfo (See L<FS::payinfo_Mixin> for how this works)
@@ -1205,6 +1209,12 @@ sub _upgrade_data {  #class method
       process_upgrade_paybatch();
     }
   }
+
+  ###
+  # set cardtype
+  ###
+  $class->upgrade_set_cardtype;
+
 }
 
 sub process_upgrade_paybatch {
-- 
cgit v1.1