projects
/
Business-OnlinePayment-AuthorizeNet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bff505d
)
Trim the extra 'ip_addr="1.2.3.4"' added by eProcessingNetwork's AuthorizetNet compat...
author
ivan
<ivan>
Fri, 2 Mar 2007 22:17:56 +0000
(22:17 +0000)
committer
ivan
<ivan>
Fri, 2 Mar 2007 22:17:56 +0000
(22:17 +0000)
AuthorizeNet.pm
patch
|
blob
|
history
Changes
patch
|
blob
|
history
diff --git
a/AuthorizeNet.pm
b/AuthorizeNet.pm
index
ea8869e
..
54f1514
100644
(file)
--- a/
AuthorizeNet.pm
+++ b/
AuthorizeNet.pm
@@
-12,7
+12,7
@@
require Exporter;
@ISA = qw(Exporter Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
@ISA = qw(Exporter Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '3.1
6
';
+$VERSION = '3.1
7
';
sub set_defaults {
my $self = shift;
sub set_defaults {
my $self = shift;
@@
-209,6
+209,9
@@
sub submit {
#escape NULL (binary 0x00) values
$page =~ s/\x00/\^0/g;
#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();
my $csv = new Text::CSV_XS({ 'binary'=>1 });
$csv->parse($page);
my @col = $csv->fields();
diff --git
a/Changes
b/Changes
index
4bebcfc
..
599e3d2
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,9
@@
Revision history for Perl extension Business::OnlinePayment::AuthorizeNet.
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)"
3.16 Tue Nov 14 02:35:30 PST 2006
- Update link to API docs, now it is called "Advanced Integration
Method (AIM)"