summaryrefslogtreecommitdiff
path: root/IPPay.pm
diff options
context:
space:
mode:
Diffstat (limited to 'IPPay.pm')
-rw-r--r--IPPay.pm2
1 files changed, 2 insertions, 0 deletions
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,