From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 18 Aug 2015 17:13:29 +0000 (-0700)
Subject:  Pass invoice_number as Cf1 and customer_id as Cf2
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-vSecureProcessing.git;a=commitdiff_plain;h=4f22d262976afe19a2acdb92e5691f0c15755de5;hp=109de1a8388fd8c9f77afd511199426da05f1bf3

 Pass invoice_number as Cf1 and customer_id as Cf2
---

diff --git a/Changes b/Changes
index e8330ec..4333727 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl module Business::OnlinePayment::vSecureProcessing
 
+0.08    Tue Aug 18 10:03:34 PDT 2015
+        - Pass invoice_number as Cf1 and customer_id as Cf2
+
 0.07    Fri Aug  7 20:04:27 PDT 2015
         - Immediately void partial auth by default
 
diff --git a/lib/Business/OnlinePayment/vSecureProcessing.pm b/lib/Business/OnlinePayment/vSecureProcessing.pm
index 696da87..6744e25 100644
--- a/lib/Business/OnlinePayment/vSecureProcessing.pm
+++ b/lib/Business/OnlinePayment/vSecureProcessing.pm
@@ -11,7 +11,7 @@ use Business::OnlinePayment::HTTPS;
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
 $DEBUG = 0;
-$VERSION = '0.07';
+$VERSION = '0.08';
 
 sub _info {
   'info_compat'       => '0.01',
@@ -228,8 +228,8 @@ sub submit {
             Trk1            => ($content{'track1'}) ? $content{'track1'} : '',
             Trk2            => ($content{'track2'}) ? $content{'track2'} : '',
             TypeOfSale      => ($content{'description'}) ? $content{'description'} : '',
-            Cf1             => ($content{'UDField1'}) ? $content{'UDField1'} : '',
-            Cf2             => ($content{'UDField2'}) ? $content{'UDField2'} : '',
+            Cf1             => ($content{'invoice_number'}) ? $content{'invoice_number'} : '',
+            Cf2             => ($content{'customer_id'}) ? $content{'customer_id'} : '',
             Cf3             => '',
             AccountNumber   => ($content{'card_number'}) ? $content{'card_number'} : '',
             ExpirationMonth => $content{'exp_month'},
@@ -521,8 +521,8 @@ from content(%content):
       Amount              => 'amount'
       AvsStreet           => 'address',
       AvsZip              => 'zip',
-      Cf1                 => 'UDField1',
-      Cf2                 => 'UDField2',
+      Cf1                 => 'invoice_number',
+      Cf2                 => 'customer_id',
       IndustryType        => 'IndustryInfo',
 
 =head1 NOTE
@@ -553,8 +553,9 @@ the same terms as Perl itself.
 
 Need a complete, open-source back-office and customer self-service solution?
 The Freeside software includes support for credit card and electronic check
-processing with vSecureProcessing and over 50 other gateways, invoicing, integrated
-trouble ticketing, and customer signup and self-service web interfaces.
+processing with vSecureProcessing and over 60 other gateways, invoicing,
+integrated trouble ticketing, and customer signup and self-service web
+interfaces.
 
 http://freeside.biz/freeside/