diff options
| author | ivan <ivan> | 2007-03-02 22:17:56 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-03-02 22:17:56 +0000 |
| commit | 4c2d2e639d14092cdd13301565db5facf42ef9a8 (patch) | |
| tree | da6d476a432d710c524177859637644d270c867d | |
| parent | bff505d22319d5d6d34c6298d5e0412353100feb (diff) | |
Trim the extra 'ip_addr="1.2.3.4"' added by eProcessingNetwork's AuthorizetNet compatability mode.
| -rw-r--r-- | AuthorizeNet.pm | 5 | ||||
| -rw-r--r-- | Changes | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/AuthorizeNet.pm b/AuthorizeNet.pm index ea8869e..54f1514 100644 --- a/AuthorizeNet.pm +++ b/AuthorizeNet.pm @@ -12,7 +12,7 @@ require Exporter; @ISA = qw(Exporter Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); -$VERSION = '3.16'; +$VERSION = '3.17'; sub set_defaults { my $self = shift; @@ -209,6 +209,9 @@ sub submit { #escape NULL (binary 0x00) values $page =~ s/\x00/\^0/g; + #trim 'ip_addr="1.2.3.4"' added by eProcessingNetwork Authorize.Net compat + $page =~ s/,ip_addr="[\d\.]+"$//; + my $csv = new Text::CSV_XS({ 'binary'=>1 }); $csv->parse($page); my @col = $csv->fields(); @@ -1,5 +1,9 @@ Revision history for Perl extension Business::OnlinePayment::AuthorizeNet. +3.17 unreleased + - Trim the extra 'ip_addr="1.2.3.4"' added by eProcessingNetwork's + AuthorizetNet compatability mode. + 3.16 Tue Nov 14 02:35:30 PST 2006 - Update link to API docs, now it is called "Advanced Integration Method (AIM)" |