diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Business/OnlinePayment/vSecureProcessing.pm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lib/Business/OnlinePayment/vSecureProcessing.pm b/lib/Business/OnlinePayment/vSecureProcessing.pm index 6744e25..f7d8b9d 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.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 ); |