[interchange-cvs] interchange - danb modified lib/Vend/Payment/BoA.pm

[interchange-core@icdevgroup.org]

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+//;