diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-06-23 15:54:46 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-06-23 15:54:46 -0700 |
| commit | 7445421f5247978f1bc03d4ee66b7de4d56ba133 (patch) | |
| tree | 71c8dc797e4e1a035f7ddc098bc73159ea31c4cc | |
| parent | af684c392679cf62703ea60c0b9c50d70e6cd82a (diff) | |
correct default_ns for non-USD/CAD transactions, RT#26568
| -rw-r--r-- | Changes | 4 | ||||
| -rw-r--r-- | lib/Business/OnlinePayment/IATSPayments.pm | 7 |
2 files changed, 9 insertions, 2 deletions
@@ -1,6 +1,10 @@ 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! + 0.02 Sat Feb 15 12:45:24 PST 2014 - trim spaces from authorization (TRANSACTIONID) - return numeric IATS error message as result_code diff --git a/lib/Business/OnlinePayment/IATSPayments.pm b/lib/Business/OnlinePayment/IATSPayments.pm index cb5eda3..8bc3d78 100644 --- a/lib/Business/OnlinePayment/IATSPayments.pm +++ b/lib/Business/OnlinePayment/IATSPayments.pm @@ -8,7 +8,7 @@ use Business::CreditCard; use SOAP::Lite; #SOAP::Lite->import(+trace=>'debug'); -our $VERSION = '0.02'; +our $VERSION = '0.03_01'; $VERSION = eval $VERSION; # modperlstyle: convert the string into a number sub _info { @@ -221,6 +221,9 @@ sub submit { my $uri = $base_uri. "ProcessLink.asmx?op=$action"; + # never "uk.iatspayments.com" + my $default_ns = 'https://www.iatspayments.com/NetGate/'; + my %data = map { $_ => $content{$_} } (qw( agentCode password @@ -268,7 +271,7 @@ sub submit { my $result = SOAP::Lite ->proxy($uri) - ->default_ns($base_uri) + ->default_ns($default_ns) #->on_action( sub { join '/', @_ } ) ->on_action( sub { join '', @_ } ) ->autotype(0) |