diff options
Diffstat (limited to 'lib/Business')
| -rw-r--r-- | lib/Business/OnlinePayment/PaymenTech.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/Business/OnlinePayment/PaymenTech.pm b/lib/Business/OnlinePayment/PaymenTech.pm index 72fc767..3d060bb 100644 --- a/lib/Business/OnlinePayment/PaymenTech.pm +++ b/lib/Business/OnlinePayment/PaymenTech.pm @@ -9,7 +9,7 @@ use vars qw($VERSION $DEBUG @ISA $me); @ISA = qw(Business::OnlinePayment::HTTPS); -$VERSION = '2.04'; +$VERSION = '2.05'; $VERSION = eval $VERSION; # modperlstyle: convert the string into a number $DEBUG = 0; @@ -42,6 +42,7 @@ tie my %new_order, 'Tie::IxHash', ( AVSaddress1 => [ ':address', 30 ], AVScity => [ ':city', 20 ], AVSstate => [ ':state', 2 ], + AVScountryCode => [ ':country', 2 ], OrderID => [ ':invoice_number', 22 ], Amount => [ ':amount', 12 ], Comments => [ ':email', 64 ], @@ -96,6 +97,8 @@ my %currency_code = ( MXN => [484, 2], ); +my %paymentech_countries = map { $_ => 1 } qw( US CA GB UK ); + sub set_defaults { my $self = shift; @@ -197,6 +200,12 @@ sub map_fields { $content{expiration} =~ s/\D//g; $content{expiration} = sprintf('%04d',$content{expiration}); + $content{country} ||= 'US'; + $content{country} = ( $paymentech_countries{ $content{country} } + ? $content{country} + : '' + ), + $self->content(%content); return; } |