[ic] [interchange-cvs] [SCM] Interchange branch, master, updated. REL_5_7_2-6-g8cd47ac
Mike Heins
mike at perusion.com
Wed Sep 30 04:49:36 UTC 2009
Quoting Peter Ajamian (interchange-cvs at icdevgroup.org):
> 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
If it is in the core, it should probably begin with MV.
Also, it is intended that you use Locale to override these
messages. This allows the ErrorDestination directive to work
cross-catalog.
>
> 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
>
> _______________________________________________
> interchange-cvs mailing list
> interchange-cvs at icdevgroup.org
> http://www.icdevgroup.org/mailman/listinfo/interchange-cvs
>
--
Mike Heins
Perusion -- Expert Interchange Consulting http://www.perusion.com/
phone +1.765.328.4479 <mike at perusion.com>
I have a cop friend who thinks he ought be able to give a new ticket;
"too dumb for conditions".
More information about the interchange-users
mailing list