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 "cust_main_invoice.dest != 'POST'",
10 "cust_main_invoice.dest LIKE ".dbh->quote('%'.$email.'%'),
11 $FS::CurrentUser::CurrentUser->agentnums_sql(table => 'cust_main'),
13 my @cust_main = qsearch({
14 'table' => 'cust_main',
15 'select' => 'cust_main.*, cust_main_invoice.dest',
16 'addl_from' => 'JOIN cust_main_invoice USING (custnum)',
17 'extra_sql' => 'WHERE '.join(' AND ', @where),