- #docs disagree with lpperl.pm here
- $content{'voidcheck'} = 1
- 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;
+ }
+ }
+ # stuff it back into %content
+ $self->content(%content);