fix parsing OK response, fix tests

1 files changed, 14 insertions, 2 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);