add customer comments fields

[freeside.git] / httemplate / view / cust_main.cgi

diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi
index 6c260bb..8b6fb0c 100755 (executable)
--- a/httemplate/view/cust_main.cgi
+++ b/httemplate/view/cust_main.cgi
@@ -1,6 +1,7 @@
-<!-- $Id: cust_main.cgi,v 1.1 2001-07-30 07:36:04 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 
               @packages $package @history @bills $bill @credits $credit
               $balance $item @agents @referrals @invoicing_list $n1 $conf ); 
@@ -94,36 +95,36 @@ print '<TD VALIGN="top">';
           &ntable("#cccccc",2),
       '<TR><TD ALIGN="right">Contact name</TD>',
         '<TD COLSPAN=5 BGCOLOR="#ffffff">',
-        $cust_main->get("${$pre}last"), ', ', $cust_main->get("${$pre}first"),
+        $cust_main->get("${pre}last"), ', ', $cust_main->get("${pre}first"),
         '</TD></TR>',
       '<TR><TD ALIGN="right">Company</TD><TD COLSPAN=5 BGCOLOR="#ffffff">',
-        $cust_main->get("${$pre}company"),
+        $cust_main->get("${pre}company"),
         '</TD></TR>',
       '<TR><TD ALIGN="right">Address</TD><TD COLSPAN=5 BGCOLOR="#ffffff">',
-        $cust_main->get("${$pre}address1"),
+        $cust_main->get("${pre}address1"),
         '</TD></TR>',
     ;
     print '<TR><TD ALIGN="right">&nbsp;</TD><TD COLSPAN=5 BGCOLOR="#ffffff">',
-          $cust_main->get("${$pre}address2"), '</TD></TR>'
-      if $cust_main->get("${$pre}address2");
+          $cust_main->get("${pre}address2"), '</TD></TR>'
+      if $cust_main->get("${pre}address2");
     print '<TR><TD ALIGN="right">City</TD><TD BGCOLOR="#ffffff">',
-            $cust_main->get("${$pre}city"),
+            $cust_main->get("${pre}city"),
             '</TD><TD ALIGN="right">State</TD><TD BGCOLOR="#ffffff">',
-            $cust_main->get("${$pre}state"),
+            $cust_main->get("${pre}state"),
             '</TD><TD ALIGN="right">Zip</TD><TD BGCOLOR="#ffffff">',
-            $cust_main->get("${$pre}zip"), '</TD></TR>',
+            $cust_main->get("${pre}zip"), '</TD></TR>',
           '<TR><TD ALIGN="right">Country</TD><TD BGCOLOR="#ffffff">',
-            $cust_main->get("${$pre}country"),
+            $cust_main->get("${pre}country"),
             '</TD></TR>',
     ;
     print '<TR><TD ALIGN="right">Day Phone</TD>',
           '<TD COLSPAN=5 BGCOLOR="#ffffff">',
-            $cust_main->get("${$pre}daytime") || '&nbsp', '</TD></TR>',
+            $cust_main->get("${pre}daytime") || '&nbsp', '</TD></TR>',
           '<TR><TD ALIGN="right">Night Phone</TD>'.
           '<TD COLSPAN=5 BGCOLOR="#ffffff">',
-            $cust_main->get("${$pre}night") || '&nbsp', '</TD></TR>',
+            $cust_main->get("${pre}night") || '&nbsp', '</TD></TR>',
           '<TR><TD ALIGN="right">Fax</TD><TD COLSPAN=5 BGCOLOR="#ffffff">',
-            $cust_main->get("${$pre}fax") || '&nbsp', '</TD></TR>',
+            $cust_main->get("${pre}fax") || '&nbsp', '</TD></TR>',
           '</TABLE>', "</TD></TR></TABLE>"
     ;
 
@@ -209,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) )!,
 ;