From 3dddb60bd783aaf5fa1fda90a351f1e877b7e19b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 11 Aug 2001 05:52:56 +0000
Subject: add customer comments fields

---
 httemplate/view/cust_main.cgi | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'httemplate/view/cust_main.cgi')

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) )!,
 ;
-- 
cgit v1.2.1