projects
/
Business-OnlinePayment-LinkPoint.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
64714b3
)
lala s/hostname/host/
author
ivan
<ivan>
Thu, 24 Jun 2004 14:56:27 +0000
(14:56 +0000)
committer
ivan
<ivan>
Thu, 24 Jun 2004 14:56:27 +0000
(14:56 +0000)
LinkPoint.pm
patch
|
blob
|
history
diff --git
a/LinkPoint.pm
b/LinkPoint.pm
index
bde5543
..
0621ea0
100644
(file)
--- a/
LinkPoint.pm
+++ b/
LinkPoint.pm
@@
-1,6
+1,6
@@
package Business::OnlinePayment::LinkPoint;
package Business::OnlinePayment::LinkPoint;
-# $Id: LinkPoint.pm,v 1.1
4 2004-06-24 14:55:12
ivan Exp $
+# $Id: LinkPoint.pm,v 1.1
5 2004-06-24 14:56:27
ivan Exp $
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
@@
-127,7
+127,7
@@
sub submit {
}
$self->revmap_fields(
}
$self->revmap_fields(
- host
name
=> \( $self->server ),
+ host
=> \( $self->server ),
port => \( $self->port ),
#storename => \( $self->storename ),
configfile => \( $self->storename ),
port => \( $self->port ),
#storename => \( $self->storename ),
configfile => \( $self->storename ),
@@
-143,11
+143,11
@@
sub submit {
my $lperl = new LPPERL;
$self->required_fields(qw/
my $lperl = new LPPERL;
$self->required_fields(qw/
- host
name
port configfile keyfile amount cardNumber cardExpMonth cardExpYear
+ host port configfile keyfile amount cardNumber cardExpMonth cardExpYear
/);
my %post_data = $self->get_fields(qw/
/);
my %post_data = $self->get_fields(qw/
- host
name
port configfile keyfile
+ host port configfile keyfile
result
chargetotal cardNumber cardExpMonth cardExpYear
name email phone address city state zip country
result
chargetotal cardNumber cardExpMonth cardExpYear
name email phone address city state zip country