From 7516d92e433d4e74589e1e4337dc885aaf523f01 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Sat, 17 Jul 2010 22:34:58 +0000
Subject: never send an empty country

---
 IPPay.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'IPPay.pm')

diff --git a/IPPay.pm b/IPPay.pm
index c58e14a..2786c95 100644
--- a/IPPay.pm
+++ b/IPPay.pm
@@ -309,6 +309,7 @@ sub submit {
                             Phone               => 'phone',
                           );
   }
+  delete $shippingaddr{Country} unless $shippingaddr{Country};
 
   tie my %shippinginfo, 'Tie::IxHash',
     $self->revmap_fields(
@@ -362,6 +363,7 @@ sub submit {
                           IndustryInfo        => \%industryinfo,
                           ShippingInfo        => \%shippinginfo,
                         );
+  delete $req{BillingCountry} unless $req{BillingCountry};
 
   my $post_data;
   my $writer = new XML::Writer( OUTPUT      => \$post_data,
-- 
cgit v1.2.1