<% encode_json(\@result) %>\ <%init> die 'access denied' unless $FS::CurrentUser::CurrentUser->access_right('Edit customer'); my $sub = $cgi->param('sub'); my $email = $cgi->param('arg'); my @where = ( 'contact_email.emailaddress LIKE '.dbh->quote('%'.$email.'%'), $FS::CurrentUser::CurrentUser->agentnums_sql(table => 'cust_main'), ); my @cust_main = qsearch({ 'table' => 'cust_main', 'select' => 'cust_main.*', 'addl_from' => ' JOIN cust_contact USING (custnum) '. ' JOIN contact_email USING (contactnum)', 'extra_sql' => 'WHERE '.join(' AND ', @where), }); my @result = map { [ $_->custnum, $_->name, $_->dest, $_->invoice_noemail, $_->message_noemail, ] } @cust_main;