diff options
| author | ivan <ivan> | 2002-05-06 13:36:02 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-05-06 13:36:02 +0000 |
| commit | e324bf00eaee9bd13702348b777642d7096b88a0 (patch) | |
| tree | 052636f7a209cf0e99a5ab18c4c0caecbcd675b1 | |
| parent | f36b6a178c9811357ff5d5291874aa239d22bc2a (diff) | |
fixes gratuitous "Illegal payname" errors reported by noment
| -rw-r--r-- | FS/FS/cust_bill.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 63a70cd5b..449ab74b9 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -458,7 +458,7 @@ sub realtime_card { my($payname, $payfirst, $paylast); if ( $cust_main->payname ) { $payname = $cust_main->payname; - $payname =~ /^\s*([\w \,\.\-\']*)?\s+([\w\,\.\-\']+)$/ + $payname =~ /^\s*([\w \,\.\-\']*)?\s+([\w\,\.\-\']+)\s*$/ or do { #$dbh->rollback if $oldAutoCommit; return "Illegal payname $payname"; @@ -466,7 +466,7 @@ sub realtime_card { ($payfirst, $paylast) = ($1, $2); } else { $payfirst = $cust_main->getfield('first'); - $paylast = $cust_main->getfield('first'); + $paylast = $cust_main->getfield('last'); $payname = "$payfirst $paylast"; } @@ -948,7 +948,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.33 2002-04-19 14:27:34 ivan Exp $ +$Id: cust_bill.pm,v 1.34 2002-05-06 13:36:02 ivan Exp $ =head1 BUGS |