httemplate/search/cust_pkg.cgi

   1 <%
   2 # <!-- $Id: cust_pkg.cgi,v 1.2 2001-08-15 10:04:53 ivan Exp $ -->
   3
   4 use strict;
   5 use vars qw ( $cgi @cust_pkg $sortby $query );
   6 use CGI;
   7 use CGI::Carp qw(fatalsToBrowser);
   8 use FS::UID qw(cgisuidsetup);
   9 use FS::Record qw(qsearch qsearchs);
  10 use FS::CGI qw(header eidiot popurl);
  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 ($query) = $cgi->keywords;
  20 #this tree is a little bit redundant
  21 if ( $query eq 'pkgnum' ) {
  22   $sortby=\*pkgnum_sort;
  23   @cust_pkg=qsearch('cust_pkg',{});
  24 } elsif ( $query eq 'APKG_pkgnum' ) {
  25   $sortby=\*pkgnum_sort;
  26   @cust_pkg=();
  27   #perhaps this should go in cust_pkg as a qsearch-like constructor?
  28   my($cust_pkg);
  29   foreach $cust_pkg (qsearch('cust_pkg',{})) {
  30     my($flag)=0;
  31     my($pkg_svc);
  32     PKG_SVC:
  33     foreach $pkg_svc (qsearch('pkg_svc',{ 'pkgpart' => $cust_pkg->pkgpart })) {
  34       if ( $pkg_svc->quantity
  35            > scalar(qsearch('cust_svc',{
  36                'pkgnum' => $cust_pkg->pkgnum,
  37                'svcpart' => $pkg_svc->svcpart,
  38              }))
  39          )
  40       {
  41         $flag=1;
  42         last PKG_SVC;
  43       }
  44     }
  45     push @cust_pkg, $cust_pkg if $flag;
  46   }
  47 } else {
  48   die "Empty QUERY_STRING!";
  49 }
  50
  51 if ( scalar(@cust_pkg) == 1 ) {
  52   my($pkgnum)=$cust_pkg[0]->pkgnum;
  53   print $cgi->redirect(popurl(2). "view/cust_pkg.cgi?$pkgnum");
  54   exit;
  55 } elsif ( scalar(@cust_pkg) == 0 ) { #error
  56   eidiot("No packages found");
  57 } else {
  58   my($total)=scalar(@cust_pkg);
  59   print $cgi->header( '-expires' => 'now' ), header('Package Search Results',''), <<END;
  60     $total matching packages found
  61     <TABLE BORDER=4 CELLSPACING=0 CELLPADDING=0>
  62       <TR>
  63         <TH>Package #</TH>
  64         <TH>Customer #</TH>
  65         <TH>Contact name</TH>
  66         <TH>Company</TH>
  67       </TR>
  68 END
  69
  70   my(%saw,$cust_pkg);
  71   foreach $cust_pkg (
  72     sort $sortby grep(!$saw{$_->pkgnum}++, @cust_pkg)
  73   ) {
  74     my($cust_main)=qsearchs('cust_main',{'custnum'=>$cust_pkg->custnum});
  75     my($pkgnum,$custnum,$name,$company)=(
  76       $cust_pkg->pkgnum,
  77       $cust_pkg->custnum,
  78       $cust_main ? $cust_main->last. ', '. $cust_main->first : '',
  79       $cust_main ? $cust_main->company : '',
  80     );
  81     my $p = popurl(2);
  82     print <<END;
  83     <TR>
  84       <TD><A HREF="${p}view/cust_pkg.cgi?$pkgnum"><FONT SIZE=-1>$pkgnum</FONT></A></TD>
  85 END
  86     if ( $cust_main ) {
  87       print <<END;
  88       <TD><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$custnum</A></FONT></TD>
  89       <TD><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$name</A></FONT></TD>
  90       <TD><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$company</A></FONT></TD>
  91     </TR>
  92 END
  93     } else {
  94       print <<END;
  95       <TD COLSPAN=3>WARNING: couldn't find cust_main.custnum $custnum (cust_pkg.pkgnum $pkgnum)</TD>
  96     </TR>
  97 END
  98     }
  99   }
 100
 101   print <<END;
 102     </TABLE>
 103   </BODY>
 104 </HTML>
 105 END
 106
 107 }
 108
 109 sub pkgnum_sort {
 110   $a->getfield('pkgnum') <=> $b->getfield('pkgnum');
 111 }
 112
 113 %>