httemplate/search/cust_pkg.cgi

   1 <%
   2 # <!-- $Id: cust_pkg.cgi,v 1.6 2001-10-30 14:54:07 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 header('Package Search Results',''),
  62         "$total matching packages found<BR>", &table(), <<END;
  63       <TR>
  64         <TH>Package</TH>
  65         <TH><FONT SIZE=-1>Cust#</FONT></TH>
  66         <TH>(bill) name</TH>
  67         <TH>company</TH>
  68 END
  69
  70 if ( defined dbdef->table('cust_main')->column('ship_last') ) {
  71   print <<END;
  72       <TH>(service) name</TH>
  73       <TH>company</TH>
  74 END
  75 }
  76
  77 print <<END;
  78         <TH COLSPAN=2>Services</TH>
  79       </TR>
  80 END
  81
  82   my $n1 = '<TR>';
  83   my(%saw,$cust_pkg);
  84   foreach $cust_pkg (
  85     sort $sortby grep(!$saw{$_->pkgnum}++, @cust_pkg)
  86   ) {
  87     my($cust_main)=qsearchs('cust_main',{'custnum'=>$cust_pkg->custnum});
  88     my($pkgnum, $custnum, $last, $first, $company) = (
  89       $cust_pkg->pkgnum,
  90       $cust_pkg->custnum,
  91       $cust_main ? $cust_main->last : '',
  92       $cust_main ? $cust_main->first : '',
  93       $cust_main ? $cust_main->company : '',
  94     );
  95     my($ship_last, $ship_first, $ship_company);
  96     if ( defined dbdef->table('cust_main')->column('ship_last') ) {
  97       ($ship_last, $ship_first, $ship_company) = (
  98         $cust_main
  99           ? ( $cust_main->ship_last || $cust_main->getfield('last') )
 100           : '',
 101         $cust_main
 102           ? ( $cust_main->ship_last
 103               ? $cust_main->ship_first
 104               : $cust_main->first )
 105           : '',
 106         $cust_main
 107           ? ( $cust_main->ship_last
 108               ? $cust_main->ship_company
 109               : $cust_main->company )
 110           : '',
 111       );
 112     }
 113     my $pkg = $part_pkg{$cust_pkg->pkgpart}->pkg;
 114     #$pkg .= ' - '. $part_pkg{$cust_pkg->pkgpart}->comment;
 115     my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } );
 116     my $rowspan = scalar(@cust_svc) || 1;
 117     my $p = popurl(2);
 118     print $n1, <<END;
 119       <TD ROWSPAN=$rowspan><A HREF="${p}view/cust_pkg.cgi?$pkgnum"><FONT SIZE=-1>$pkgnum - $pkg</FONT></A></TD>
 120 END
 121     if ( $cust_main ) {
 122       print <<END;
 123       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$custnum</A></FONT></TD>
 124       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$last, $first</A></FONT></TD>
 125       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$company</A></FONT></TD>
 126 END
 127       if ( defined dbdef->table('cust_main')->column('ship_last') ) {
 128         print <<END;
 129       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$ship_last, $ship_first</A></FONT></TD>
 130       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$ship_company</A></FONT></TD>
 131 END
 132       }
 133     } else {
 134       my $colspan = defined dbdef->table('cust_main')->column('ship_last')
 135                     ? 5 : 3;
 136       print <<END;
 137       <TD ROWSPAN=$rowspan COLSPAN=$colspan>WARNING: couldn't find cust_main.custnum $custnum (cust_pkg.pkgnum $pkgnum)</TD>
 138 END
 139     }
 140
 141     my $n2 = '';
 142     foreach my $cust_svc ( @cust_svc ) {
 143       my($label, $value, $svcdb) = $cust_svc->label;
 144       my $svcnum = $cust_svc->svcnum;
 145       my $sview = $p. "view";
 146       print $n2,qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$label</FONT></A></TD>!,
 147             qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$value</FONT></A></TD>!;
 148       $n2="</TR><TR>";
 149     }
 150
 151     $n1 = "</TR><TR>";
 152
 153   }
 154     print '</TR>';
 155
 156   print <<END;
 157     </TABLE>
 158   </BODY>
 159 </HTML>
 160 END
 161
 162 }
 163
 164 sub pkgnum_sort {
 165   $a->getfield('pkgnum') <=> $b->getfield('pkgnum');
 166 }
 167
 168 %>