diff options
Diffstat (limited to 'LinkPoint.pm')
| -rw-r--r-- | LinkPoint.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/LinkPoint.pm b/LinkPoint.pm index f652f26..4299e5f 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.18 2004-06-24 15:17:49 ivan Exp $ +# $Id: LinkPoint.pm,v 1.19 2004-06-24 15:19:32 ivan Exp $ use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @@ -134,22 +134,22 @@ sub submit { keyfile => \( $self->keyfile ), addrnum => \$addrnum, result => \$result, - cardNumber => 'card_number', - cardExpMonth => \$month, - cardExpYear => \$year, + cardnumber => 'card_number', + cardexpmonth => \$month, + cardexpyear => \$year, chargetotal => 'amount', ); my $lperl = new LPPERL; $self->required_fields(qw/ - host port configfile keyfile amount cardNumber cardExpMonth cardExpYear + host port configfile keyfile amount cardnumber cardexpmonth cardexpyear /); my %post_data = $self->get_fields(qw/ host port configfile keyfile result - chargetotal cardNumber cardExpMonth cardExpYear + chargetotal cardnumber cardexpmonth cardexpyear name email phone addrnum city state zip country /); |