[interchange-cvs] [SCM] Interchange branch, master, updated. REL_5_7_2-6-g8cd47ac
Peter Ajamian
interchange-cvs at icdevgroup.org
Wed Sep 30 03:46:34 UTC 2009
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Interchange".
The branch, master has been updated
via 8cd47ac938422208c2ec20ff076902e5c53f7834 (commit)
from 5377377546fc2934106cdf540ff0c3c91f2b7feb (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 8cd47ac938422208c2ec20ff076902e5c53f7834
Author: Richard Templet <richard at endpoint.com>
Date: Tue Sep 29 19:38:31 2009 -0500
Allow variable to override default LUHN-10 error message
Modification to the Order.pm file to allow a catalog
level variable, LUHN_10_ERRMSG, to override the default
error message when a credit card doesn't pass the LUHN-10
check.
-----------------------------------------------------------------------
Summary of changes and diff:
WHATSNEW-5.7 | 12 ++++++++++++
dist/standard/products/variable.txt | 1 +
lib/Vend/Order.pm | 2 +-
3 files changed, 14 insertions(+), 1 deletions(-)
diff --git a/WHATSNEW-5.7 b/WHATSNEW-5.7
index 37286fd..6d4eed3 100644
--- a/WHATSNEW-5.7
+++ b/WHATSNEW-5.7
@@ -8,6 +8,18 @@
See UPGRADE document for a list of incompatible changes.
+Interchange 5.7.3 released ####-##-##.
+
+
+Core
+----
+
+* Allow variable to override default LUHN-10 error message.
+
+
+------------------------------------------------------------------------------
+
+
Interchange 5.7.2 released 2009-09-17.
diff --git a/dist/standard/products/variable.txt b/dist/standard/products/variable.txt
index 7191aeb..43eb0f4 100644
--- a/dist/standard/products/variable.txt
+++ b/dist/standard/products/variable.txt
@@ -37,6 +37,7 @@ LINKHOST __MVC_LINKHOST__ Admin Control
LINKPORT __MVC_LINKPORT__ Admin Control
LOCALES __MVC_LOCALES__ Internationalization
LOGO logo.png Template
+LUHN_10_ERRMSG Credit card number fails LUHN-10 check. Order
MAILING_FROM __MVC_COMPANY__ <__MVC_MAILORDERTO__> Mailings
MAILING_MAX_DIRECT 50 Mailings
MAILING_TO {FNAME} {LNAME} <{EMAIL}> Mailings
diff --git a/lib/Vend/Order.pm b/lib/Vend/Order.pm
index 1ebf218..4b371e3 100644
--- a/lib/Vend/Order.pm
+++ b/lib/Vend/Order.pm
@@ -622,7 +622,7 @@ sub encrypt_standard_cc {
}
unless ($valid = luhn($num) || $force ) {
- my $msg = errmsg("Credit card number fails LUHN-10 check.");
+ my $msg = errmsg($::Variable->{LUHN_10_ERRMSG} || "Credit card number fails LUHN-10 check.");
$Vend::Session->{errors}{mv_credit_card_valid} = $msg;
push @return, $msg;
return @return;
hooks/post-receive
--
Interchange
More information about the interchange-cvs
mailing list