httemplate/search/cust_main.cgi

   1 <%
   2
   3 my $conf = new FS::Conf;
   4 my $maxrecords = $conf->config('maxsearchrecordsperpage');
   5
   6 #my $cache;
   7
   8 #my $monsterjoin = <<END;
   9 #cust_main left outer join (
  10 #  ( cust_pkg left outer join part_pkg using(pkgpart)
  11 #  ) left outer join (
  12 #    (
  13 #      (
  14 #        ( cust_svc left outer join part_svc using (svcpart)
  15 #        ) left outer join svc_acct using (svcnum)
  16 #      ) left outer join svc_domain using(svcnum)
  17 #    ) left outer join svc_forward using(svcnum)
  18 #  ) using (pkgnum)
  19 #) using (custnum)
  20 #END
  21
  22 #my $monsterjoin = <<END;
  23 #cust_main left outer join (
  24 #  ( cust_pkg left outer join part_pkg using(pkgpart)
  25 #  ) left outer join (
  26 #    (
  27 #      (
  28 #        ( cust_svc left outer join part_svc using (svcpart)
  29 #        ) left outer join (
  30 #          svc_acct left outer join (
  31 #            select svcnum, domain, catchall from svc_domain
  32 #            ) as svc_acct_domsvc (
  33 #              svc_acct_svcnum, svc_acct_domain, svc_acct_catchall
  34 #          ) on svc_acct.domsvc = svc_acct_domsvc.svc_acct_svcnum
  35 #        ) using (svcnum)
  36 #      ) left outer join svc_domain using(svcnum)
  37 #    ) left outer join svc_forward using(svcnum)
  38 #  ) using (pkgnum)
  39 #) using (custnum)
  40 #END
  41
  42 my $limit = '';
  43 $limit .= "LIMIT $maxrecords" if $maxrecords;
  44
  45 my $offset = $cgi->param('offset') || 0;
  46 $limit .= " OFFSET $offset" if $offset;
  47
  48 my $total = 0;
  49
  50 my(@cust_main, $sortby, $orderby);
  51 my @select = ();
  52 my @addl_headers = ();
  53 my @addl_cols = ();
  54 if ( $cgi->param('browse')
  55      || $cgi->param('otaker_on')
  56      || $cgi->param('agentnum_on')
  57 ) {
  58
  59   my %search = ();
  60
  61   if ( $cgi->param('browse') ) {
  62     my $query = $cgi->param('browse');
  63     if ( $query eq 'custnum' ) {
  64       $sortby=\*custnum_sort;
  65       $orderby = "ORDER BY custnum";
  66     } elsif ( $query eq 'last' ) {
  67       $sortby=\*last_sort;
  68       $orderby = "ORDER BY LOWER(last || ' ' || first)";
  69     } elsif ( $query eq 'company' ) {
  70       $sortby=\*company_sort;
  71       $orderby = "ORDER BY LOWER(company || ' ' || last || ' ' || first )";
  72     } elsif ( $query eq 'tickets' ) {
  73       $sortby = \*tickets_sort;
  74       $orderby = "ORDER BY tickets DESC";
  75       push @select, FS::TicketSystem->sql_num_customer_tickets. " as tickets";
  76       push @addl_headers, 'Tickets';
  77       push @addl_cols, 'tickets';
  78     } else {
  79       die "unknown browse field $query";
  80     }
  81   } else {
  82     $sortby = \*last_sort; #??
  83     $orderby = "ORDER BY LOWER(last || ' ' || first)"; #??
  84   }
  85
  86   if ( $cgi->param('otaker_on') ) {
  87     $cgi->param('otaker') =~ /^(\w{1,32})$/ or eidiot "Illegal otaker\n";
  88     $search{otaker} = $1;
  89   } elsif ( $cgi->param('agentnum_on') ) {
  90     $cgi->param('agentnum') =~ /^(\d+)$/ or eidiot "Illegal agentnum\n";
  91     $search{agentnum} = $1;
  92 #  } else {
  93 #    die "unknown query...";
  94   }
  95
  96   my @qual = ();
  97
  98   my $ncancelled = '';
  99
 100   if (  $cgi->param('showcancelledcustomers') eq '0' #see if it was set by me
 101        || ( $conf->exists('hidecancelledcustomers')
 102              && ! $cgi->param('showcancelledcustomers') )
 103      ) {
 104     #grep { $_->ncancelled_pkgs || ! $_->all_pkgs }
 105     push @qual, FS::cust_main->uncancel_sql;
 106
 107    }
 108
 109   push @qual, FS::cust_main->cancel_sql   if $cgi->param('cancelled');
 110   push @qual, FS::cust_main->prospect_sql if $cgi->param('prospect');
 111   push @qual, FS::cust_main->active_sql   if $cgi->param('active');
 112   push @qual, FS::cust_main->inactive_sql if $cgi->param('inactive');
 113   push @qual, FS::cust_main->susp_sql     if $cgi->param('suspended');
 114
 115   #EWWWWWW
 116   my $qual = join(' AND ',
 117             map { "$_ = ". dbh->quote($search{$_}) } keys %search );
 118
 119   my $addl_qual = join(' AND ', @qual);
 120
 121   #here is the agent virtualization
 122   $addl_qual .= ( $addl_qual ? ' AND ' : '' ).
 123                 $FS::CurrentUser::CurrentUser->agentnums_sql;
 124
 125   if ( $addl_qual ) {
 126     $qual .= ' AND ' if $qual;
 127     $qual .= $addl_qual;
 128   }
 129
 130   $qual = " WHERE $qual" if $qual;
 131   my $statement = "SELECT COUNT(*) FROM cust_main $qual";
 132   my $sth = dbh->prepare($statement) or die dbh->errstr." preparing $statement";
 133   $sth->execute or die "Error executing \"$statement\": ". $sth->errstr;
 134
 135   $total = $sth->fetchrow_arrayref->[0];
 136
 137   if ( $addl_qual ) {
 138     if ( %search ) {
 139       $addl_qual = " AND $addl_qual";
 140     } else {
 141       $addl_qual = " WHERE $addl_qual";
 142     }
 143   }
 144
 145   my $select;
 146   if ( @select ) {
 147     $select = 'cust_main.*, '. join (', ', @select);
 148   } else {
 149     $select = '*';
 150   }
 151
 152   @cust_main = qsearch('cust_main', \%search, $select,
 153                          "$addl_qual $orderby $limit" );
 154
 155 #  foreach my $cust_main ( @just_cust_main ) {
 156 #
 157 #    my @one_cust_main;
 158 #    $FS::Record::DEBUG=1;
 159 #    ( $cache, @one_cust_main ) = jsearch(
 160 #      "$monsterjoin",
 161 #      { 'custnum' => $cust_main->custnum },
 162 #      '',
 163 #      '',
 164 #      'cust_main',
 165 #      'custnum',
 166 #    );
 167 #    push @cust_main, @one_cust_main;
 168 #  }
 169
 170 } else {
 171   @cust_main=();
 172   $sortby = \*last_sort;
 173
 174   push @cust_main, @{&custnumsearch}
 175     if $cgi->param('custnum_on') && $cgi->param('custnum_text');
 176   push @cust_main, @{&cardsearch}
 177     if $cgi->param('card_on') && $cgi->param('card');
 178   push @cust_main, @{&lastsearch}
 179     if $cgi->param('last_on') && $cgi->param('last_text');
 180   push @cust_main, @{&companysearch}
 181     if $cgi->param('company_on') && $cgi->param('company_text');
 182   push @cust_main, @{&address2search}
 183     if $cgi->param('address2_on') && $cgi->param('address2_text');
 184   push @cust_main, @{&phonesearch}
 185     if $cgi->param('phone_on') && $cgi->param('phone_text');
 186   push @cust_main, @{&referralsearch}
 187     if $cgi->param('referral_custnum');
 188
 189   if ( $cgi->param('company_on') && $cgi->param('company_text') ) {
 190     $sortby = \*company_sort;
 191     push @cust_main, @{&companysearch};
 192   }
 193
 194   if ( $cgi->param('search_cust') ) {
 195     $sortby = \*company_sort;
 196     $orderby = "ORDER BY LOWER(company || ' ' || last || ' ' || first )";
 197     warn "smart searching for: ". $cgi->param('search_cust');
 198     push @cust_main, smart_search( 'search' => $cgi->param('search_cust') );
 199   }
 200
 201   @cust_main = grep { $_->ncancelled_pkgs || ! $_->all_pkgs } @cust_main
 202     if ! $cgi->param('cancelled')
 203        && (
 204          $cgi->param('showcancelledcustomers') eq '0' #see if it was set by me
 205          || ( $conf->exists('hidecancelledcustomers')
 206                && ! $cgi->param('showcancelledcustomers') )
 207        );
 208
 209   my %saw = ();
 210   @cust_main = grep { !$saw{$_->custnum}++ } @cust_main;
 211 }
 212
 213 my %all_pkgs;
 214 if ( $conf->exists('hidecancelledpackages' ) ) {
 215   %all_pkgs = map { $_->custnum => [ $_->ncancelled_pkgs ] } @cust_main;
 216 } else {
 217   %all_pkgs = map { $_->custnum => [ $_->all_pkgs ] } @cust_main;
 218 }
 219 #%all_pkgs = ();
 220
 221 if ( scalar(@cust_main) == 1 && ! $cgi->param('referral_custnum') ) {
 222   if ( $cgi->param('quickpay') eq 'yes' ) {
 223     print $cgi->redirect(popurl(2). "edit/cust_pay.cgi?quickpay=yes;custnum=". $cust_main[0]->custnum);
 224   } else {
 225     print $cgi->redirect(popurl(2). "view/cust_main.cgi?". $cust_main[0]->custnum);
 226   }
 227   #exit;
 228 } elsif ( scalar(@cust_main) == 0 ) {
 229 %>
 230 <!-- mason kludge -->
 231 <%
 232   eidiot "No matching customers found!\n";
 233 } else {
 234 %>
 235 <%= include('/elements/header.html', "Customer Search Results", '' ) %>
 236
 237   <% $total ||= scalar(@cust_main); %>
 238
 239   <%= $total %> matching customers found
 240
 241   <%
 242   #begin pager
 243   my $pager = '';
 244   if ( $total != scalar(@cust_main) && $maxrecords ) {
 245     unless ( $offset == 0 ) {
 246       $cgi->param('offset', $offset - $maxrecords);
 247       $pager .= '<A HREF="'. $cgi->self_url.
 248                 '"><B><FONT SIZE="+1">Previous</FONT></B></A> ';
 249     }
 250     my $poff;
 251     my $page;
 252     for ( $poff = 0; $poff < $total; $poff += $maxrecords ) {
 253       $page++;
 254       if ( $offset == $poff ) {
 255         $pager .= qq!<FONT SIZE="+2">$page</FONT> !;
 256       } else {
 257         $cgi->param('offset', $poff);
 258         $pager .= qq!<A HREF="!. $cgi->self_url. qq!">$page</A> !;
 259       }
 260     }
 261     unless ( $offset + $maxrecords > $total ) {
 262       $cgi->param('offset', $offset + $maxrecords);
 263       $pager .= '<A HREF="'. $cgi->self_url.
 264                 '"><B><FONT SIZE="+1">Next</FONT></B></A> ';
 265     }
 266   }
 267   #end pager
 268
 269   unless ( $cgi->param('cancelled') ) {
 270     if ( $cgi->param('showcancelledcustomers') eq '0' #see if it was set by me
 271          || ( $conf->exists('hidecancelledcustomers')
 272               && ! $cgi->param('showcancelledcustomers')
 273             )
 274        ) {
 275       $cgi->param('showcancelledcustomers', 1);
 276       $cgi->param('offset', 0);
 277       print qq!( <a href="!. $cgi->self_url. qq!">show!;
 278     } else {
 279       $cgi->param('showcancelledcustomers', 0);
 280       $cgi->param('offset', 0);
 281       print qq!( <a href="!. $cgi->self_url. qq!">hide!;
 282     }
 283     print ' cancelled customers</a> )';
 284   }
 285
 286   if ( $cgi->param('referral_custnum') ) {
 287     $cgi->param('referral_custnum') =~ /^(\d+)$/
 288       or eidiot "Illegal referral_custnum\n";
 289     my $referral_custnum = $1;
 290     my $cust_main = qsearchs('cust_main', { custnum => $referral_custnum } );
 291     print '<FORM METHOD="GET">'.
 292           qq!<INPUT TYPE="hidden" NAME="referral_custnum" VALUE="$referral_custnum">!.
 293           'referrals of <A HREF="'. popurl(2).
 294           "view/cust_main.cgi?$referral_custnum\">$referral_custnum: ".
 295           ( $cust_main->company
 296             || $cust_main->last. ', '. $cust_main->first ).
 297           '</A>';
 298     print "\n",<<END;
 299       <SCRIPT>
 300       function changed(what) {
 301         what.form.submit();
 302       }
 303       </SCRIPT>
 304 END
 305     print ' <SELECT NAME="referral_depth" SIZE="1" onChange="changed(this)">';
 306     my $max = 8; #config file
 307     $cgi->param('referral_depth') =~ /^(\d*)$/
 308       or eidiot "Illegal referral_depth";
 309     my $referral_depth = $1;
 310
 311     foreach my $depth ( 1 .. $max ) {
 312       print '<OPTION',
 313             ' SELECTED'x($depth == $referral_depth),
 314             ">$depth";
 315     }
 316     print "</SELECT> levels deep".
 317           '<NOSCRIPT> <INPUT TYPE="submit" VALUE="change"></NOSCRIPT>'.
 318           '</FORM>';
 319   }
 320
 321   my @custom_priorities = ();
 322   if ( $conf->config('ticket_system-custom_priority_field')
 323        && @{[ $conf->config('ticket_system-custom_priority_field-values') ]} ) {
 324     @custom_priorities =
 325       $conf->config('ticket_system-custom_priority_field-values');
 326   }
 327
 328   print "<BR><BR>". $pager. include('/elements/table-grid.html'). <<END;
 329       <TR>
 330         <TH CLASS="grid" BGCOLOR="#cccccc"></TH>
 331         <TH CLASS="grid" BGCOLOR="#cccccc">(bill) name</TH>
 332         <TH CLASS="grid" BGCOLOR="#cccccc">company</TH>
 333 END
 334
 335 if ( defined dbdef->table('cust_main')->column('ship_last') ) {
 336   print <<END;
 337       <TH CLASS="grid" BGCOLOR="#cccccc">(service) name</TH>
 338       <TH CLASS="grid" BGCOLOR="#cccccc">company</TH>
 339 END
 340 }
 341
 342 foreach my $addl_header ( @addl_headers ) {
 343   print '<TH CLASS="grid" BGCOLOR="#cccccc">'. "$addl_header</TH>";
 344 }
 345
 346 print <<END;
 347         <TH CLASS="grid" BGCOLOR="#cccccc">Packages</TH>
 348         <TH CLASS="grid" BGCOLOR="#cccccc" COLSPAN=2>Services</TH>
 349       </TR>
 350 END
 351
 352   my $bgcolor1 = '#eeeeee';
 353   my $bgcolor2 = '#ffffff';
 354   my $bgcolor;
 355
 356   my(%saw,$cust_main);
 357   foreach $cust_main (
 358     sort $sortby grep(!$saw{$_->custnum}++, @cust_main)
 359   ) {
 360
 361     if ( $bgcolor eq $bgcolor1 ) {
 362       $bgcolor = $bgcolor2;
 363     } else {
 364       $bgcolor = $bgcolor1;
 365     }
 366
 367     my($custnum,$last,$first,$company)=(
 368       $cust_main->custnum,
 369       $cust_main->getfield('last'),
 370       $cust_main->getfield('first'),
 371       $cust_main->company,
 372     );
 373
 374     my(@lol_cust_svc);
 375     my($rowspan)=0;#scalar( @{$all_pkgs{$custnum}} );
 376     foreach ( @{$all_pkgs{$custnum}} ) {
 377       #my(@cust_svc) = qsearch( 'cust_svc', { 'pkgnum' => $_->pkgnum } );
 378       my @cust_svc = $_->cust_svc;
 379       push @lol_cust_svc, \@cust_svc;
 380       $rowspan += scalar(@cust_svc) || 1;
 381     }
 382
 383     #my($rowspan) = scalar(@{$all_pkgs{$custnum}});
 384     my $view;
 385     if ( defined $cgi->param('quickpay') && $cgi->param('quickpay') eq 'yes' ) {
 386       $view = $p. 'edit/cust_pay.cgi?quickpay=yes;custnum='. $custnum;
 387     } else {
 388       $view = $p. 'view/cust_main.cgi?'. $custnum;
 389     }
 390     my $pcompany = $company
 391       ? qq!<A HREF="$view"><FONT SIZE=-1>$company</FONT></A>!
 392       : '<FONT SIZE=-1>&nbsp;</FONT>';
 393     %>
 394
 395     <TR>
 396       <TD CLASS="grid" BGCOLOR="<%= $bgcolor %>" ROWSPAN=<%= $rowspan || 1 %>><A HREF="<%= $view %>"><FONT SIZE=-1><%= $custnum %></FONT></A></TD>
 397       <TD CLASS="grid" BGCOLOR="<%= $bgcolor %>" ROWSPAN=<%= $rowspan || 1 %>><A HREF="<%= $view %>"><FONT SIZE=-1><%= "$last, $first" %></FONT></A></TD>
 398       <TD CLASS="grid" BGCOLOR="<%= $bgcolor %>" ROWSPAN=<%= $rowspan || 1 %>><%= $pcompany %></TD>
 399
 400     <%
 401     if ( defined dbdef->table('cust_main')->column('ship_last') ) {
 402       my($ship_last,$ship_first,$ship_company)=(
 403         $cust_main->ship_last || $cust_main->getfield('last'),
 404         $cust_main->ship_last ? $cust_main->ship_first : $cust_main->first,
 405         $cust_main->ship_last ? $cust_main->ship_company : $cust_main->company,
 406       );
 407       my $pship_company = $ship_company
 408         ? qq!<A HREF="$view"><FONT SIZE=-1>$ship_company</FONT></A>!
 409         : '<FONT SIZE=-1>&nbsp;</FONT>';
 410       %>
 411
 412       <TD CLASS="grid" BGCOLOR="<%= $bgcolor %>" ROWSPAN=<%= $rowspan || 1 %>><A HREF="<%= $view %>"><FONT SIZE=-1><%= "$ship_last, $ship_first" %></FONT></A></TD>
 413       <TD CLASS="grid" BGCOLOR="<%= $bgcolor %>" ROWSPAN=<%= $rowspan || 1 %>><%= $pship_company %></A></TD>
 414
 415     <% }
 416
 417     foreach my $addl_col ( @addl_cols ) { %>
 418
 419       <% if ( $addl_col eq 'tickets' ) { %>
 420
 421         <% if ( @custom_priorities ) { %>
 422
 423              <TD CLASS="inv" BGCOLOR="<%= $bgcolor %>" ROWSPAN=<%= $rowspan || 1 %> ALIGN=right><FONT SIZE=-1>
 424
 425                <TABLE CLASS="inv" CELLSPACING=0 CELLPADDING=0>
 426
 427                <% foreach my $priority ( @custom_priorities, '' ) { %>
 428
 429                  <%
 430                     my $num =
 431                       FS::TicketSystem->num_customer_tickets($custnum,$priority);
 432                     my $ahref = '';
 433                     $ahref= '<A HREF="'.
 434                             FS::TicketSystem->href_customer_tickets($custnum,$priority).
 435                             '">'
 436                       if $num;
 437                  %>
 438
 439                  <TR>
 440                    <TD ALIGN=right>
 441                      <FONT SIZE=-1><%= $ahref.$num %></A></FONT>
 442                    </TD>
 443                    <TD ALIGN=left>
 444                      <FONT SIZE=-1><%= $ahref %><%= $priority || '<i>(none)</i>' %></A></FONT>
 445                    </TD>
 446                  </TR>
 447
 448                <% } %>
 449
 450              <TR>
 451                <TH ALIGN=right STYLE="border-top: dashed 1px black">
 452                <FONT SIZE=-1>
 453
 454         <% } else { %>
 455
 456           <TD CLASS="grid" BGCOLOR="<%= $bgcolor %>" ROWSPAN=<%= $rowspan || 1 %> ALIGN=right><FONT SIZE=-1>
 457
 458         <% } %>
 459
 460         <%
 461            my $ahref = '';
 462            $ahref = '<A HREF="'.
 463                        FS::TicketSystem->href_customer_tickets($custnum).
 464                        '">'
 465              if $cust_main->get($addl_col);
 466         %>
 467
 468         <%= $ahref %><%= $cust_main->get($addl_col) %></A>
 469
 470         <% if ( @custom_priorities ) { %>
 471
 472           </FONT></TH>
 473             <TH ALIGN=left STYLE="border-top: dashed 1px black">
 474               <FONT SIZE=-1><%= ${ahref} %>Total</A><FONT>
 475             </TH>
 476           </TR>
 477           </TABLE>
 478
 479         <% } %>
 480
 481         </FONT></TD>
 482
 483       <% } else { %>
 484
 485         <TD CLASS="grid" BGCOLOR="<%= $bgcolor %>" ROWSPAN=<%= $rowspan || 1 %> ALIGN=right><FONT SIZE=-1>
 486           <%= $cust_main->get($addl_col) %>
 487         </FONT></TD>
 488
 489 <%
 490       }
 491     }
 492
 493     my($n1)='';
 494     foreach ( @{$all_pkgs{$custnum}} ) {
 495       my $pkgnum = $_->pkgnum;
 496 #      my $part_pkg = qsearchs( 'part_pkg', { pkgpart => $_->pkgpart } );
 497       my $part_pkg = $_->part_pkg;
 498
 499       my $pkg = $part_pkg->pkg;
 500       my $comment = $part_pkg->comment;
 501       my $pkgview = "${p}view/cust_main.cgi?$custnum#cust_pkg$pkgnum";
 502       my @cust_svc = @{shift @lol_cust_svc};
 503       #my(@cust_svc) = qsearch( 'cust_svc', { 'pkgnum' => $_->pkgnum } );
 504       my $rowspan = scalar(@cust_svc) || 1;
 505
 506       print $n1, qq!<TD CLASS="grid" BGCOLOR="$bgcolor"  ROWSPAN=$rowspan><A HREF="$pkgview"><FONT SIZE=-1>$pkg - $comment</FONT></A></TD>!;
 507
 508       my($n2)='';
 509       foreach my $cust_svc ( @cust_svc ) {
 510          my($label, $value, $svcdb) = $cust_svc->label;
 511          my($svcnum) = $cust_svc->svcnum;
 512          my($sview) = $p.'view';
 513          print $n2,qq!<TD CLASS="grid" BGCOLOR="$bgcolor" ><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$label</FONT></A></TD>!,
 514                qq!<TD CLASS="grid" BGCOLOR="$bgcolor" ><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$value</FONT></A></TD>!;
 515          $n2="</TR><TR>";
 516       }
 517
 518       unless ( @cust_svc ) {
 519         print qq!<TD CLASS="grid" BGCOLOR="$bgcolor" COLSPAN=2>&nbsp;</TD>!;
 520       }
 521
 522       #print qq!</TR><TR>\n!;
 523       $n1="</TR><TR>";
 524     }
 525
 526     unless ( @{$all_pkgs{$custnum}} ) {
 527       print qq!<TD CLASS="grid" BGCOLOR="$bgcolor" COLSPAN=3>&nbsp;</TD>!;
 528     }
 529
 530     print "</TR>";
 531   }
 532
 533   %>
 534
 535   </TABLE><%= $pager %>
 536
 537   <%= include('/elements/footer.html') %>
 538
 539 <% }
 540
 541 #undef $cache; #does this help?
 542
 543 #
 544
 545 sub last_sort {
 546   lc($a->getfield('last')) cmp lc($b->getfield('last'))
 547   || lc($a->first) cmp lc($b->first);
 548 }
 549
 550 sub company_sort {
 551   return -1 if $a->company && ! $b->company;
 552   return 1 if ! $a->company && $b->company;
 553   lc($a->company) cmp lc($b->company)
 554   || lc($a->getfield('last')) cmp lc($b->getfield('last'))
 555   || lc($a->first) cmp lc($b->first);;
 556 }
 557
 558 sub custnum_sort {
 559   $a->getfield('custnum') <=> $b->getfield('custnum');
 560 }
 561
 562 sub tickets_sort {
 563   $b->getfield('tickets') <=> $a->getfield('tickets');
 564 }
 565
 566 sub custnumsearch {
 567
 568   my $custnum = $cgi->param('custnum_text');
 569   $custnum =~ s/\D//g;
 570   $custnum =~ /^(\d{1,23})$/ or eidiot "Illegal customer number\n";
 571   $custnum = $1;
 572
 573   [ qsearchs('cust_main', { 'custnum' => $custnum } ) ];
 574 }
 575
 576 sub cardsearch {
 577
 578   my($card)=$cgi->param('card');
 579   $card =~ s/\D//g;
 580   $card =~ /^(\d{13,16})$/ or eidiot "Illegal card number\n";
 581   my($payinfo)=$1;
 582
 583   [ qsearch('cust_main',{'payinfo'=>$payinfo, 'payby'=>'CARD'}),
 584     qsearch('cust_main',{'payinfo'=>$payinfo, 'payby'=>'DCRD'})
 585   ];
 586 }
 587
 588 sub referralsearch {
 589   $cgi->param('referral_custnum') =~ /^(\d+)$/
 590     or eidiot "Illegal referral_custnum";
 591   my $cust_main = qsearchs('cust_main', { 'custnum' => $1 } )
 592     or eidiot "Customer $1 not found";
 593   my $depth;
 594   if ( $cgi->param('referral_depth') ) {
 595     $cgi->param('referral_depth') =~ /^(\d+)$/
 596       or eidiot "Illegal referral_depth";
 597     $depth = $1;
 598   } else {
 599     $depth = 1;
 600   }
 601   [ $cust_main->referral_cust_main($depth) ];
 602 }
 603
 604 sub lastsearch {
 605   my(%last_type);
 606   my @cust_main;
 607   foreach ( $cgi->param('last_type') ) {
 608     $last_type{$_}++;
 609   }
 610
 611   $cgi->param('last_text') =~ /^([\w \,\.\-\']*)$/
 612     or eidiot "Illegal last name";
 613   my($last)=$1;
 614
 615   if ( $last_type{'Exact'} || $last_type{'Fuzzy'} ) {
 616     push @cust_main, qsearch( 'cust_main',
 617                               { 'last' => { 'op'    => 'ILIKE',
 618                                             'value' => $last    } } );
 619
 620     push @cust_main, qsearch( 'cust_main',
 621                               { 'ship_last' => { 'op'    => 'ILIKE',
 622                                                  'value' => $last    } } )
 623       if defined dbdef->table('cust_main')->column('ship_last');
 624   }
 625
 626   if ( $last_type{'Substring'} || $last_type{'All'} ) {
 627
 628     push @cust_main, qsearch( 'cust_main',
 629                               { 'last' => { 'op'    => 'ILIKE',
 630                                             'value' => "%$last%" } } );
 631
 632     push @cust_main, qsearch( 'cust_main',
 633                               { 'ship_last' => { 'op'    => 'ILIKE',
 634                                                  'value' => "%$last%" } } )
 635       if defined dbdef->table('cust_main')->column('ship_last');
 636
 637   }
 638
 639   if ( $last_type{'Fuzzy'} || $last_type{'All'} ) {
 640     push @cust_main, FS::cust_main->fuzzy_search( { 'last' => $last } );
 641   }
 642
 643   #if ($last_type{'Sound-alike'}) {
 644   #}
 645
 646   \@cust_main;
 647 }
 648
 649 sub companysearch {
 650
 651   my(%company_type);
 652   my @cust_main;
 653   foreach ( $cgi->param('company_type') ) {
 654     $company_type{$_}++
 655   };
 656
 657   $cgi->param('company_text') =~
 658     /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=]*)$/
 659       or eidiot "Illegal company";
 660   my $company = $1;
 661
 662   if ( $company_type{'Exact'} || $company_type{'Fuzzy'} ) {
 663     push @cust_main, qsearch( 'cust_main',
 664                               { 'company' => { 'op'    => 'ILIKE',
 665                                                'value' => $company } } );
 666
 667     push @cust_main, qsearch( 'cust_main',
 668                               { 'ship_company' => { 'op'    => 'ILIKE',
 669                                                     'value' => $company } } )
 670       if defined dbdef->table('cust_main')->column('ship_last');
 671   }
 672
 673   if ( $company_type{'Substring'} || $company_type{'All'} ) {
 674
 675     push @cust_main, qsearch( 'cust_main',
 676                               { 'company' => { 'op'    => 'ILIKE',
 677                                                'value' => "%$company%" } } );
 678
 679     push @cust_main, qsearch( 'cust_main',
 680                               { 'ship_company' => { 'op'    => 'ILIKE',
 681                                                     'value' => "%$company%" } })
 682       if defined dbdef->table('cust_main')->column('ship_last');
 683
 684   }
 685
 686   if ( $company_type{'Fuzzy'} || $company_type{'All'} ) {
 687     push @cust_main, FS::cust_main->fuzzy_search( { 'company' => $company } );
 688   }
 689
 690   if ($company_type{'Sound-alike'}) {
 691   }
 692
 693   \@cust_main;
 694 }
 695
 696 sub address2search {
 697   my @cust_main;
 698
 699   $cgi->param('address2_text') =~
 700     /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=]*)$/
 701       or eidiot "Illegal address2";
 702   my $address2 = $1;
 703
 704   push @cust_main, qsearch( 'cust_main',
 705                             { 'address2' => { 'op'    => 'ILIKE',
 706                                               'value' => $address2 } } );
 707   push @cust_main, qsearch( 'cust_main',
 708                             { 'address2' => { 'op'    => 'ILIKE',
 709                                               'value' => $address2 } } )
 710     if defined dbdef->table('cust_main')->column('ship_last');
 711
 712   \@cust_main;
 713 }
 714
 715 sub phonesearch {
 716   my @cust_main;
 717
 718   my $phone = $cgi->param('phone_text');
 719
 720   #(no longer really) false laziness with Record::ut_phonen
 721   #only works with US/CA numbers...
 722   $phone =~ s/\D//g;
 723   if ( $phone =~ /^(\d{3})(\d{3})(\d{4})(\d*)$/ ) {
 724     $phone = "$1-$2-$3";
 725     $phone .= " x$4" if $4;
 726   } elsif ( $phone =~ /^(\d{3})(\d{4})$/ ) {
 727     $phone = "$1-$2";
 728   } elsif ( $phone =~ /^(\d{3,4})$/ ) {
 729     $phone = $1;
 730   } else {
 731     eidiot gettext('illegal_phone'). ": $phone";
 732   }
 733
 734   my @fields = qw(daytime night fax);
 735   push @fields, qw(ship_daytime ship_night ship_fax)
 736     if defined dbdef->table('cust_main')->column('ship_last');
 737
 738   for my $field ( @fields ) {
 739     push @cust_main, qsearch ( 'cust_main',
 740                                { $field => { 'op'    => 'LIKE',
 741                                              'value' => "%$phone%" } } );
 742   }
 743
 744   \@cust_main;
 745 }
 746
 747 %>