diff options
| author | ivan <ivan> | 2003-04-01 01:22:25 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-04-01 01:22:25 +0000 |
| commit | f3b8b72d2a07683b2deb2774f29407e25e725b5a (patch) | |
| tree | 328d0be79614abe74f52aeec3e00ff89810c8f18 /httemplate/edit/REAL_cust_pkg.cgi | |
| parent | 4063ea45f3ab0a9cb2582834e55ac3afc71425f9 (diff) | |
correct last_bill problems with $0 invoice (non-existant) edge cases
Diffstat (limited to 'httemplate/edit/REAL_cust_pkg.cgi')
| -rwxr-xr-x | httemplate/edit/REAL_cust_pkg.cgi | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/httemplate/edit/REAL_cust_pkg.cgi b/httemplate/edit/REAL_cust_pkg.cgi index 0d2f1c2..e44acba 100755 --- a/httemplate/edit/REAL_cust_pkg.cgi +++ b/httemplate/edit/REAL_cust_pkg.cgi @@ -1,6 +1,6 @@ <!-- mason kludge --> <% -# <!-- $Id: REAL_cust_pkg.cgi,v 1.4 2002-07-08 13:07:40 ivan Exp $ --> +# <!-- $Id: REAL_cust_pkg.cgi,v 1.5 2003-04-01 01:22:24 ivan Exp $ --> my $error =''; my $pkgnum = ''; @@ -56,11 +56,19 @@ print ntable("#cccccc",2), $otaker, '</TD></TR>', '<TR><TD ALIGN="right">Setup date</TD><TD>'. '<INPUT TYPE="text" NAME="setup" SIZE=32 VALUE="', - ( $setup ? time2str("%c %z (%Z)",$setup) : "" ), '"></TD></TR>', - '<TR><TD ALIGN="right">Next bill date</TD><TD>', + ( $setup ? time2str("%c %z (%Z)",$setup) : "" ), '"></TD></TR>'; + +print '<TR><TD ALIGN="right">Last bill date</TD><TD>', + '<INPUT TYPE="text" NAME="last_bill" SIZE=32 VALUE="', + ( $cust_pkg->last_bill + ? time2str("%c %z (%Z)", $cust_pkg->last_bill) + : "" ), + '"></TD></TR>' + if $cust_pkg->dbdef_table->column('last_bill'); + +print '<TR><TD ALIGN="right">Next bill date</TD><TD>', '<INPUT TYPE="text" NAME="bill" SIZE=32 VALUE="', - ( $bill ? time2str("%c %z (%Z)",$bill) : "" ), '"></TD></TR>', -; + ( $bill ? time2str("%c %z (%Z)",$bill) : "" ), '"></TD></TR>'; print '<TR><TD ALIGN="right">Suspension date</TD><TD BGCOLOR="#ffffff">', time2str("%D",$susp), '</TD></TR>' |