1 % if ( $sub eq 'custnum_search' ) {
2 % my $custnum = $cgi->param('arg');
4 % if ( $custnum =~ /^(\d+)$/ ) {
5 % $return = findbycustnum($1,0);
6 % $return = findbycustnum($1,1) if(!scalar(@$return));
8 <% objToJson($return) %>
9 % } elsif ( $sub eq 'smart_search' ) {
11 % my $string = $cgi->param('arg');
12 % my @cust_main = smart_search( 'search' => $string,
13 % 'no_fuzzy_on_exact' => 1, #pref?
15 % my $return = [ map [ $_->custnum, $_->name, $_->balance, $_->ucfirst_status, $_->statuscolor, scalar($_->open_cust_bill) ], @cust_main ];
17 <% objToJson($return) %>
18 % } elsif ( $sub eq 'invnum_search' ) {
20 % my $string = $cgi->param('arg');
21 % if ( $string =~ /^(\d+)$/ ) {
22 % my $inv = qsearchs('cust_bill', { 'invnum' => $1 });
23 % my $return = $inv ? findbycustnum($inv->custnum,0) : [];
24 <% objToJson($return) %>
25 % } else { #return nothing
29 % elsif ( $sub eq 'exact_search' ) {
30 % # XXX possibly should query each element separately
31 % my $hashref = decode_json($cgi->param('arg'));
32 % my @cust_main = qsearch('cust_main', $hashref);
34 % foreach (@cust_main) {
36 % custnum => $_->custnum,
37 % name => $_->name_short,
38 % address1 => $_->address1,
42 <% objToJson($return) %>
46 my $conf = new FS::Conf;
48 my $sub = $cgi->param('sub');
53 my $hashref = { 'custnum' => $custnum };
54 $hashref = { 'agent_custid' => $custnum } if $agent;
56 'table' => 'cust_main',
57 'hashref' => $hashref,
58 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
60 return [ $c->custnum, $c->name, $c->balance, $c->ucfirst_status, $c->statuscolor, scalar($c->open_cust_bill) ]