add add'l info field as a customer-editable field, RT#6505

[freeside.git] / httemplate / edit / cust_credit.cgi

diff --git a/httemplate/edit/cust_credit.cgi b/httemplate/edit/cust_credit.cgi
index c6b2bcb..febf281 100755 (executable)
--- a/httemplate/edit/cust_credit.cgi
+++ b/httemplate/edit/cust_credit.cgi
@@ -10,7 +10,6 @@
 <INPUT TYPE="hidden" NAME="credited" VALUE="">
 <INPUT TYPE="hidden" NAME="otaker" VALUE="<% $otaker %>">
 
-Credit
 <% ntable("#cccccc", 2) %>
 
   <TR>
@@ -36,6 +35,12 @@ Credit
 %>
 
   <TR>
+    <TD ALIGN="right">Additional info</TD>
+    <TD>
+      <INPUT TYPE="text" NAME="addlinfo" VALUE="<% $cgi->param('addlinfo') |h %>">
+    </TD>
+
+  <TR>
     <TD ALIGN="right">Auto-apply<BR>to invoices</TD>
     <TD><SELECT NAME="apply"><OPTION VALUE="yes" SELECTED>yes<OPTION>no</SELECT></TD>
   </TR>
@@ -75,7 +80,4 @@ my $_date   = time;
 my $otaker  = getotaker;
 my $p1      = popurl(1);
 
-my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
-  or die "unknown custnum $custnum\n";
-
 </%init>