projects
/
Business-OnlinePayment-InternetSecure.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Renamed exp_date to expiration
[Business-OnlinePayment-InternetSecure.git]
/
InternetSecure.pm
diff --git
a/InternetSecure.pm
b/InternetSecure.pm
index
4f0e3db
..
c41e3ce
100755
(executable)
--- a/
InternetSecure.pm
+++ b/
InternetSecure.pm
@@
-135,7
+135,7
@@
sub to_xml {
my %content = $self->content;
my %content = $self->content;
- $self->required_fields(qw(action card_number exp
_date
));
+ $self->required_fields(qw(action card_number exp
iration
));
croak "Unsupported transaction type: $content{type}"
if $content{type} &&
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;
$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{exp
iration
});
$data{xxxCCYear} = sprintf '%.4u' => $y;
$data{xxxCCMonth} = sprintf '%.2u' => $m;
$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',
type => 'Visa', # Optional
card_number => '4111 1111 1111 1111',
- exp
_date
=> '2004-07',
+ exp
iration
=> '2004-07',
cvv2 => '000', # Optional
name => "Fr\x{e9}d\x{e9}ric Bri\x{e8}re",
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.
Credit card number. Spaces and dashes are automatically removed.
-=item exp
_date
(required)
+=item exp
iration
(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
Credit card expiration date. Since C<Business::OnlinePayment> does not specify
any syntax, this module is rather lax regarding what it will accept. The