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 %><%= include('/elements/header-popup.html', 'Enter Credit') %>
  28
  29 <% if ( $cgi->param('error') ) { %>
  30   <FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT>
  31   <BR><BR>
  32 <% } %>
  33
  34 <!-- <%= small_custview($custnum, $conf->config('countrydefault')) %> -->
  35
  36 <FORM ACTION="<%= $p1 %>process/cust_credit.cgi" METHOD=POST>
  37 <INPUT TYPE="hidden" NAME="crednum" VALUE="">
  38 <INPUT TYPE="hidden" NAME="custnum" VALUE="<%= $custnum %>">
  39 <INPUT TYPE="hidden" NAME="paybatch" VALUE="">
  40 <INPUT TYPE="hidden" NAME="_date" VALUE="<%= $_date %>">
  41 <INPUT TYPE="hidden" NAME="credited" VALUE="">
  42 <INPUT TYPE="hidden" NAME="otaker" VALUE="<%= $otaker %>">
  43
  44 Credit
  45
  46 <%= ntable("#cccccc", 2) %>
  47
  48   <TR>
  49     <TD ALIGN="right">Date</TD>
  50     <TD BGCOLOR="#ffffff"><%= time2str("%D",$_date) %></TD>
  51   </TR>
  52
  53   <TR>
  54     <TD ALIGN="right">Amount</TD>
  55     <TD BGCOLOR="#ffffff">$<INPUT TYPE="text" NAME="amount" VALUE="<%= $amount %>" SIZE=8 MAXLENGTH=8></TD>
  56   </TR>
  57
  58 <%
  59 #print qq! <INPUT TYPE="checkbox" NAME="refund" VALUE="$refund">Also post refund!;
  60 %>
  61
  62   <TR>
  63     <TD ALIGN="right">Reason</TD>
  64     <TD BGCOLOR="#ffffff"><INPUT TYPE="text" NAME="reason" VALUE="<%= $reason %>" SIZE=32></TD>
  65   </TR>
  66
  67   <TR>
  68     <TD ALIGN="right">Auto-apply<BR>to invoices</TD>
  69     <TD><SELECT NAME="apply"><OPTION VALUE="yes" SELECTED>yes<OPTION>no</SELECT></TD>
  70   </TR>
  71
  72 </TABLE>
  73
  74 <BR>
  75 <CENTER><INPUT TYPE="submit" VALUE="Enter credit"></CENTER>
  76     </FORM>
  77   </BODY>
  78 </HTML>