diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-02-06 09:06:05 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-02-06 09:06:05 -0800 |
| commit | bee7c61ee07328b28ae2d17e631dc47037e7700a (patch) | |
| tree | 5c000448237ac2b192ef7e484a79290ff7e60644 | |
| parent | ee7af13f7f3f1e7568e3039fd6c2a098593e4777 (diff) | |
fix parsing OK response, fix tests
| -rw-r--r-- | lib/Business/OnlinePayment/IATSPayments.pm | 16 | ||||
| -rw-r--r-- | t/transaction.t | 2 | ||||
| -rw-r--r-- | t/transaction_decline.t | 2 |
3 files changed, 16 insertions, 4 deletions
diff --git a/lib/Business/OnlinePayment/IATSPayments.pm b/lib/Business/OnlinePayment/IATSPayments.pm index a3f7c96..dd6dc5b 100644 --- a/lib/Business/OnlinePayment/IATSPayments.pm +++ b/lib/Business/OnlinePayment/IATSPayments.pm @@ -27,6 +27,18 @@ sub _info { }; } +sub set_defaults { + my $self = shift; + #my %opts = @_; + + #$self->build_subs(qw( order_number avs_code cvv2_response + # response_page response_code response_headers + # )); + + $self->build_subs(qw( avs_code )); + +} + sub map_fields { my($self) = @_; @@ -277,9 +289,9 @@ sub submit { $self->authorization($processresult->{TRANSACTIONID} || ''); - if ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*OK(:\s*\d+)?(:(\w))?\s*$/i ) { + if ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*OK(:\s*\d+:)?(\w)?\s*$/i ) { $self->is_success(1); - $self->avs_code($3); #avs_code? sure looks like one + $self->avs_code($2); #avs_code? sure looks like one } elsif ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*Timeout\s*$/i ) { $self->is_success(0); diff --git a/t/transaction.t b/t/transaction.t index 56b8a96..0f24fae 100644 --- a/t/transaction.t +++ b/t/transaction.t @@ -14,7 +14,7 @@ my %content = ( card_number => '4111111111111111', cvv2 => '123', expiration => '12/20', - amount => '2.00', + amount => '1.00', first_name => 'Tofu', last_name => 'Beast', address => '1234 Soybean Ln.', diff --git a/t/transaction_decline.t b/t/transaction_decline.t index 895a176..ae17733 100644 --- a/t/transaction_decline.t +++ b/t/transaction_decline.t @@ -14,7 +14,7 @@ my %content = ( card_number => '4111111111111111', cvv2 => '123', expiration => '12/20', - amount => '1.00', + amount => '2.00', first_name => 'Tofu', last_name => 'Beast', address => '1234 Soybean Ln.', |