From 01c1be4b649247359d8a31059809c55e8619c418 Mon Sep 17 00:00:00 2001
From: plobbes <plobbes>
Date: Tue, 13 Mar 2007 22:29:15 +0000
Subject: [PATCH] - per Ivan: add "shortcut" param 'client_certification_id'
 (can be   passed as an argument for B::OP->new() which will set the  
 X-VPS-VIT-CLIENT-CERTIFICATION-ID header

---
 Changes       | 6 +++++-
 PayflowPro.pm | 6 ++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 96ca39b..59c1f6d 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,10 @@
 Revision history for Perl extension Business::OnlinePayment::PayflowPro.
 
 0.07  
+	[0.07_03 Tue Mar 13 18:26:12 EDT 2007]
+	- add "shortcut" param 'client_certification_id' (can be
+	  passed as an argument for B::OP->new() which will set the
+	  X-VPS-VIT-CLIENT-CERTIFICATION-ID header
 	[0.07_02 Tue Mar 13 12:32:57 EDT 2007]
 	- made generic method for deprecating cert_path, etc.
 	- doc'd vendor() and partner() as deprecated but will not put
@@ -23,7 +27,7 @@ Revision history for Perl extension Business::OnlinePayment::PayflowPro.
 	- renamed internal methods to start with an underscore
 	- removed unused remap_fields() method
 	- if unable to parse expiration given in %content no longer croak,
-          but let PayflowPro servers attempt to deal with the value as-is
+	  but let PayflowPro servers attempt to deal with the value as-is
 	- submit() now two phased per PFP HTTP protocol
 	- X-VPS-VIT-CLIENT-CERTIFICATION-ID is required (supposedly
 	  this is a temporary requirement from PayPal)
diff --git a/PayflowPro.pm b/PayflowPro.pm
index b91e007..9d3c73f 100644
--- a/PayflowPro.pm
+++ b/PayflowPro.pm
@@ -249,6 +249,10 @@ sub submit {
     unless ( defined( $req_headers{"X-VPS-REQUEST-ID"} ) ) {
         $req_headers{"X-VPS-REQUEST-ID"} = $self->request_id();
     }
+    unless ( defined( $req_headers{"X-VPS-VIT-CLIENT-CERTIFICATION-ID"} ) ) {
+        $req_headers{"X-VPS-VIT-CLIENT-CERTIFICATION-ID"} =
+          $self->param("client_certification_id");
+    }
 
     my %options = (
         "Content-Type" => "text/namevalue",
@@ -322,6 +326,7 @@ Business::OnlinePayment::PayflowPro - Payflow Pro backend for Business::OnlinePa
       'PayflowPro',
       'vendor'    => 'your_vendor',
       'partner'   => 'your_partner',
+      'client_certification_id' => 'assigned_certification_id',
   );
   
   # See the module documentation for details of content()
@@ -342,6 +347,7 @@ Business::OnlinePayment::PayflowPro - Payflow Pro backend for Business::OnlinePa
       expiration     => '12/09',
       cvv2           => '123',
       order_number   => 'string',
+      request_id     => 'unique_identifier_for_transaction',
   );
   
   $tx->submit();
-- 
2.11.0