From 1da4dc7b91575649612e8f3f55283b5a8b2b8811 Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 26 Feb 2002 09:06:51 +0000 Subject: [PATCH] ugh, payname needs first/last i guess --- FS/FS/cust_bill.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 943c7b3ec..1ec9298f0 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -470,7 +470,7 @@ sub realtime_card { my($payname, $payfirst, $paylast); if ( $cust_main->payname ) { $payname = $cust_main->payname; - $payname =~ /^\s*([\w \,\.\-\']*\w)?\s+([\w\,\.\-\']+)$/ + $payname =~ /^\s*([\w \,\.\-\']*)?\s+([\w\,\.\-\']+)$/ or do { #$dbh->rollback if $oldAutoCommit; return "Illegal payname $payname"; @@ -880,7 +880,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.19 2002-02-12 18:56:16 ivan Exp $ +$Id: cust_bill.pm,v 1.20 2002-02-26 09:06:51 ivan Exp $ =head1 BUGS -- 2.11.0