[interchange-cvs] interchange - danb modified lib/Vend/Payment/BoA.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Thu Jun 5 21:51:01 2003
User: danb
Date: 2003-06-06 01:50:43 GMT
Modified: lib/Vend/Payment BoA.pm
Log:
* Minor data filtering additions
Revision Changes Path
1.7 +6 -2 interchange/lib/Vend/Payment/BoA.pm
rev 1.7, prev_rev 1.6
Index: BoA.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/BoA.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- BoA.pm 31 Mar 2003 20:34:15 -0000 1.6
+++ BoA.pm 6 Jun 2003 01:50:43 -0000 1.7
@@ -1,6 +1,6 @@
# Vend::Payment::BoA - Interchange BoA support
#
-# $Id: BoA.pm,v 1.6 2003/03/31 20:34:15 ramoore Exp $
+# $Id: BoA.pm,v 1.7 2003/06/06 01:50:43 danb Exp $
#
# Copyright (C) 1999-2002 Red Hat, Inc. <interchange@redhat.com>
#
@@ -33,7 +33,7 @@
=head1 Interchange BoA Support
-Vend::Payment::BoA $Revision: 1.6 $
+Vend::Payment::BoA $Revision: 1.7 $
=head1 SYNOPSIS
@@ -366,6 +366,10 @@
#::logDebug("transtype: $transtype");
$opt->{script} = '/payment.mart';
+
+ # Phone less than 17 chars, and country must be US, not USA.
+ $actual->{ 'phone_day' } = $Tag->filter( { op => '16' }, $actual->{ 'phone_day' } );
+ $actual->{ 'b_country' } = 'US' if $actual->{ 'b_country' } eq 'USA';
$actual->{mv_credit_card_exp_month} =~ s/\D//g;
$actual->{mv_credit_card_exp_month} =~ s/^0+//;