- my($cust_main)=qsearchs('cust_main',{'custnum'=>$cust_pkg->custnum});
- my($pkgnum, $setup, $bill, $susp, $expire, $cancel,
- $custnum, $last, $first, $company ) = (
- $cust_pkg->pkgnum,
- $cust_pkg->getfield('setup')
- ? time2str("%D", $cust_pkg->getfield('setup') )
- : '',
- $cust_pkg->getfield('bill')
- ? time2str("%D", $cust_pkg->getfield('bill') )
- : '',
- $cust_pkg->getfield('susp')
- ? time2str("%D", $cust_pkg->getfield('susp') )
- : '',
- $cust_pkg->getfield('expire')
- ? time2str("%D", $cust_pkg->getfield('expire') )
- : '',
- $cust_pkg->getfield('cancel')
- ? time2str("%D", $cust_pkg->getfield('cancel') )
- : '',
- $cust_pkg->custnum,
- $cust_main ? $cust_main->last : '',
- $cust_main ? $cust_main->first : '',
- $cust_main ? $cust_main->company : '',
- );
- my($ship_last, $ship_first, $ship_company);
- if ( defined dbdef->table('cust_main')->column('ship_last') ) {
- ($ship_last, $ship_first, $ship_company) = (
- $cust_main
- ? ( $cust_main->ship_last || $cust_main->getfield('last') )
- : '',
- $cust_main
- ? ( $cust_main->ship_last
- ? $cust_main->ship_first
- : $cust_main->first )
- : '',
- $cust_main
- ? ( $cust_main->ship_last
- ? $cust_main->ship_company
- : $cust_main->company )
- : '',
- );
- }
- my $pkg = $part_pkg{$cust_pkg->pkgpart}->pkg;
- #$pkg .= ' - '. $part_pkg{$cust_pkg->pkgpart}->comment;
- my @cust_svc = qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } );
- my $rowspan = scalar(@cust_svc) || 1;
- my $p = popurl(2);
- print $n1, <<END;
- <TD ROWSPAN=$rowspan><A HREF="${p}view/cust_pkg.cgi?$pkgnum"><FONT SIZE=-1>$pkgnum - $pkg</FONT></A></TD>
- <TD>$setup</TD>
- <TD>$bill</TD>
- <TD>$susp</TD>
- <TD>$expire</TD>
- <TD>$cancel</TD>
-END
- if ( $cust_main ) {
- print <<END;
- <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$custnum</A></FONT></TD>
- <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$last, $first</A></FONT></TD>
- <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$company</A></FONT></TD>
-END
- if ( defined dbdef->table('cust_main')->column('ship_last') ) {
- print <<END;
- <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$ship_last, $ship_first</A></FONT></TD>
- <TD ROWSPAN=$rowspan><FONT SIZE=-1><A HREF="${p}view/cust_main.cgi?$custnum">$ship_company</A></FONT></TD>
-END
- }
+
+ $orderby = 'ORDER BY pkgnum';
+
+ if ( $cgi->param('magic') eq 'active' ) {
+
+ #push @where,
+ # '( susp IS NULL OR susp = 0 )',
+ # '( cancel IS NULL OR cancel = 0)';
+ push @where, FS::cust_pkg->active_sql();
+
+ } elsif ( $cgi->param('magic') eq 'suspended' ) {
+
+ push @where,
+ 'susp IS NOT NULL',
+ 'susp != 0',
+ '( cancel IS NULL OR cancel = 0)';
+
+ } elsif ( $cgi->param('magic') =~ /^cancell?ed$/ ) {
+
+ push @where,
+ 'cancel IS NOT NULL',
+ 'cancel != 0';
+