From: ivan Date: Sat, 11 Aug 2001 05:52:56 +0000 (+0000) Subject: add customer comments fields X-Git-Tag: merged-freeside_vpopmail_support~10 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=3dddb60bd783aaf5fa1fda90a351f1e877b7e19b add customer comments fields --- 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 @@ <% -# +# 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 "$r required fields for each billing type"; +if ( defined $cust_main->dbdef_table->column('comments') ) { + print "

Comments", &itable("#cccccc"), + qq!", + ""; +} + 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 @@ <% -# +# use strict; use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral @@ -210,7 +210,16 @@ print '
'; print ''; -print qq!

Packages !, +if ( defined $cust_main->dbdef_table->column('comments') ) { + print "
Comments", &ntable("#cccccc"), "", + &ntable("#cccccc",2), + '
', $cust_main->comments,
+        '
'; +} + +print ''; + +print qq!
Packages !, # qq!
Click on package number to view/edit package.!, qq!( Order and cancel packages (preserves services) )!, ;