diff options
Diffstat (limited to 'lib/Business/OnlinePayment/vSecureProcessing.pm')
| -rw-r--r-- | lib/Business/OnlinePayment/vSecureProcessing.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/Business/OnlinePayment/vSecureProcessing.pm b/lib/Business/OnlinePayment/vSecureProcessing.pm index fddf9ec..0ae9adc 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.04'; +$VERSION = '0.05'; # mapping out all possible endpoints # but this version will only be building out "charge", "void", & "credit" @@ -347,7 +347,13 @@ sub parse_response { $self->result_code($response->{Status}); # 0 /1 $self->response_code($response->{ResponseCode}); # see documentation for translation $self->avs_code($response->{AvsResponse}); # Y / N - $self->cvv2_response($response->{CvvResponse}); # P / F + + #weird (missing?) gateway responses turn into a hashref screwing up Card Fortress + $self->cvv2_response( $response->{CvvResponse} =~ /^\w$/ + ? $response->{CvvResponse} + : '' + ); + $self->txn_date($response->{TransactionDate}); # MMDDhhmmss $self->txn_amount($response->{TransactionAmount} / 100); # 00000003500 / 100 $self->reference_number($response->{ReferenceNumber}); |