projects
/
Business-OnlinePayment-PaymenTech.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
pass AVScountryCode, 2.05
[Business-OnlinePayment-PaymenTech.git]
/
lib
/
Business
/
OnlinePayment
/
PaymenTech.pm
diff --git
a/lib/Business/OnlinePayment/PaymenTech.pm
b/lib/Business/OnlinePayment/PaymenTech.pm
index
72fc767
..
3d060bb
100644
(file)
--- 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);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '2.0
4
';
+$VERSION = '2.0
5
';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
$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 ],
AVSaddress1 => [ ':address', 30 ],
AVScity => [ ':city', 20 ],
AVSstate => [ ':state', 2 ],
+ AVScountryCode => [ ':country', 2 ],
OrderID => [ ':invoice_number', 22 ],
Amount => [ ':amount', 12 ],
Comments => [ ':email', 64 ],
OrderID => [ ':invoice_number', 22 ],
Amount => [ ':amount', 12 ],
Comments => [ ':email', 64 ],
@@
-96,6
+97,8
@@
my %currency_code = (
MXN => [484, 2],
);
MXN => [484, 2],
);
+my %paymentech_countries = map { $_ => 1 } qw( US CA GB UK );
+
sub set_defaults {
my $self = shift;
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{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;
}
$self->content(%content);
return;
}