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 /AuthorizeNet.pm | |
| parent | bff505d22319d5d6d34c6298d5e0412353100feb (diff) | |
Trim the extra 'ip_addr="1.2.3.4"' added by eProcessingNetwork's AuthorizetNet compatability mode.
Diffstat (limited to 'AuthorizeNet.pm')
| -rw-r--r-- | AuthorizeNet.pm | 5 |
1 files changed, 4 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(); |