diff options
| -rw-r--r-- | Changes | 4 | ||||
| -rw-r--r-- | lib/Business/OnlinePayment/vSecureProcessing.pm | 8 |
2 files changed, 8 insertions, 4 deletions
@@ -1,5 +1,9 @@ Revision history for Perl module Business::OnlinePayment::vSecureProcessing +0.04 Mon Feb 16 06:20:51 PST 2015 + - Normalize return fields with non-standard names (avs_code and + cvv2_response) + 0.03 Sat Feb 14 14:42:33 PST 2015 - Update AUTHOR and PREREQ_PM (Net::HTTPS::Any) in Makefile.PL - cvv2 is not required for all transactions diff --git a/lib/Business/OnlinePayment/vSecureProcessing.pm b/lib/Business/OnlinePayment/vSecureProcessing.pm index 75675f3..fddf9ec 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.03'; +$VERSION = '0.04'; # mapping out all possible endpoints # but this version will only be building out "charge", "void", & "credit" @@ -97,7 +97,7 @@ sub set_defaults { $self->build_subs(qw/ platform tid appid - action reference_number cvv_response avs_response response_code + action reference_number cvv2_response avs_code response_code risk_score txn_amount txn_date /); @@ -346,8 +346,8 @@ sub parse_response { warn "Response:\n".Dumper($response)."\n" if $DEBUG > 2; $self->result_code($response->{Status}); # 0 /1 $self->response_code($response->{ResponseCode}); # see documentation for translation - $self->avs_response($response->{AvsResponse}); # Y / N - $self->cvv_response($response->{CvvResponse}); # P / F + $self->avs_code($response->{AvsResponse}); # Y / N + $self->cvv2_response($response->{CvvResponse}); # P / F $self->txn_date($response->{TransactionDate}); # MMDDhhmmss $self->txn_amount($response->{TransactionAmount} / 100); # 00000003500 / 100 $self->reference_number($response->{ReferenceNumber}); |