From: ivan <ivan>
Date: Tue, 18 Dec 2001 06:38:25 +0000 (+0000)
Subject: show dates on package browse
X-Git-Tag: freeside_1_4_0pre11~177
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=133be4f603b60052cb45a6e54104eed357df25df;p=freeside.git

show dates on package browse
---

diff --git a/httemplate/search/cust_pkg.cgi b/httemplate/search/cust_pkg.cgi
index 9f13dbb33..7426276bd 100755
--- a/httemplate/search/cust_pkg.cgi
+++ b/httemplate/search/cust_pkg.cgi
@@ -1,5 +1,5 @@
 <%
-# <!-- $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
@@ -129,6 +129,11 @@ if ( scalar(@cust_pkg) == 1 ) {
         "$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>
@@ -154,6 +159,11 @@ END
     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 : '',