Mailing List Archive

commit 699d89f52e8cba8b55408ccb9ca3673b04aa52ab
Author: Mark Johnson <mark@endpoint.com>
Date: Tue Nov 28 00:05:11 2017 -0500

Use full cart for cart_md5 hash

lib/Vend/Payment/AuthorizeNet.pm | 11 +++++++----
lib/Vend/Payment/Braintree.pm | 11 +++++++----
lib/Vend/Payment/CyberSource.pm | 11 +++++++----
lib/Vend/Payment/PayflowPro.pm | 11 +++++++----
lib/Vend/Payment/PaypalExpress.pm | 11 +++++++----
5 files changed, 35 insertions(+), 20 deletions(-)
---
diff --git a/lib/Vend/Payment/AuthorizeNet.pm b/lib/Vend/Payment/AuthorizeNet.pm
index 61a3bda..22e772f 100644
--- a/lib/Vend/Payment/AuthorizeNet.pm
+++ b/lib/Vend/Payment/AuthorizeNet.pm
@@ -717,11 +717,14 @@ sub log_it {
);

if (@$Vend::Items) {
- $fields{cart_md5} =
- Digest::MD5::md5_hex(
- map { ($_->{code}, $_->{quantity}) } @$Vend::Items
- )
+ my $dump = Data::Dumper
+ -> new($Vend::Items)
+ -> Indent(0)
+ -> Terse(1)
+ -> Deepcopy(1)
+ -> Sortkeys(1)
;
+ $fields{cart_md5} = Digest::MD5::md5_hex($dump->Dump);
}

$self->write(\%fields);
diff --git a/lib/Vend/Payment/Braintree.pm b/lib/Vend/Payment/Braintree.pm
index f409f77..8561474 100644
--- a/lib/Vend/Payment/Braintree.pm
+++ b/lib/Vend/Payment/Braintree.pm
@@ -1250,11 +1250,14 @@ sub log_it {
);

if (@$Vend::Items) {
- $fields{cart_md5} =
- Digest::MD5::md5_hex(
- map { ($_->{code}, $_->{quantity}) } @$Vend::Items
- )
+ my $dump = Data::Dumper
+ -> new($Vend::Items)
+ -> Indent(0)
+ -> Terse(1)
+ -> Deepcopy(1)
+ -> Sortkeys(1)
;
+ $fields{cart_md5} = Digest::MD5::md5_hex($dump->Dump);
}

$self->write(\%fields);
diff --git a/lib/Vend/Payment/CyberSource.pm b/lib/Vend/Payment/CyberSource.pm
index 76b39e6..923ad78 100644
--- a/lib/Vend/Payment/CyberSource.pm
+++ b/lib/Vend/Payment/CyberSource.pm
@@ -2631,11 +2631,14 @@ sub log_it {
);

if (@$Vend::Items) {
- $fields{cart_md5} =
- Digest::MD5::md5_hex(
- map { ($_->{code}, $_->{quantity}) } @$Vend::Items
- )
+ my $dump = Data::Dumper
+ -> new($Vend::Items)
+ -> Indent(0)
+ -> Terse(1)
+ -> Deepcopy(1)
+ -> Sortkeys(1)
;
+ $fields{cart_md5} = Digest::MD5::md5_hex($dump->Dump);
}

$self->write(\%fields);
diff --git a/lib/Vend/Payment/PayflowPro.pm b/lib/Vend/Payment/PayflowPro.pm
index 830f186..7ae64ef 100644
--- a/lib/Vend/Payment/PayflowPro.pm
+++ b/lib/Vend/Payment/PayflowPro.pm
@@ -920,11 +920,14 @@ sub log_it {
);

if (@$Vend::Items) {
- $fields{cart_md5} =
- Digest::MD5::md5_hex(
- map { ($_->{code}, $_->{quantity}) } @$Vend::Items
- )
+ my $dump = Data::Dumper
+ -> new($Vend::Items)
+ -> Indent(0)
+ -> Terse(1)
+ -> Deepcopy(1)
+ -> Sortkeys(1)
;
+ $fields{cart_md5} = Digest::MD5::md5_hex($dump->Dump);
}

$self->write(\%fields);
diff --git a/lib/Vend/Payment/PaypalExpress.pm b/lib/Vend/Payment/PaypalExpress.pm
index 794c656..ca709be 100644
--- a/lib/Vend/Payment/PaypalExpress.pm
+++ b/lib/Vend/Payment/PaypalExpress.pm
@@ -2121,11 +2121,14 @@ sub log_it {
);

if (@$Vend::Items) {
- $fields{cart_md5} =
- Digest::MD5::md5_hex(
- map { ($_->{code}, $_->{quantity}) } @$Vend::Items
- )
+ my $dump = Data::Dumper
+ -> new($Vend::Items)
+ -> Indent(0)
+ -> Terse(1)
+ -> Deepcopy(1)
+ -> Sortkeys(1)
;
+ $fields{cart_md5} = Digest::MD5::md5_hex($dump->Dump);
}

$self->write(\%fields);

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs