projects
/
Business-OnlinePayment-PayflowPro.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
356c439
)
added cvv2_code (and added avs_code to build_subs)
BUSINESS_ONLINEPAYMENT_PAYFLOWPRO_0_02_02
author
ivan
<ivan>
Sat, 16 Aug 2003 07:34:23 +0000
(07:34 +0000)
committer
ivan
<ivan>
Sat, 16 Aug 2003 07:34:23 +0000
(07:34 +0000)
PayflowPro.pm
patch
|
blob
|
history
diff --git
a/PayflowPro.pm
b/PayflowPro.pm
index
59bf302
..
8664172
100644
(file)
--- a/
PayflowPro.pm
+++ b/
PayflowPro.pm
@@
-14,7
+14,7
@@
require Exporter;
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.02_0
1
';
+$VERSION = '0.02_0
2
';
sub set_defaults {
my $self = shift;
sub set_defaults {
my $self = shift;
@@
-23,7
+23,9
@@
sub set_defaults {
$self->server('payflow.verisign.com');
$self->port('443');
$self->server('payflow.verisign.com');
$self->port('443');
- $self->build_subs(qw( vendor partner order_number cert_path ));
+ $self->build_subs(qw(
+ vendor partner order_number cert_path avs_code cvv2_code
+ ));
}
}
@@
-206,6
+208,7
@@
sub submit {
$avs_code = 'N';
}
$self->avs_code( $avs_code );
$avs_code = 'N';
}
$self->avs_code( $avs_code );
+ $self->cvv2_code( $response->{'CVV2MATCH'});
} else {
$self->is_success(0);
$self->result_code( $response->{'RESULT'} );
} else {
$self->is_success(0);
$self->result_code( $response->{'RESULT'} );
@@
-265,6
+268,7
@@
Business::OnlinePayment::PayflowPro - Verisign PayflowPro backend for Business::
# N - no match
# E - AVS error or unsupported
# (null) - AVS error
# N - no match
# E - AVS error or unsupported
# (null) - AVS error
+ print "CVV2 code: ". $tx->cvv2_code. "\n";
} else {
print "Card was rejected: ".$tx->error_message;
} else {
print "Card was rejected: ".$tx->error_message;