diff options
| -rwxr-xr-x | InternetSecure.pm | 4 | ||||
| -rwxr-xr-x | t/20emit.t | 10 |
2 files changed, 7 insertions, 7 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index 13e1858..e3a21e5 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -169,7 +169,7 @@ sub to_xml { $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}); @@ -397,7 +397,7 @@ Transaction type, being one of the following: =item card_number (required) -Credit card number. Spaces are allowed, and will be automatically removed. +Credit card number. Spaces and dashes are automatically removed. =item exp_date (required) @@ -16,7 +16,7 @@ use constant TRANSACTIONS => ( action => 'Normal Authorization', type => 'Visa', - card_number => '0000000000000000', + card_number => '4111 1111 1111 1111', exp_date => '2004-07', cvv2 => '000', @@ -57,8 +57,8 @@ use constant TRANSACTIONS => ( 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", @@ -94,7 +94,7 @@ __DATA__ <?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> @@ -123,7 +123,7 @@ __DATA__ <?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> |