X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-vSecureProcessing.git;a=blobdiff_plain;f=lib%2FBusiness%2FOnlinePayment%2FvSecureProcessing.pm;h=f7d8b9d21d947768a7e81f2fb21c3859fc54828b;hp=6744e25a4136c30963cd063678775cd53ad2a5f1;hb=a705bbe6a010aaee7a315551686858a02f309c64;hpb=4f22d262976afe19a2acdb92e5691f0c15755de5 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 );