X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=site_perl%2Fcust_main.pm;h=fa1dc29a009f9c9031f20f1ed12c55db10618687;hb=065d837ab0125c1b035809b744be4f3c8e4385a3;hp=838e2091e4d61b5e5c1e7abb5a3483ed777a33f2;hpb=7f423abd0b553e1f0dd1419adec8735ee2c31df2;p=freeside.git

diff --git a/site_perl/cust_main.pm b/site_perl/cust_main.pm
index 838e2091e..fa1dc29a0 100644
--- a/site_perl/cust_main.pm
+++ b/site_perl/cust_main.pm
@@ -229,7 +229,8 @@ sub check {
   return "Unknown referral"
     unless qsearchs( 'part_referral', { 'refnum' => $self->refnum } );
 
-  $self->getfield('last') =~ /^([\w \,\.\-\']+)$/ or return "Illegal last name";
+  $self->getfield('last') =~ /^([\w \,\.\-\']+)$/
+    or return "Illegal last name: ". $self->getfield('last');
   $self->setfield('last',$1);
 
   $self->first =~ /^([\w \,\.\-\']+)$/ or return "Illegal first name";
@@ -880,7 +881,7 @@ sub check_invoicing_list {
 
 =head1 VERSION
 
-$Id: cust_main.pm,v 1.17 1999-04-10 05:27:38 ivan Exp $
+$Id: cust_main.pm,v 1.18 1999-04-10 06:54:11 ivan Exp $
 
 =head1 BUGS
 
@@ -936,7 +937,10 @@ enable cybercash, cybercash v3 support, don't need to import
 FS::UID::{datasrc,checkruid} ivan@sisd.com 98-sep-19-21
 
 $Log: cust_main.pm,v $
-Revision 1.17  1999-04-10 05:27:38  ivan
+Revision 1.18  1999-04-10 06:54:11  ivan
+ditto
+
+Revision 1.17  1999/04/10 05:27:38  ivan
 display an illegal payby, to assist importing
 
 Revision 1.16  1999/04/07 14:32:19  ivan