<%
-# <!-- $Id: cust_pkg.cgi,v 1.8 2001-12-03 11:33:19 ivan Exp $ -->
+# <!-- $Id: cust_pkg.cgi,v 1.9 2001-12-18 06:38:25 ivan Exp $ -->
use strict;
use vars qw ( $cgi @cust_pkg $sortby $query %part_pkg
"$total matching packages found<BR><BR>$pager", &table(), <<END;
<TR>
<TH>Package</TH>
+ <TH><FONT SIZE=-1>Setup</FONT></TH>
+ <TH><FONT SIZE=-1>Next<BR>bill</FONT></TH>
+ <TH><FONT SIZE=-1>Susp.</FONT></TH>
+ <TH><FONT SIZE=-1>Expire</FONT></TH>
+ <TH><FONT SIZE=-1>Cancel</FONT></TH>
<TH><FONT SIZE=-1>Cust#</FONT></TH>
<TH>(bill) name</TH>
<TH>company</TH>
my($cust_main)=qsearchs('cust_main',{'custnum'=>$cust_pkg->custnum});
my($pkgnum, $custnum, $last, $first, $company) = (
$cust_pkg->pkgnum,
+ time2str("%D", $cust_pkg->setup ),
+ time2str("%D", $cust_pkg->bill ),
+ time2str("%D", $cust_pkg->susp ),
+ time2str("%D", $cust_pkg->expire ),
+ time2str("%D", $cust_pkg->cancel ),
$cust_pkg->custnum,
$cust_main ? $cust_main->last : '',
$cust_main ? $cust_main->first : '',