httemplate/search/cust_pkg.cgi

   1 <%
   2 # <!-- $Id: cust_pkg.cgi,v 1.4 2001-08-21 02:03:32 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw ( $cgi @cust_pkg $sortby $query %part_pkg );
   6 use CGI;
   7 use CGI::Carp qw(fatalsToBrowser);
   8 use FS::UID qw(cgisuidsetup);
   9 use FS::Record qw(qsearch qsearchs dbdef);
  10 use FS::CGI qw(header eidiot popurl table);
  11 use FS::cust_pkg;
  12 use FS::pkg_svc;
  13 use FS::cust_svc;
  14 use FS::cust_main;
  15
  16 $cgi = new CGI;
  17 &cgisuidsetup($cgi);
  18
  19 my %part_pkg = map { $_->pkgpart => $_ } qsearch('part_pkg', {});
  20
  21 ($query) = $cgi->keywords;
  22 #this tree is a little bit redundant
  23 if ( $query eq 'pkgnum' ) {
  24   $sortby=\*pkgnum_sort;
  25   @cust_pkg=qsearch('cust_pkg',{});
  26 } elsif ( $query eq 'APKG_pkgnum' ) {
  27   $sortby=\*pkgnum_sort;
  28   @cust_pkg=();
  29   #perhaps this should go in cust_pkg as a qsearch-like constructor?
  30   my($cust_pkg);
  31   foreach $cust_pkg (qsearch('cust_pkg',{})) {
  32     my($flag)=0;
  33     my($pkg_svc);
  34     PKG_SVC:
  35     foreach $pkg_svc (qsearch('pkg_svc',{ 'pkgpart' => $cust_pkg->pkgpart })) {
  36       if ( $pkg_svc->quantity
  37            > scalar(qsearch('cust_svc',{
  38                'pkgnum' => $cust_pkg->pkgnum,
  39                'svcpart' => $pkg_svc->svcpart,
  40              }))
  41          )
  42       {
  43         $flag=1;
  44         last PKG_SVC;
  45       }
  46     }
  47     push @cust_pkg, $cust_pkg if $flag;
  48   }
  49 } else {
  50   die "Empty QUERY_STRING!";
  51 }
  52
  53 if ( scalar(@cust_pkg) == 1 ) {
  54   my($pkgnum)=$cust_pkg[0]->pkgnum;
  55   print $cgi->redirect(popurl(2). "view/cust_pkg.cgi?$pkgnum");
  56   exit;
  57 } elsif ( scalar(@cust_pkg) == 0 ) { #error
  58   eidiot("No packages found");
  59 } else {
  60   my($total)=scalar(@cust_pkg);
  61   print $cgi->header( '-expires' => 'now' ),
  62         header('Package Search Results',''),
  63         "$total matching packages found<BR>", &table(), <<END;
  64       <TR>
  65         <TH>Package</TH>
  66         <TH><FONT SIZE=-1>Cust#</FONT></TH>
  67         <TH>(bill) name</TH>
  68         <TH>company</TH>
  69 END
  70
  71 if ( defined dbdef->table('cust_main')->column('ship_last') ) {
  72   print <<END;
  73       <TH>(service) name</TH>
  74       <TH>company</TH>
  75 END
  76 }
  77
  78 print <<END;
  79         <TH COLSPAN=2>Services</TH>
  80       </TR>
  81 END
  82
  83   my $n1 = '<TR>';
  84   my(%saw,$cust_pkg);
  85   foreach $cust_pkg (
  86     sort $sortby grep(!$saw{$_->pkgnum}++, @cust_pkg)
  87   ) {
  88     my($cust_main)=qsearchs('cust_main',{'custnum'=>$cust_pkg->custnum});
  89     my($pkgnum, $custnum, $last, $first, $company) = (
  90       $cust_pkg->pkgnum,
  91       $cust_pkg->custnum,
  92       $cust_main ? $cust_main->last : '',
  93       $cust_main ? $cust_main->first : '',
  94       $cust_main ? $cust_main->company : '',
  95     );
  96     my($ship_last, $ship_first, $ship_company);
  97     if ( defined dbdef->table('cust_main')->column('ship_last') ) {
  98       ($ship_last, $ship_first, $ship_company) = (
  99         $cust_main
 100           ? ( $cust_main->ship_last || $cust_main->getfield('last') )
 101           : '',
 102         $cust_main
 103           ? ( $cust_main->ship_last
 104               ? $cust_main->ship_first
 105               : $cust_main->first )
 106           : '',
 107         $cust_main
 108           ? ( $cust_main->ship_last
 109               ? $cust_main->ship_company
 110               : $cust_main->company )
 111           : '',
 112       );
 113     }
 114     my $pkg = $part_pkg{$cust_pkg->pkgpart}->pkg;
 115     #$pkg .= ' - '. $part_pkg{$cust_pkg->pkgpart}->comment;
 116     my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } );
 117     my $rowspan = scalar(@cust_svc) || 1;
 118     my $p = popurl(2);
 119     print $n1, <<END;
 120       <TD ROWSPAN=$rowspan><A HREF="${p}view/cust_pkg.cgi?$pkgnum"><FONT SIZE=-1>$pkgnum - $pkg</FONT></A></TD>
 121 END
 122     if ( $cust_main ) {
 123       print <<END;
 124       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$custnum</A></FONT></TD>
 125       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$last, $first</A></FONT></TD>
 126       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$company</A></FONT></TD>
 127 END
 128       if ( defined dbdef->table('cust_main')->column('ship_last') ) {
 129         print <<END;
 130       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$ship_last, $ship_first</A></FONT></TD>
 131       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$ship_company</A></FONT></TD>
 132 END
 133       }
 134     } else {
 135       my $colspan = defined dbdef->table('cust_main')->column('ship_last')
 136                     ? 5 : 3;
 137       print <<END;
 138       <TD ROWSPAN=$rowspan COLSPAN=$colspan>WARNING: couldn't find cust_main.custnum $custnum (cust_pkg.pkgnum $pkgnum)</TD>
 139 END
 140     }
 141
 142     my $n2 = '';
 143     foreach my $cust_svc ( @cust_svc ) {
 144       my($label, $value, $svcdb) = $cust_svc->label;
 145       my $svcnum = $cust_svc->svcnum;
 146       my $sview = $p. "view";
 147       print $n2,qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$label</FONT></A></TD>!,
 148             qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$value</FONT></A></TD>!;
 149       $n2="</TR><TR>";
 150     }
 151
 152     $n1 = "</TR><TR>";
 153
 154   }
 155     print '</TR>';
 156
 157   print <<END;
 158     </TABLE>
 159   </BODY>
 160 </HTML>
 161 END
 162
 163 }
 164
 165 sub pkgnum_sort {
 166   $a->getfield('pkgnum') <=> $b->getfield('pkgnum');
 167 }
 168
 169 %>