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 (parent:
7f44cb3
)
Remove dashes from card_number as well
author
fbriere
<fbriere>
Fri, 17 Feb 2006 23:38:35 +0000
(23:38 +0000)
committer
fbriere
<fbriere>
Fri, 17 Feb 2006 23:38:35 +0000
(23:38 +0000)
InternetSecure.pm
patch
|
blob
|
history
t/20emit.t
patch
|
blob
|
history
diff --git
a/InternetSecure.pm
b/InternetSecure.pm
index
13e1858
..
e3a21e5
100755
(executable)
--- a/
InternetSecure.pm
+++ b/
InternetSecure.pm
@@
-169,7
+169,7
@@
sub to_xml {
$data{MerchantNumber} = $self->merchant_id;
$data{MerchantNumber} = $self->merchant_id;
- $data{xxxCard_Number} =~ tr/ //d;
+ $data{xxxCard_Number} =~ tr/
-
//d;
$data{xxxCard_Number} =~ s/^[^3-6]/4/ if $self->test_transaction;
my ($y, $m) = $self->parse_expdate($content{exp_date});
$data{xxxCard_Number} =~ s/^[^3-6]/4/ if $self->test_transaction;
my ($y, $m) = $self->parse_expdate($content{exp_date});
@@
-397,7
+397,7
@@
Transaction type, being one of the following:
=item card_number (required)
=item card_number (required)
-Credit card number. Spaces a
re allowed, and will b
e automatically removed.
+Credit card number. Spaces a
nd dashes ar
e automatically removed.
=item exp_date (required)
=item exp_date (required)
diff --git
a/t/20emit.t
b/t/20emit.t
index
aa9af6a
..
62baea7
100755
(executable)
--- a/
t/20emit.t
+++ b/
t/20emit.t
@@
-16,7
+16,7
@@
use constant TRANSACTIONS => (
action => 'Normal Authorization',
type => 'Visa',
action => 'Normal Authorization',
type => 'Visa',
- card_number => '
0000000000000000
',
+ card_number => '
4111 1111 1111 1111
',
exp_date => '2004-07',
cvv2 => '000',
exp_date => '2004-07',
cvv2 => '000',
@@
-57,8
+57,8
@@
use constant TRANSACTIONS => (
action => 'Normal Authorization',
action => 'Normal Authorization',
- type => '
Visa
',
- card_number => '
4000000000000000
',
+ type => '
MasterCard
',
+ card_number => '
5111-1111-1111-1111
',
exp_date => '7/2004',
name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re",
exp_date => '7/2004',
name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re",
@@
-94,7
+94,7
@@
__DATA__
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<TranxRequest>
<MerchantNumber>0000</MerchantNumber>
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<TranxRequest>
<MerchantNumber>0000</MerchantNumber>
- <xxxCard_Number>
0000000000000000
</xxxCard_Number>
+ <xxxCard_Number>
4111111111111111
</xxxCard_Number>
<xxxCCMonth>07</xxxCCMonth>
<xxxCCYear>2004</xxxCCYear>
<CVV2>1</CVV2>
<xxxCCMonth>07</xxxCCMonth>
<xxxCCYear>2004</xxxCCYear>
<CVV2>1</CVV2>
@@
-123,7
+123,7
@@
__DATA__
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<TranxRequest>
<MerchantNumber>0000</MerchantNumber>
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<TranxRequest>
<MerchantNumber>0000</MerchantNumber>
- <xxxCard_Number>
4000000000000000
</xxxCard_Number>
+ <xxxCard_Number>
5111111111111111
</xxxCard_Number>
<xxxCCMonth>07</xxxCCMonth>
<xxxCCYear>2004</xxxCCYear>
<CVV2>0</CVV2>
<xxxCCMonth>07</xxxCCMonth>
<xxxCCYear>2004</xxxCCYear>
<CVV2>0</CVV2>