diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-07-09 13:19:16 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-07-09 13:19:16 -0700 |
| commit | d5a1a4122fc4f93de2821cacc3a961f3a29d6ac9 (patch) | |
| tree | 82e9e4824bf40d2b93426d0e904072f8cf3e13cc /lib/Business | |
| parent | 7445421f5247978f1bc03d4ee66b7de4d56ba133 (diff) | |
Parse nun-numeric AUTHORIZATIONRESULT values properly, patch from Doug Juhlin / Donor.com, thanks! RT#26568
Diffstat (limited to 'lib/Business')
| -rw-r--r-- | lib/Business/OnlinePayment/IATSPayments.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Business/OnlinePayment/IATSPayments.pm b/lib/Business/OnlinePayment/IATSPayments.pm index 8bc3d78..df0a717 100644 --- 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); |