projects
/
Business-OnlinePayment-LinkPoint.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
do these need to be in lowercase
[Business-OnlinePayment-LinkPoint.git]
/
LinkPoint.pm
diff --git
a/LinkPoint.pm
b/LinkPoint.pm
index
e798e18
..
4299e5f
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
6 2004-06-24 14:57:25
ivan Exp $
+# $Id: LinkPoint.pm,v 1.1
9 2004-06-24 15:19:32
ivan Exp $
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
@@
-134,26
+134,26
@@
sub submit {
keyfile => \( $self->keyfile ),
addrnum => \$addrnum,
result => \$result,
keyfile => \( $self->keyfile ),
addrnum => \$addrnum,
result => \$result,
- card
N
umber => 'card_number',
- card
ExpM
onth => \$month,
- card
ExpY
ear => \$year,
+ card
n
umber => 'card_number',
+ card
expm
onth => \$month,
+ card
expy
ear => \$year,
chargetotal => 'amount',
);
my $lperl = new LPPERL;
$self->required_fields(qw/
chargetotal => 'amount',
);
my $lperl = new LPPERL;
$self->required_fields(qw/
- host port configfile keyfile amount card
Number cardExpMonth cardExpY
ear
+ host port configfile keyfile amount card
number cardexpmonth cardexpy
ear
/);
my %post_data = $self->get_fields(qw/
host port configfile keyfile
result
/);
my %post_data = $self->get_fields(qw/
host port configfile keyfile
result
- chargetotal card
Number cardExpMonth cardExpY
ear
+ chargetotal card
number cardexpmonth cardexpy
ear
name email phone addrnum city state zip country
/);
name email phone addrnum city state zip country
/);
- $post_data{'order
_
type'} = $content{action};
+ $post_data{'ordertype'} = $content{action};
if ( $content{'cvv2'} ) {
$post_data{cvmindicator} = 'provided';
if ( $content{'cvv2'} ) {
$post_data{cvmindicator} = 'provided';
@@
-169,6
+169,8
@@
sub submit {
#}
%response = $lperl->curl_process(\%post_data);
#}
%response = $lperl->curl_process(\%post_data);
+ warn "$_ => $response{$_}\n" for keys %response;
+
if ( $response{'r_approved'} eq 'APPROVED' ) {
$self->is_success(1);
$self->result_code($response{'r_code'});
if ( $response{'r_approved'} eq 'APPROVED' ) {
$self->is_success(1);
$self->result_code($response{'r_code'});