diff options
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 |