diff options
| -rw-r--r-- | LinkPoint.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/LinkPoint.pm b/LinkPoint.pm index bde5543..0621ea0 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.14 2004-06-24 14:55:12 ivan Exp $ +# $Id: LinkPoint.pm,v 1.15 2004-06-24 14:56:27 ivan Exp $ use strict; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); @@ -127,7 +127,7 @@ sub submit { } $self->revmap_fields( - hostname => \( $self->server ), + host => \( $self->server ), port => \( $self->port ), #storename => \( $self->storename ), configfile => \( $self->storename ), @@ -143,11 +143,11 @@ sub submit { my $lperl = new LPPERL; $self->required_fields(qw/ - hostname port configfile keyfile amount cardNumber cardExpMonth cardExpYear + host port configfile keyfile amount cardNumber cardExpMonth cardExpYear /); my %post_data = $self->get_fields(qw/ - hostname port configfile keyfile + host port configfile keyfile result chargetotal cardNumber cardExpMonth cardExpYear name email phone address city state zip country |