[interchange-cvs] interchange - heins modified lib/Vend/Order.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Oct 13 18:23:59 EDT 2005
User: heins
Date: 2005-10-13 22:23:59 GMT
Modified: lib/Vend Order.pm
Log:
* Add dash-seperated number as possibliity for easy reading of credit
card info. Outputs a 4111-1111-1111-1111 number when you use
MV_CREDIT_CARD_QUADS in the encryption output template, i.e.
Variable MV_CREDIT_CARD_INFO_TEMPLATE <<EOV
{MV_CREDIT_CARD_TYPE} {MV_CREDIT_CARD_QUADS} {MV_CREDIT_CARD_EXP_MONTH}/{MV_CREDIT_CARD_EXP_YEAR}
EOV
Revision Changes Path
2.77 +9 -2 interchange/lib/Vend/Order.pm
rev 2.77, prev_rev 2.76
Index: Order.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Order.pm,v
retrieving revision 2.76
retrieving revision 2.77
diff -u -r2.76 -r2.77
--- Order.pm 13 Oct 2005 20:15:05 -0000 2.76
+++ Order.pm 13 Oct 2005 22:23:59 -0000 2.77
@@ -1,6 +1,6 @@
# Vend::Order - Interchange order routing routines
#
-# $Id: Order.pm,v 2.76 2005/10/13 20:15:05 racke Exp $
+# $Id: Order.pm,v 2.77 2005/10/13 22:23:59 mheins Exp $
#
# Copyright (C) 2002-2003 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -29,7 +29,7 @@
package Vend::Order;
require Exporter;
-$VERSION = substr(q$Revision: 2.76 $, 10);
+$VERSION = substr(q$Revision: 2.77 $, 10);
@ISA = qw(Exporter);
@@ -627,6 +627,13 @@
$cardinfo = \%c;
} elsif (ref $cardinfo ne 'HASH') {
return;
+ }
+
+ if(my $num = $cardinfo->{MV_CREDIT_CARD_NUMBER}) {
+ my @quads;
+ $num =~ s/\D//g;
+ @quads = $num =~ m{(\d\d\d\d)(\d\d\d\d)(\d\d\d\d)(\d+)};
+ $cardinfo->{MV_CREDIT_CARD_QUADS} = join "-", @quads;
}
$template = $template ||
More information about the interchange-cvs
mailing list