%
%
%my $conf = new FS::Conf;
%my($custnum, $amount, $reason);
%if ( $cgi->param('error') ) {
%  #$cust_credit = new FS::cust_credit ( {
%  #  map { $_, scalar($cgi->param($_)) } fields('cust_credit')
%  #} );
%  $custnum = $cgi->param('custnum');
%  $amount = $cgi->param('amount');
%  #$refund = $cgi->param('refund');
%  $reason = $cgi->param('reason');
%} else {
%  my($query) = $cgi->keywords;
%  $query =~ /^(\d+)$/;
%  $custnum = $1;
%  $amount = '';
%  #$refund = 'yes';
%  $reason = '';
%}
%my $_date = time;
%
%my $otaker = getotaker;
%
%my $p1 = popurl(1);
%
%
<% include('/elements/header-popup.html', 'Enter Credit') %>
% if ( $cgi->param('error') ) { 

  <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
  <BR><BR>
% } 


<!-- <% small_custview($custnum, $conf->config('countrydefault')) %> -->

<FORM ACTION="<% $p1 %>process/cust_credit.cgi" METHOD=POST>
<INPUT TYPE="hidden" NAME="crednum" VALUE="">
<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
<INPUT TYPE="hidden" NAME="paybatch" VALUE="">
<INPUT TYPE="hidden" NAME="_date" VALUE="<% $_date %>">
<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>
  </TR>

  <TR>
    <TD ALIGN="right">Amount</TD>
    <TD BGCOLOR="#ffffff">$<INPUT TYPE="text" NAME="amount" VALUE="<% $amount %>" SIZE=8 MAXLENGTH=8></TD>
  </TR>
%
%#print qq! <INPUT TYPE="checkbox" NAME="refund" VALUE="$refund">Also post refund!;
%


  <TR>
    <TD ALIGN="right">Reason</TD>
    <TD BGCOLOR="#ffffff"><INPUT TYPE="text" NAME="reason" VALUE="<% $reason %>" SIZE=32></TD>
  </TR>

  <TR>
    <TD ALIGN="right">Auto-apply<BR>to invoices</TD>
    <TD><SELECT NAME="apply"><OPTION VALUE="yes" SELECTED>yes<OPTION>no</SELECT></TD>
  </TR>

</TABLE>

<BR>
<CENTER><INPUT TYPE="submit" VALUE="Enter credit"></CENTER>
    </FORM>
  </BODY>
</HTML>