diff options
Diffstat (limited to 'lib/Business/OnlinePayment')
| -rw-r--r-- | lib/Business/OnlinePayment/IATSPayments.pm | 7 |
1 files changed, 5 insertions, 2 deletions
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) |