X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-InternetSecure.git;a=blobdiff_plain;f=InternetSecure.pm;fp=InternetSecure.pm;h=c41e3cecd9990a53749bd48982c3e6ffb3a9378b;hp=4f0e3db0253671a69b1383155c8f5fa0240b63b3;hb=980d429a92740e97ca84e1fa9fb951284160c820;hpb=d3c665aa8eadcd5284daf8f8c9b7525ed6bbc542 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