diff options
author | fbriere <fbriere> | 2006-08-19 17:39:13 +0000 |
---|---|---|
committer | fbriere <fbriere> | 2006-08-19 17:39:13 +0000 |
commit | 980d429a92740e97ca84e1fa9fb951284160c820 (patch) | |
tree | a89e2c3bcb40b1cfbaea39fa6d043912a1fb6e67 /InternetSecure.pm | |
parent | d3c665aa8eadcd5284daf8f8c9b7525ed6bbc542 (diff) |
Renamed exp_date to expiration
Diffstat (limited to 'InternetSecure.pm')
-rwxr-xr-x | InternetSecure.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index 4f0e3db..c41e3ce 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -135,7 +135,7 @@ sub to_xml { my %content = $self->content; - $self->required_fields(qw(action card_number exp_date)); + $self->required_fields(qw(action card_number expiration)); croak "Unsupported transaction type: $content{type}" if $content{type} && @@ -178,7 +178,7 @@ sub to_xml { $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}); + my ($y, $m) = $self->parse_expdate($content{expiration}); $data{xxxCCYear} = sprintf '%.4u' => $y; $data{xxxCCMonth} = sprintf '%.2u' => $m; @@ -347,7 +347,7 @@ Business::OnlinePayment::InternetSecure - InternetSecure backend for Business::O type => 'Visa', # Optional card_number => '4111 1111 1111 1111', - exp_date => '2004-07', + expiration => '2004-07', cvv2 => '000', # Optional name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re", @@ -431,7 +431,7 @@ Transaction type, being one of the following: Credit card number. Spaces and dashes are automatically removed. -=item exp_date (required) +=item expiration (required) Credit card expiration date. Since C<Business::OnlinePayment> does not specify any syntax, this module is rather lax regarding what it will accept. The |