From e324bf00eaee9bd13702348b777642d7096b88a0 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 6 May 2002 13:36:02 +0000
Subject: [PATCH] fixes gratuitous "Illegal payname" errors reported by noment

---
 FS/FS/cust_bill.pm | 6 +++---
 1 file 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
 
-- 
2.11.0