diff options
Diffstat (limited to 'IPPay.pm')
-rw-r--r-- | IPPay.pm | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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, |