htdocs/search/cust_main.cgi

   1 #!/usr/bin/perl -Tw
   2 #
   3 # process/cust_main.cgi: Search for customers (process form)
   4 #
   5 # Usage: post form to:
   6 #        http://server.name/path/cust_main.cgi
   7 #
   8 # Note: Should be run setuid freeside as user nobody.
   9 #
  10 # ivan@voicenet.com 96-dec-12
  11 #
  12 # rewrite ivan@sisd.com 98-mar-4
  13 #
  14 # now does browsing too ivan@sisd.com 98-mar-6
  15 #
  16 # Changes to allow page to work at a relative position in server
  17 #       bmccane@maxbaud.net     98-apr-3
  18 #
  19 # display total, use FS::CGI ivan@sisd.com 98-jul-17
  20 #
  21 # $Log: cust_main.cgi,v $
  22 # Revision 1.2  1998-11-12 08:10:22  ivan
  23 # CGI.pm instead of CGI-modules
  24 # relative URLs using popurl
  25 # got rid of lots of little tables
  26 # s/agrep/String::Approx/;
  27 # bubble up packages and services and link (slow)
  28 #
  29
  30 use strict;
  31 use vars qw(%ncancelled_pkgs %all_pkgs);
  32 use CGI;
  33 use CGI::Carp qw(fatalsToBrowser);
  34 use IO::Handle;
  35 use String::Approx qw(amatch);
  36 use FS::UID qw(cgisuidsetup);
  37 use FS::Record qw(qsearch qsearchs);
  38 use FS::CGI qw(header menubar idiot popurl table);
  39 use FS::cust_main;
  40
  41 my($cgi)=new CGI;
  42 cgisuidsetup($cgi);
  43
  44 my(@cust_main);
  45 my($sortby);
  46
  47 if ( $cgi->keywords ) {
  48   my($query)=$cgi->keywords;
  49   if ( $query eq 'custnum' ) {
  50     $sortby=\*custnum_sort;
  51     @cust_main=qsearch('cust_main',{});
  52   } elsif ( $query eq 'last' ) {
  53     $sortby=\*last_sort;
  54     @cust_main=qsearch('cust_main',{});
  55   } elsif ( $query eq 'company' ) {
  56     $sortby=\*company_sort;
  57     @cust_main=qsearch('cust_main',{});
  58   }
  59 } else {
  60   &cardsearch if ( $cgi->param('card_on') && $cgi->param('card') );
  61   &lastsearch if ( $cgi->param('last_on') && $cgi->param('last_text') );
  62   &companysearch if ( $cgi->param('company_on') && $cgi->param('company_text') );
  63 }
  64
  65 my(%ncancelled_pkgs) =
  66   map { $_->custnum => [ $_->ncancelled_pkgs ] } @cust_main;
  67 my(%all_pkgs) =
  68   map { $_->custnum => [ $_->all_pkgs ] } @cust_main;
  69
  70 if ( scalar(@cust_main) == 1 ) {
  71   print $cgi->redirect(popurl(2). "/view/cust_main.cgi?". $cust_main[0]->custnum);
  72   exit;
  73 } elsif ( scalar(@cust_main) == 0 ) {
  74   idiot "No matching customers found!\n";
  75   exit;
  76 } else {
  77
  78   my($total)=scalar(@cust_main);
  79   print $cgi->header, header("Customer Search Results",menubar(
  80     'Main Menu', popurl(2)
  81   )), "$total matching customers found<BR>", table, <<END;
  82       <TR>
  83         <TH></TH>
  84         <TH>Contact name</TH>
  85         <TH>Company</TH>
  86         <TH>Packages</TH>
  87         <TH COLSPAN=2>Services</TH>
  88       </TR>
  89 END
  90
  91   my(%saw,$cust_main);
  92   foreach $cust_main (
  93     sort $sortby grep(!$saw{$_->custnum}++, @cust_main)
  94   ) {
  95     my($custnum,$last,$first,$company)=(
  96       $cust_main->custnum,
  97       $cust_main->getfield('last'),
  98       $cust_main->getfield('first'),
  99       $cust_main->company,
 100     );
 101
 102     my(@lol_cust_svc);
 103     my($rowspan)=0;#scalar( @{$all_pkgs{$custnum}} );
 104     foreach ( @{$all_pkgs{$custnum}} ) {
 105       my(@cust_svc) = qsearch( 'cust_svc', { 'pkgnum' => $_->pkgnum } );
 106       push @lol_cust_svc, \@cust_svc;
 107       $rowspan += scalar(@cust_svc) || 1;
 108     }
 109
 110     #my($rowspan) = scalar(@{$all_pkgs{$custnum}});
 111     my($view) = popurl(2). "/view/cust_main.cgi?$custnum";
 112     print <<END;
 113     <TR>
 114       <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$custnum</FONT></A></TD>
 115       <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$last, $first</FONT></A></TD>
 116       <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$company</FONT></A></TD>
 117 END
 118
 119     my($n1)='';
 120     foreach ( @{$all_pkgs{$custnum}} ) {
 121       my($pkgnum) = ($_->pkgnum);
 122       my($pkg) = $_->part_pkg->pkg;
 123       my($pkgview) = popurl(2). "/view/cust_pkg.cgi?$pkgnum";
 124       #my(@cust_svc) = shift @lol_cust_svc;
 125       my(@cust_svc) = qsearch( 'cust_svc', { 'pkgnum' => $_->pkgnum } );
 126       my($rowspan) = scalar(@cust_svc) || 1;
 127
 128       print $n1, qq!<TD ROWSPAN=$rowspan><A HREF="$pkgview"><FONT SIZE=-1>$pkg</FONT></A></TD>!;
 129       my($n2)='';
 130       foreach my $cust_svc ( @cust_svc ) {
 131          my($label, $value, $svcdb) = $cust_svc->label;
 132          my($svcnum) = $cust_svc->svcnum;
 133          my($sview) = popurl(2). "/view";
 134          print $n2,qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$label</FONT></A></TD>!,
 135                qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$value</FONT></A></TD>!;
 136          $n2="</TR><TR>";
 137       }
 138       #print qq!</TR><TR>\n!;
 139       $n1="</TR><TR>";
 140     }
 141     print "<\TR>";
 142   }
 143
 144   print <<END;
 145     </TABLE>
 146     </CENTER>
 147   </BODY>
 148 </HTML>
 149 END
 150
 151 }
 152
 153 #
 154
 155 sub last_sort {
 156   $a->getfield('last') cmp $b->getfield('last');
 157 }
 158
 159 sub company_sort {
 160   return -1 if $a->company && ! $b->company;
 161   return 1 if ! $a->company && $b->company;
 162   $a->getfield('company') cmp $b->getfield('company');
 163 }
 164
 165 sub custnum_sort {
 166   $a->getfield('custnum') <=> $b->getfield('custnum');
 167 }
 168
 169 sub cardsearch {
 170
 171   my($card)=$cgi->param('card');
 172   $card =~ s/\D//g;
 173   $card =~ /^(\d{13,16})$/ or do { idiot "Illegal card number\n"; exit; };
 174   my($payinfo)=$1;
 175
 176   push @cust_main, qsearch('cust_main',{'payinfo'=>$payinfo, 'payby'=>'CARD'});
 177
 178 }
 179
 180 sub lastsearch {
 181   my(%last_type);
 182   foreach ( $cgi->param('last_type') ) {
 183     $last_type{$_}++;
 184   }
 185
 186   $cgi->param('last_text') =~ /^([\w \,\.\-\']*)$/
 187     or do { idiot "Illegal last name"; exit; };
 188   my($last)=$1;
 189
 190   if ( $last_type{'Exact'}
 191        && ! $last_type{'Fuzzy'}
 192      #  && ! $last_type{'Sound-alike'}
 193   ) {
 194
 195     push @cust_main, qsearch('cust_main',{'last'=>$last});
 196
 197   } else {
 198
 199     my(%last);
 200
 201     my(@all_last)=map $_->getfield('last'), qsearch('cust_main',{});
 202     if ($last_type{'Fuzzy'}) {
 203       foreach ( amatch($last, [ qw(i) ], @all_last) ) {
 204         $last{$_}++;
 205       }
 206     }
 207
 208     #if ($last_type{'Sound-alike'}) {
 209     #}
 210
 211     foreach ( keys %last ) {
 212       push @cust_main, qsearch('cust_main',{'last'=>$_});
 213     }
 214
 215   }
 216   $sortby=\*last_sort;
 217 }
 218
 219 sub companysearch {
 220
 221   my(%company_type);
 222   foreach ( $cgi->param('company_type') ) {
 223     $company_type{$_}++
 224   };
 225
 226   $cgi->param('company_text') =~ /^([\w \,\.\-\']*)$/
 227     or do { idiot "Illegal company"; exit; };
 228   my($company)=$1;
 229
 230   if ( $company_type{'Exact'}
 231        && ! $company_type{'Fuzzy'}
 232      #  && ! $company_type{'Sound-alike'}
 233   ) {
 234
 235     push @cust_main, qsearch('cust_main',{'company'=>$company});
 236
 237   } else {
 238
 239     my(%company);
 240     my(@all_company)=map $_->company, qsearch('cust_main',{});
 241
 242     if ($company_type{'Fuzzy'}) {
 243       foreach ( amatch($company, [ qw(i) ], @all_company ) ) {
 244         $company{$_}++;
 245       }
 246     }
 247
 248     #if ($company_type{'Sound-alike'}) {
 249     #}
 250
 251     foreach ( keys %company ) {
 252       push @cust_main, qsearch('cust_main',{'company'=>$_});
 253     }
 254
 255   }
 256   $sortby=\*company_sort;
 257
 258 }