diff options
| -rwxr-xr-x | httemplate/edit/cust_main.cgi | 9 | ||||
| -rwxr-xr-x | httemplate/view/cust_main.cgi | 13 |
2 files changed, 19 insertions, 3 deletions
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi index 8902e3dce..2941acdf3 100755 --- a/httemplate/edit/cust_main.cgi +++ b/httemplate/edit/cust_main.cgi @@ -1,5 +1,5 @@ <% -#<!-- $Id: cust_main.cgi,v 1.1 2001-07-30 07:36:04 ivan Exp $ --> +#<!-- $Id: cust_main.cgi,v 1.2 2001-08-11 05:52:56 ivan Exp $ --> use vars qw( $cgi $custnum $action $cust_main $p1 @agents $agentnum $last $first $ss $company $address1 $address2 $city $zip @@ -355,6 +355,13 @@ for (qw(CARD BILL COMP)) { print "</TR></TABLE>$r required fields for each billing type"; +if ( defined $cust_main->dbdef_table->column('comments') ) { + print "<BR><BR>Comments", &itable("#cccccc"), + qq!<TR><TD><TEXTAREA COLS=80 ROWS=5 WRAP="HARD" NAME="comments">!, + $cust_main->comments, "</TEXTAREA>", + "</TD></TR></TABLE>"; +} + unless ( $custnum ) { # pry the wrong place for this logic. also pretty expensive #use FS::part_pkg; diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index 752896847..8b6fb0c09 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -1,5 +1,5 @@ <% -#<!-- $Id: cust_main.cgi,v 1.2 2001-07-30 10:41:44 ivan Exp $ --> +#<!-- $Id: cust_main.cgi,v 1.3 2001-08-11 05:52:56 ivan Exp $ --> use strict; use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral @@ -210,7 +210,16 @@ print '<BR>'; print '</TD></TR></TABLE>'; -print qq!<BR><BR><A NAME="cust_pkg">Packages</A> !, +if ( defined $cust_main->dbdef_table->column('comments') ) { + print "<BR>Comments", &ntable("#cccccc"), "<TR><TD>", + &ntable("#cccccc",2), + '<TR><TD BGCOLOR="#ffffff"><PRE>', $cust_main->comments, + '</PRE></TD></TR></TABLE></TABLE>'; +} + +print '</TD></TR></TABLE>'; + +print qq!<BR><A NAME="cust_pkg">Packages</A> !, # qq!<BR>Click on package number to view/edit package.!, qq!( <A HREF="!, popurl(2), qq!edit/cust_pkg.cgi?$custnum">Order and cancel packages</A> (preserves services) )!, ; |