httemplate/misc/xmlhttp-cust_main-search.cgi

   1 % if ( $sub eq 'custnum_search' ) {
   2 %
   3 %   my $custnum = $cgi->param('arg');
   4 %   my $cust_main = '';
   5 %   if ( $custnum =~ /^(\d+)$/ and $1 <= 2147483647 ) {
   6 %     $cust_main = qsearchs({
   7 %       'table'   => 'cust_main',
   8 %       'hashref' => { 'custnum' => $1 },
   9 %       'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
  10 %     });
  11 %   }
  12 %   if ( ! $cust_main ) {
  13 %     $cust_main = qsearchs({
  14 %       'table'   => 'cust_main',
  15 %       'hashref' => { 'agent_custid' => $custnum },
  16 %       'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
  17 %     });
  18 %   }
  19 %
  20 "<% $cust_main ? $cust_main->name : '' %>"
  21 %
  22 % } elsif ( $sub eq 'smart_search' ) {
  23 %
  24 %   my $string = $cgi->param('arg');
  25 %   my @cust_main = smart_search( 'search' => $string,
  26 %                                 'no_fuzzy_on_exact' => 1, #pref?
  27 %                               );
  28 %   my $return = [ map [ $_->custnum, $_->name, $_->balance ], @cust_main ];
  29 %
  30 <% objToJson($return) %>
  31 % } elsif ( $sub eq 'invnum_search' ) {
  32 %
  33 %   my $string = $cgi->param('arg');
  34 %   my $inv = qsearchs('cust_bill', { 'invnum' => $string });
  35 %   my $return = [];
  36 %   if ( $inv ) {
  37 %       my $cust_main = qsearchs({
  38 %               'table'   => 'cust_main',
  39 %               'hashref' => { 'custnum' => $inv->custnum },
  40 %               'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
  41 %               });
  42 %       $return = [ $cust_main->custnum, $cust_main->name, $cust_main->balance ];
  43 %   }
  44 <% objToJson($return) %>
  45 % }
  46 <%init>
  47
  48 my $conf = new FS::Conf;
  49
  50 my $sub = $cgi->param('sub');
  51
  52 </%init>