- 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

1 files changed, 6 insertions, 0 deletions

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();