projects
/
Business-OnlinePayment-PayflowPro.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
- per Ivan: add "shortcut" param 'client_certification_id' (can be
[Business-OnlinePayment-PayflowPro.git]
/
PayflowPro.pm
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-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",
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',
'PayflowPro',
'vendor' => 'your_vendor',
'partner' => 'your_partner',
+ 'client_certification_id' => 'assigned_certification_id',
);
# See the module documentation for details of content()
);
# 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',
expiration => '12/09',
cvv2 => '123',
order_number => 'string',
+ request_id => 'unique_identifier_for_transaction',
);
$tx->submit();
);
$tx->submit();