1 <% encode_json(\@result) %>\
4 unless $FS::CurrentUser::CurrentUser->access_right('Edit customer');
6 my $sub = $cgi->param('sub');
7 my $email = $cgi->param('arg');
9 'contact_email.emailaddress LIKE '.dbh->quote('%'.$email.'%'),
10 $FS::CurrentUser::CurrentUser->agentnums_sql(table => 'cust_main'),
12 my @cust_main = qsearch({
13 'table' => 'cust_main',
14 'select' => 'cust_main.*',
15 'addl_from' => ' JOIN cust_contact USING (custnum) '.
16 ' JOIN contact_email USING (contactnum)',
17 'extra_sql' => 'WHERE '.join(' AND ', @where),