httemplate/edit/cust_credit.cgi

   1 %
   2 %
   3 %my $conf = new FS::Conf;
   4 %my($custnum, $amount, $reason);
   5 %if ( $cgi->param('error') ) {
   6 %  #$cust_credit = new FS::cust_credit ( {
   7 %  #  map { $_, scalar($cgi->param($_)) } fields('cust_credit')
   8 %  #} );
   9 %  $custnum = $cgi->param('custnum');
  10 %  $amount = $cgi->param('amount');
  11 %  #$refund = $cgi->param('refund');
  12 %  $reason = $cgi->param('reason');
  13 %} else {
  14 %  my($query) = $cgi->keywords;
  15 %  $query =~ /^(\d+)$/;
  16 %  $custnum = $1;
  17 %  $amount = '';
  18 %  #$refund = 'yes';
  19 %  $reason = '';
  20 %}
  21 %my $_date = time;
  22 %
  23 %my $otaker = getotaker;
  24 %
  25 %my $p1 = popurl(1);
  26 %
  27 %
  28 <% include('/elements/header-popup.html', 'Enter Credit') %>
  29 % if ( $cgi->param('error') ) {
  30
  31   <FONT SIZE="+1" COLOR="#ff0000">Error: <% $cgi->param('error') %></FONT>
  32   <BR><BR>
  33 % }
  34
  35
  36 <!-- <% small_custview($custnum, $conf->config('countrydefault')) %> -->
  37
  38 <FORM ACTION="<% $p1 %>process/cust_credit.cgi" METHOD=POST>
  39 <INPUT TYPE="hidden" NAME="crednum" VALUE="">
  40 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
  41 <INPUT TYPE="hidden" NAME="paybatch" VALUE="">
  42 <INPUT TYPE="hidden" NAME="_date" VALUE="<% $_date %>">
  43 <INPUT TYPE="hidden" NAME="credited" VALUE="">
  44 <INPUT TYPE="hidden" NAME="otaker" VALUE="<% $otaker %>">
  45
  46 Credit
  47
  48 <% ntable("#cccccc", 2) %>
  49
  50   <TR>
  51     <TD ALIGN="right">Date</TD>
  52     <TD BGCOLOR="#ffffff"><% time2str("%D",$_date) %></TD>
  53   </TR>
  54
  55   <TR>
  56     <TD ALIGN="right">Amount</TD>
  57     <TD BGCOLOR="#ffffff">$<INPUT TYPE="text" NAME="amount" VALUE="<% $amount %>" SIZE=8 MAXLENGTH=8></TD>
  58   </TR>
  59 %
  60 %#print qq! <INPUT TYPE="checkbox" NAME="refund" VALUE="$refund">Also post refund!;
  61 %
  62
  63
  64   <TR>
  65     <TD ALIGN="right">Reason</TD>
  66     <TD BGCOLOR="#ffffff"><INPUT TYPE="text" NAME="reason" VALUE="<% $reason %>" SIZE=32></TD>
  67   </TR>
  68
  69   <TR>
  70     <TD ALIGN="right">Auto-apply<BR>to invoices</TD>
  71     <TD><SELECT NAME="apply"><OPTION VALUE="yes" SELECTED>yes<OPTION>no</SELECT></TD>
  72   </TR>
  73
  74 </TABLE>
  75
  76 <BR>
  77 <CENTER><INPUT TYPE="submit" VALUE="Enter credit"></CENTER>
  78     </FORM>
  79   </BODY>
  80 </HTML>