Parse nun-numeric AUTHORIZATIONRESULT values properly, patch from Doug Juhlin / Donor...

[Business-OnlinePayment-IATSPayments.git] / lib / Business / OnlinePayment / IATSPayments.pm

diff --git a/lib/Business/OnlinePayment/IATSPayments.pm b/lib/Business/OnlinePayment/IATSPayments.pm
index 8bc3d78..df0a717 100644 (file)
--- a/lib/Business/OnlinePayment/IATSPayments.pm
+++ b/lib/Business/OnlinePayment/IATSPayments.pm
@@ -296,9 +296,9 @@ sub submit {
   }
   $self->authorization($processresult->{TRANSACTIONID} || '');
 
-  if ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*OK(:\s*\d+:)?(\w)?\s*$/i ) {
+  if ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*OK(:\s*\w+:)?(\w)?\s*$/i ) {
     $self->is_success(1);
-    $self->avs_code($2); #avs_code?  sure looks like one
+    $self->avs_code($2);
 
   } elsif ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*Timeout\s*$/i ) {
     $self->is_success(0);