From: Ivan Kohler Date: Tue, 15 Jan 2013 03:08:13 +0000 (-0800) Subject: pass AVScountryCode, 2.05 X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-PaymenTech.git;a=commitdiff_plain;h=31753c35b06e7e95ea19b5c00e3d6e0ac8fc47af pass AVScountryCode, 2.05 --- diff --git a/Changes b/Changes index 38e9da9..f7554a0 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,8 @@ Revision history for Business-OnlinePayment-PaymenTech +2.05 Mon Jan 14 19:07:14 PST 2013 + - pass AVScountryCode + 2.04 Mon Oct 11 17:30:00 PDT 2010 - Always send expiration date as MMYY 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; }