[ic] [interchange-cvs] [SCM] Interchange branch, master, updated. REL_5_7_2-6-g8cd47ac

[Mike Heins]

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".