httemplate/search/cust_pkg.cgi

   1 <%
   2 # <!-- $Id: cust_pkg.cgi,v 1.3 2001-08-19 08:32:43 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        $ship_last, $ship_first, $ship_company)=(
  91       $cust_pkg->pkgnum,
  92       $cust_pkg->custnum,
  93       $cust_main ? $cust_main->last : '',
  94       $cust_main ? $cust_main->first : '',
  95       $cust_main ? $cust_main->company : '',
  96       $cust_main
  97         ? ( $cust_main->ship_last || $cust_main->getfield('last') )
  98         : '',
  99       $cust_main
 100         ? ( $cust_main->ship_last
 101             ? $cust_main->ship_first
 102             : $cust_main->first )
 103         : '',
 104       $cust_main
 105         ? ( $cust_main->ship_last
 106             ? $cust_main->ship_company
 107             : $cust_main->company )
 108         : '',
 109     );
 110     my $pkg = $part_pkg{$cust_pkg->pkgpart}->pkg;
 111     #$pkg .= ' - '. $part_pkg{$cust_pkg->pkgpart}->comment;
 112     my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } );
 113     my $rowspan = scalar(@cust_svc) || 1;
 114     my $p = popurl(2);
 115     print $n1, <<END;
 116       <TD ROWSPAN=$rowspan><A HREF="${p}view/cust_pkg.cgi?$pkgnum"><FONT SIZE=-1>$pkgnum - $pkg</FONT></A></TD>
 117 END
 118     if ( $cust_main ) {
 119       print <<END;
 120       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$custnum</A></FONT></TD>
 121       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$last, $first</A></FONT></TD>
 122       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$company</A></FONT></TD>
 123 END
 124       if ( defined dbdef->table('cust_main')->column('ship_last') ) {
 125         print <<END;
 126       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$ship_last, $ship_first</A></FONT></TD>
 127       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$ship_company</A></FONT></TD>
 128 END
 129       }
 130     } else {
 131       my $colspan = defined dbdef->table('cust_main')->column('ship_last')
 132                     ? 5 : 3;
 133       print <<END;
 134       <TD ROWSPAN=$rowspan COLSPAN=$colspan>WARNING: couldn't find cust_main.custnum $custnum (cust_pkg.pkgnum $pkgnum)</TD>
 135 END
 136     }
 137
 138     my $n2 = '';
 139     foreach my $cust_svc ( @cust_svc ) {
 140       my($label, $value, $svcdb) = $cust_svc->label;
 141       my $svcnum = $cust_svc->svcnum;
 142       my $sview = $p. "view";
 143       print $n2,qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$label</FONT></A></TD>!,
 144             qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$value</FONT></A></TD>!;
 145       $n2="</TR><TR>";
 146     }
 147
 148     $n1 = "</TR><TR>";
 149
 150   }
 151     print '</TR>';
 152
 153   print <<END;
 154     </TABLE>
 155   </BODY>
 156 </HTML>
 157 END
 158
 159 }
 160
 161 sub pkgnum_sort {
 162   $a->getfield('pkgnum') <=> $b->getfield('pkgnum');
 163 }
 164
 165 %>