- 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

diff --git a/Changes b/Changes
index 96ca39b..59c1f6d 100644 (file)
--- 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 (file)
--- 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();