From 01c1be4b649247359d8a31059809c55e8619c418 Mon Sep 17 00:00:00 2001
From: plobbes <plobbes>
Date: Tue, 13 Mar 2007 22:29:15 +0000
Subject: - 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

---
 PayflowPro.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'PayflowPro.pm')

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();
-- 
cgit v1.2.1