diff options
| author | ivan <ivan> | 2004-06-24 14:56:27 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-06-24 14:56:27 +0000 |
| commit | b0ba3efda840c1932881c5438c9a66b807a8e2ae (patch) | |
| tree | f37d5cb03f2a07ddcd146ca1756f58c23bb86b52 /LinkPoint.pm | |
| parent | 64714b3e4e50fc336eb7cd9221e00be685d8cab6 (diff) | |
lala s/hostname/host/
Diffstat (limited to 'LinkPoint.pm')
| -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 |