<%
-#<!-- $Id: cust_main.cgi,v 1.6 2001-09-16 12:45:35 ivan Exp $ -->
+#<!-- $Id: cust_main.cgi,v 1.9 2001-10-10 05:59:36 thalakan Exp $ -->
use strict;
#use vars qw( $conf %ncancelled_pkgs %all_pkgs $cgi @cust_main $sortby );
$last_type{$_}++;
}
- $cgi->param('last_text') =~ /^([\w \,\.\-\']*)$/
- or eidiot "Illegal last name";
- my($last)=$1;
+ my $cust_obj = new FS::cust_main;
+ $cust_obj->setfield('last', $cgi->param('last_text'));
+ my $error = $cust_obj->ut_name('last');
+ eidiot "Illegal last name" if $error;
+ my($last) = $cust_obj->getfield('last');
if ( $last_type{'Exact'}
&& ! $last_type{'Fuzzy'}