Revision history for Perl extension Business::OnlinePayment::IATSPayments.
0.03 unreleased
- - Correct default_ns for non-USD/CAD transactions, patch from Doug
- Juhlin / Donor.com, thanks!
+ - Patches from Dough Juhlin / Donor.com, thanks!
+ * Correct default_ns for non-USD/CAD transactions
+ * Parse nun-numeric AUTHORIZATIONRESULT values properly
0.02 Sat Feb 15 12:45:24 PST 2014
- trim spaces from authorization (TRANSACTIONID)
}
$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);