diff options
| author | fbriere <fbriere> | 2006-02-17 23:38:35 +0000 |
|---|---|---|
| committer | fbriere <fbriere> | 2006-02-17 23:38:35 +0000 |
| commit | e073ba9f3ec63298790683c9e0b8b20b8cd40417 (patch) | |
| tree | cc7f51972178568ab18ac7c1a5b19c7963cb8b9e /InternetSecure.pm | |
| parent | 7f44cb3984b0010885dbdb4daa301599c243053b (diff) | |
Remove dashes from card_number as well
Diffstat (limited to 'InternetSecure.pm')
| -rwxr-xr-x | InternetSecure.pm | 4 |
1 files changed, 2 insertions, 2 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) |