From: fbriere Date: Sat, 19 Aug 2006 17:39:13 +0000 (+0000) Subject: Renamed exp_date to expiration X-Git-Tag: V0_04~8 X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-InternetSecure.git;a=commitdiff_plain;h=980d429a92740e97ca84e1fa9fb951284160c820 Renamed exp_date to expiration --- 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 does not specify any syntax, this module is rather lax regarding what it will accept. The diff --git a/t/20emit.t b/t/20emit.t index 8ba4804..cc3ff0e 100755 --- a/t/20emit.t +++ b/t/20emit.t @@ -17,7 +17,7 @@ use constant TRANSACTIONS => ( type => 'Visa', card_number => '4111 1111 1111 1111', - exp_date => '2004-07', + expiration => '2004-07', cvv2 => '000', name => "Fr\N{LATIN SMALL LETTER E WITH ACUTE}d\N{LATIN SMALL LETTER E WITH ACUTE}ric Bri\N{LATIN SMALL LETTER E WITH GRAVE}re", @@ -59,7 +59,7 @@ use constant TRANSACTIONS => ( action => 'Normal Authorization', card_number => '5111-1111-1111-1111', - exp_date => '7/2004', + expiration => '7/2004', name => "\x{201c}Fr\x{e9}d\x{e9}ric Bri\x{e8}re\x{201d}", @@ -74,7 +74,7 @@ use constant TRANSACTIONS => ( action => 'Normal Authorization', card_number => '5111-1111-1111-1111', - exp_date => '0704', + expiration => '0704', name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re", diff --git a/t/40live.t b/t/40live.t index e2a3655..3f510f9 100755 --- a/t/40live.t +++ b/t/40live.t @@ -22,7 +22,7 @@ $txn->content( type => 'Visa', card_number => '0000000000000000', - exp_date => '2004/07', + expiration => '2004/07', name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re", address => '123 Nowhere', diff --git a/t/50idempotence.t b/t/50idempotence.t index a387e57..db78133 100755 --- a/t/50idempotence.t +++ b/t/50idempotence.t @@ -12,7 +12,7 @@ use constant TRANSACTION => action => 'Normal Authorization', card_number => '5111-1111-1111-1111', - exp_date => '0704', + expiration => '0704', name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re",