[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;