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

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Fri Jun 6 02:36:00 2003


User:      danb
Date:      2003-06-06 06:35:34 GMT
Modified:  lib/Vend/Payment BoA.pm
Log:
Succumb to Jon's nit-picking.  :-)

Revision  Changes    Path
1.8       +3 -3      interchange/lib/Vend/Payment/BoA.pm


rev 1.8, prev_rev 1.7
Index: BoA.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/BoA.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- BoA.pm	6 Jun 2003 01:50:43 -0000	1.7
+++ BoA.pm	6 Jun 2003 06:35:34 -0000	1.8
@@ -1,6 +1,6 @@
 # Vend::Payment::BoA - Interchange BoA support
 #
-# $Id: BoA.pm,v 1.7 2003/06/06 01:50:43 danb Exp $
+# $Id: BoA.pm,v 1.8 2003/06/06 06:35:34 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.7 $
+Vend::Payment::BoA $Revision: 1.8 $
 
 =head1 SYNOPSIS
 
@@ -368,7 +368,7 @@
     $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->{ 'phone_day' } = substr( $actual->{ 'phone_day' }, 0, 16 );
     $actual->{ 'b_country' } = 'US' if $actual->{ 'b_country' } eq 'USA';
 
     $actual->{mv_credit_card_exp_month} =~ s/\D//g;