Trim all non-numeric characters from phone numbers when doing an ACH transaction...

diff --git a/Changes b/Changes
index f59fd60..effae9b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension Business::OnlinePayment::LinkPoint.
 
+0.09    unreleased
+        - Trim all non-numeric characters from phone numbers when doing an ACH
+          transaction, as per undocumented suggestion from LinkPoint.
+
 0.08   Tue May  1 18:26:15 PDT 2007
         - Improve error message for declined checks.
         - Update for new test account.

diff --git a/LinkPoint.pm b/LinkPoint.pm
index 70b6253..6bf9a83 100644 (file)
--- a/LinkPoint.pm
+++ b/LinkPoint.pm
@@ -6,7 +6,8 @@ use Carp qw(croak);
 use Business::OnlinePayment;
 
 @ISA = qw(Business::OnlinePayment);
-$VERSION = '0.08';
+$VERSION = '0.09_01';
+$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
 $DEBUG = 0;
 
 use lpperl; #3;  #lpperl.pm from LinkPoint
@@ -139,6 +140,14 @@ sub submit {
       if ($self->transaction_type() =~ /^e?check$/i
           &&  $content{'action'} =~ /^VOID$/);
 
+    #strip phone numbers of non-digits for ACH/echeck
+    #as per undocumented suggestion from LinkPoint
+    if ( $self->transaction_type =~ /^e?check$/i ) {
+      foreach my $field (qw( phone fax )) {
+        $content{$field} =~ s/\D//g;
+      }
+    }
+
     $self->revmap_fields(
       host         => \( $self->server ),
       port         => \( $self->port ),