From: ivan <ivan>
Date: Sat, 16 Aug 2003 07:34:23 +0000 (+0000)
Subject: added cvv2_code (and added avs_code to build_subs)
X-Git-Tag: BUSINESS_ONLINEPAYMENT_PAYFLOWPRO_0_02_02
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-PayflowPro.git;a=commitdiff_plain;h=5cdd4cdee83321b5e89b7295da4a1424b922fcec

added cvv2_code (and added avs_code to build_subs)
---

diff --git a/PayflowPro.pm b/PayflowPro.pm
index 59bf302..8664172 100644
--- a/PayflowPro.pm
+++ b/PayflowPro.pm
@@ -14,7 +14,7 @@ require Exporter;
 @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();
-$VERSION = '0.02_01';
+$VERSION = '0.02_02';
 
 sub set_defaults {
     my $self = shift;
@@ -23,7 +23,9 @@ sub set_defaults {
     $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               );
+      $self->cvv2_code(     $response->{'CVV2MATCH'});
     } 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
+      print "CVV2 code: ". $tx->cvv2_code. "\n";
 
   } else {
       print "Card was rejected: ".$tx->error_message;