X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=site_perl%2Fcust_pay.pm;h=46addac01e59526ca523751193a9592e13ce8cdc;hb=1e3eae905b861761f93643aa5fce14a8be5d9ed2;hp=fc9112b00efbfeb4a176390e6a2c14311f2cdf98;hpb=1f2d8690193476319d61b20b78461eb1a3ff106e;p=freeside.git

diff --git a/site_perl/cust_pay.pm b/site_perl/cust_pay.pm
index fc9112b00..46addac01 100644
--- a/site_perl/cust_pay.pm
+++ b/site_perl/cust_pay.pm
@@ -89,6 +89,7 @@ sub insert {
   local $SIG{QUIT} = 'IGNORE';
   local $SIG{TERM} = 'IGNORE';
   local $SIG{TSTP} = 'IGNORE';
+  local $SIG{PIPE} = 'IGNORE';
 
   $error = $new_cust_bill->replace($old_cust_bill);
   return "Error modifying cust_bill: $error" if $error;
@@ -143,7 +144,8 @@ sub check {
 
   if ( $self->payby eq 'CARD' ) {
     my $payinfo = $self->payinfo;
-    $self->payinfo($payinfo =~ s/\D//g);
+    $payinfo =~ s/\D//g;
+    $self->payinfo($payinfo);
     if ( $self->payinfo ) {
       $self->payinfo =~ /^(\d{13,16})$/
         or return "Illegal (mistyped?) credit card number (payinfo)";
@@ -170,7 +172,7 @@ sub check {
 
 =head1 VERSION
 
-$Id: cust_pay.pm,v 1.2 1998-12-29 11:59:43 ivan Exp $
+$Id: cust_pay.pm,v 1.4 1999-07-29 09:07:44 ivan Exp $
 
 =head1 BUGS
 
@@ -189,7 +191,13 @@ new api ivan@sisd.com 98-mar-13
 pod ivan@sisd.com 98-sep-21
 
 $Log: cust_pay.pm,v $
-Revision 1.2  1998-12-29 11:59:43  ivan
+Revision 1.4  1999-07-29 09:07:44  ivan
+embarassing.
+
+Revision 1.3  1999/01/25 12:26:11  ivan
+yet more mod_perl stuff
+
+Revision 1.2  1998/12/29 11:59:43  ivan
 mostly properly OO, some work still to be done with svc_ stuff