httemplate/search/cust_pkg.cgi

   1 <%
   2
   3 my $conf = new FS::Conf;
   4 my $maxrecords = $conf->config('maxsearchrecordsperpage');
   5
   6 my %part_pkg = map { $_->pkgpart => $_ } qsearch('part_pkg', {});
   7
   8 my $limit = '';
   9 $limit .= "LIMIT $maxrecords" if $maxrecords;
  10
  11 my $offset = $cgi->param('offset') || 0;
  12 $limit .= " OFFSET $offset" if $offset;
  13
  14 my $total;
  15
  16 my($query) = $cgi->keywords;
  17 my $sortby;
  18 my @cust_pkg;
  19
  20 if ( $cgi->param('magic') && $cgi->param('magic') eq 'bill' ) {
  21   $sortby=\*bill_sort;
  22   my $range = '';
  23   if ( $cgi->param('beginning')
  24        && $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/ ) {
  25     my $beginning = str2time($1);
  26     $range = " WHERE bill >= $beginning ";
  27   }
  28   if ( $cgi->param('ending')
  29             && $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/ ) {
  30     my $ending = str2time($1) + 86400;
  31     $range .= ( $range ? ' AND ' : ' WHERE ' ). " bill <= $ending ";
  32   }
  33
  34   #false laziness with below
  35   my $statement = "SELECT COUNT(*) FROM cust_pkg $range";
  36   warn $statement;
  37   my $sth = dbh->prepare($statement)
  38     or die dbh->errstr. " doing $statement";
  39   $sth->execute or die "Error executing \"$statement\": ". $sth->errstr;
  40
  41   $total = $sth->fetchrow_arrayref->[0];
  42
  43   @cust_pkg = qsearch('cust_pkg',{}, '', " $range ORDER BY bill $limit" );
  44
  45 } else {
  46
  47   my $unconf = '';
  48   if ( $query eq 'pkgnum' ) {
  49     $sortby=\*pkgnum_sort;
  50
  51   } elsif ( $query eq 'APKG_pkgnum' ) {
  52
  53     $sortby=\*pkgnum_sort;
  54
  55     $unconf = "
  56       WHERE 0 <
  57         ( SELECT count(*) FROM pkg_svc
  58             WHERE pkg_svc.pkgpart = cust_pkg.pkgpart
  59               AND pkg_svc.quantity > ( SELECT count(*) FROM cust_svc
  60                                          WHERE cust_svc.pkgnum = cust_pkg.pkgnum
  61                                            AND cust_svc.svcpart = pkg_svc.svcpart
  62                                      )
  63         )
  64     ";
  65
  66     #@cust_pkg=();
  67     ##perhaps this should go in cust_pkg as a qsearch-like constructor?
  68     #my($cust_pkg);
  69     #foreach $cust_pkg (
  70     #  qsearch('cust_pkg',{}, '', "ORDER BY pkgnum $limit" )
  71     #) {
  72     #  my($flag)=0;
  73     #  my($pkg_svc);
  74     #  PKG_SVC:
  75     #  foreach $pkg_svc (qsearch('pkg_svc',{ 'pkgpart' => $cust_pkg->pkgpart })) {
  76     #    if ( $pkg_svc->quantity
  77     #         > scalar(qsearch('cust_svc',{
  78     #             'pkgnum' => $cust_pkg->pkgnum,
  79     #             'svcpart' => $pkg_svc->svcpart,
  80     #           }))
  81     #       )
  82     #    {
  83     #      $flag=1;
  84     #      last PKG_SVC;
  85     #    }
  86     #  }
  87     #  push @cust_pkg, $cust_pkg if $flag;
  88     #}
  89
  90   } else {
  91     die "Empty QUERY_STRING!";
  92   }
  93
  94   my $statement = "SELECT COUNT(*) FROM cust_pkg $unconf";
  95   my $sth = dbh->prepare($statement)
  96     or die dbh->errstr. " doing $statement";
  97   $sth->execute or die "Error executing \"$statement\": ". $sth->errstr;
  98
  99   $total = $sth->fetchrow_arrayref->[0];
 100
 101   @cust_pkg = qsearch('cust_pkg',{}, '', "$unconf ORDER BY pkgnum $limit" );
 102
 103 }
 104
 105 if ( scalar(@cust_pkg) == 1 ) {
 106   my($pkgnum)=$cust_pkg[0]->pkgnum;
 107   print $cgi->redirect(popurl(2). "view/cust_pkg.cgi?$pkgnum");
 108   #exit;
 109 } elsif ( scalar(@cust_pkg) == 0 ) { #error
 110 %>
 111 <!-- mason kludge -->
 112 <%
 113   eidiot("No packages found");
 114 } else {
 115 %>
 116 <!-- mason kludge -->
 117 <%
 118   $total ||= scalar(@cust_pkg);
 119
 120   #begin pager
 121   my $pager = '';
 122   if ( $total != scalar(@cust_pkg) && $maxrecords ) {
 123     unless ( $offset == 0 ) {
 124       $cgi->param('offset', $offset - $maxrecords);
 125       $pager .= '<A HREF="'. $cgi->self_url.
 126                 '"><B><FONT SIZE="+1">Previous</FONT></B></A> ';
 127     }
 128     my $poff;
 129     my $page;
 130     for ( $poff = 0; $poff < $total; $poff += $maxrecords ) {
 131       $page++;
 132       if ( $offset == $poff ) {
 133         $pager .= qq!<FONT SIZE="+2">$page</FONT> !;
 134       } else {
 135         $cgi->param('offset', $poff);
 136         $pager .= qq!<A HREF="!. $cgi->self_url. qq!">$page</A> !;
 137       }
 138     }
 139     unless ( $offset + $maxrecords > $total ) {
 140       $cgi->param('offset', $offset + $maxrecords);
 141       $pager .= '<A HREF="'. $cgi->self_url.
 142                 '"><B><FONT SIZE="+1">Next</FONT></B></A> ';
 143     }
 144   }
 145   #end pager
 146
 147   print header('Package Search Results',''),
 148         "$total matching packages found<BR><BR>$pager", &table(), <<END;
 149       <TR>
 150         <TH>Package</TH>
 151         <TH><FONT SIZE=-1>Setup</FONT></TH>
 152         <TH><FONT SIZE=-1>Next<BR>bill</FONT></TH>
 153         <TH><FONT SIZE=-1>Susp.</FONT></TH>
 154         <TH><FONT SIZE=-1>Expire</FONT></TH>
 155         <TH><FONT SIZE=-1>Cancel</FONT></TH>
 156         <TH><FONT SIZE=-1>Cust#</FONT></TH>
 157         <TH>(bill) name</TH>
 158         <TH>company</TH>
 159 END
 160
 161 if ( defined dbdef->table('cust_main')->column('ship_last') ) {
 162   print <<END;
 163       <TH>(service) name</TH>
 164       <TH>company</TH>
 165 END
 166 }
 167
 168 print <<END;
 169         <TH COLSPAN=2>Services</TH>
 170       </TR>
 171 END
 172
 173   my $n1 = '<TR>';
 174   my(%saw,$cust_pkg);
 175   foreach $cust_pkg (
 176     sort $sortby grep(!$saw{$_->pkgnum}++, @cust_pkg)
 177   ) {
 178     my($cust_main)=qsearchs('cust_main',{'custnum'=>$cust_pkg->custnum});
 179     my($pkgnum, $setup, $bill, $susp, $expire, $cancel,
 180        $custnum, $last, $first, $company ) = (
 181       $cust_pkg->pkgnum,
 182       $cust_pkg->getfield('setup')
 183         ? time2str("%D", $cust_pkg->getfield('setup') )
 184         : '',
 185       $cust_pkg->getfield('bill')
 186         ? time2str("%D", $cust_pkg->getfield('bill') )
 187         : '',
 188       $cust_pkg->getfield('susp')
 189         ? time2str("%D", $cust_pkg->getfield('susp') )
 190         : '',
 191       $cust_pkg->getfield('expire')
 192         ? time2str("%D", $cust_pkg->getfield('expire') )
 193         : '',
 194       $cust_pkg->getfield('cancel')
 195         ? time2str("%D", $cust_pkg->getfield('cancel') )
 196         : '',
 197       $cust_pkg->custnum,
 198       $cust_main ? $cust_main->last : '',
 199       $cust_main ? $cust_main->first : '',
 200       $cust_main ? $cust_main->company : '',
 201     );
 202     my($ship_last, $ship_first, $ship_company);
 203     if ( defined dbdef->table('cust_main')->column('ship_last') ) {
 204       ($ship_last, $ship_first, $ship_company) = (
 205         $cust_main
 206           ? ( $cust_main->ship_last || $cust_main->getfield('last') )
 207           : '',
 208         $cust_main
 209           ? ( $cust_main->ship_last
 210               ? $cust_main->ship_first
 211               : $cust_main->first )
 212           : '',
 213         $cust_main
 214           ? ( $cust_main->ship_last
 215               ? $cust_main->ship_company
 216               : $cust_main->company )
 217           : '',
 218       );
 219     }
 220     my $pkg = $part_pkg{$cust_pkg->pkgpart}->pkg;
 221     #$pkg .= ' - '. $part_pkg{$cust_pkg->pkgpart}->comment;
 222     my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } );
 223     my $rowspan = scalar(@cust_svc) || 1;
 224     my $p = popurl(2);
 225     print $n1, <<END;
 226       <TD ROWSPAN=$rowspan><A HREF="${p}view/cust_pkg.cgi?$pkgnum"><FONT SIZE=-1>$pkgnum - $pkg</FONT></A></TD>
 227       <TD>$setup</TD>
 228       <TD>$bill</TD>
 229       <TD>$susp</TD>
 230       <TD>$expire</TD>
 231       <TD>$cancel</TD>
 232 END
 233     if ( $cust_main ) {
 234       print <<END;
 235       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$custnum</A></FONT></TD>
 236       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$last, $first</A></FONT></TD>
 237       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$company</A></FONT></TD>
 238 END
 239       if ( defined dbdef->table('cust_main')->column('ship_last') ) {
 240         print <<END;
 241       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$ship_last, $ship_first</A></FONT></TD>
 242       <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$ship_company</A></FONT></TD>
 243 END
 244       }
 245     } else {
 246       my $colspan = defined dbdef->table('cust_main')->column('ship_last')
 247                     ? 5 : 3;
 248       print <<END;
 249       <TD ROWSPAN=$rowspan COLSPAN=$colspan>WARNING: couldn't find cust_main.custnum $custnum (cust_pkg.pkgnum $pkgnum)</TD>
 250 END
 251     }
 252
 253     my $n2 = '';
 254     foreach my $cust_svc ( @cust_svc ) {
 255       my($label, $value, $svcdb) = $cust_svc->label;
 256       my $svcnum = $cust_svc->svcnum;
 257       my $sview = $p. "view";
 258       print $n2,qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$label</FONT></A></TD>!,
 259             qq!<TD><A HREF="$sview/$svcdb.cgi?$svcnum"><FONT SIZE=-1>$value</FONT></A></TD>!;
 260       $n2="</TR><TR>";
 261     }
 262
 263     $n1 = "</TR><TR>";
 264
 265   }
 266     print '</TR>';
 267
 268   print "</TABLE>$pager</BODY></HTML>";
 269
 270 }
 271
 272 sub pkgnum_sort {
 273   $a->getfield('pkgnum') <=> $b->getfield('pkgnum');
 274 }
 275
 276 sub bill_sort {
 277   $a->getfield('bill') <=> $b->getfield('bill');
 278 }
 279
 280 %>