projects
/
Business-OnlinePayment-InternetSecure.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
9a06d72
)
Ensure a valid card number for test transactions
author
fbriere
<fbriere>
Thu, 16 Feb 2006 23:19:33 +0000
(23:19 +0000)
committer
fbriere
<fbriere>
Thu, 16 Feb 2006 23:19:33 +0000
(23:19 +0000)
InternetSecure.pm
patch
|
blob
|
history
diff --git
a/InternetSecure.pm
b/InternetSecure.pm
index
e3855cf
..
a2c7fab
100755
(executable)
--- a/
InternetSecure.pm
+++ b/
InternetSecure.pm
@@
-184,6
+184,7
@@
sub to_xml {
$data{MerchantNumber} = $self->merchant_id;
$data{xxxCard_Number} =~ tr/ //d;
+ $data{xxxCard_Number} =~ s/^[0-36-9]/4/ if $self->test_transaction;
my ($y, $m) = $self->parse_expdate($content{exp_date});
$data{xxxCCYear} = sprintf '%.4u' => $y;