X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=lib%2FBusiness%2FOnlinePayment%2FIATSPayments.pm;fp=lib%2FBusiness%2FOnlinePayment%2FIATSPayments.pm;h=8bc3d789d7d56e43fed9fc223abf88a6448e0aa4;hb=7445421f5247978f1bc03d4ee66b7de4d56ba133;hp=cb5eda3858edce175d78b87cba9092a980c60446;hpb=af684c392679cf62703ea60c0b9c50d70e6cd82a;p=Business-OnlinePayment-IATSPayments.git

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)