import torrus 1.0.9

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

diff --git a/httemplate/edit/cust_credit.cgi b/httemplate/edit/cust_credit.cgi
index c6b2bcb..dc80847 100755 (executable)
--- a/httemplate/edit/cust_credit.cgi
+++ b/httemplate/edit/cust_credit.cgi
@@ -10,12 +10,11 @@
 <INPUT TYPE="hidden" NAME="credited" VALUE="">
 <INPUT TYPE="hidden" NAME="otaker" VALUE="<% $otaker %>">
 
-Credit
 <% ntable("#cccccc", 2) %>
 
   <TR>
     <TD ALIGN="right">Date</TD>
-    <TD BGCOLOR="#ffffff"><% time2str("%D",$_date) %></TD>
+    <TD BGCOLOR="#ffffff"><% time2str($date_format, $_date) %></TD>
   </TR>
 
   <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>
@@ -59,12 +64,10 @@ Credit
 </FORM>
 </BODY>
 </HTML>
-<%once>
+<%init>
 
 my $conf = new FS::Conf;
-
-</%once>
-<%init>
+my $date_format = $conf->config('date_format') || '%m/%d/%Y';
 
 die "access denied"
   unless $FS::CurrentUser::CurrentUser->access_right('Post credit');
@@ -75,7 +78,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>