Pass Cf1/Cf2 for voids and refunds as well

diff --git a/Changes b/Changes
index 4333727..3639c62 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl module Business::OnlinePayment::vSecureProcessing
 
+0.09    Thu Nov  5 10:32:10 PST 2015
+        - Pass Cf1/Cf2 for voids and refunds as well
+
 0.08    Tue Aug 18 10:03:34 PDT 2015
         - Pass invoice_number as Cf1 and customer_id as Cf2
 

diff --git a/lib/Business/OnlinePayment/vSecureProcessing.pm b/lib/Business/OnlinePayment/vSecureProcessing.pm
index 6744e25..f7d8b9d 100644 (file)
--- 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.08';
+$VERSION = '0.09';
 
 sub _info {
   'info_compat'       => '0.01',
@@ -39,7 +39,7 @@ my %payment_actions = (
         path      => '/vsg2/processpayment',
         process   => 'ProcessPayment',
         fields    => [qw/
-          Amount Trk1 Trk2 TypeOfSale Cf1 Cf2 Cf AccountNumber
+          Amount Trk1 Trk2 TypeOfSale Cf1 Cf2 Cf3 AccountNumber
           ExpirationMonth ExpirationYear Cvv
           CardHolderFirstName CardHolderLastName AvsZip AvsStreet
           IndustryType ApplicationId Recurring
@@ -49,7 +49,8 @@ my %payment_actions = (
         path      => '/vsg2/processvoid',
         process   => 'ProcessVoid',
         fields    => [qw(
-          Amount AccountNumber ExpirationMonth ExpirationYear ReferenceNumber
+          Amount Cf1 Cf2 Cf3 AccountNumber
+          ExpirationMonth ExpirationYear ReferenceNumber
           TransactionDate IndustryType ApplicationId
         )],
     },
@@ -57,7 +58,8 @@ my %payment_actions = (
         path      => '/vsg2/processrefund',
         process   => 'ProcessRefund',
         fields    => [qw(
-          Amount AccountNumber ExpirationMonth ExpirationYear ApplicationId
+          Amount Cf1 Cf2 Cf3 AccountNumber
+          ExpirationMonth ExpirationYear ApplicationId
         )],
     },
     'authorize' => {
@@ -117,7 +119,7 @@ sub set_defaults {
     $self->build_subs(qw/
             platform tid appid
             action reference_number cvv2_response avs_code response_code
-            risk_score txn_amount txn_date partial_auth partial_auth_amount
+            risk_score txn_amount txn_date partial_auth_amount
     /);
     
     $DEBUG = exists($options{debug}) ? $options{debug} : $DEBUG;
@@ -336,7 +338,7 @@ sub submit {
 
     if ( $self->is_success && $self->response_code == 10 ) { #partial auth
 
-      if ( $self->partial_auth ) {
+      if ( $content{'partial_auth'} ) {
 
         $self->partial_auth_amount( $self->txn_amount );