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
  29 <%= header("Post Credit", '') %>
  30
  31 <% if ( $cgi->param('error') ) { %>
  32   <FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT>
  33   <BR><BR>
  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 <%
  61 #print qq! <INPUT TYPE="checkbox" NAME="refund" VALUE="$refund">Also post refund!;
  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="Post credit"></CENTER>
  78     </FORM>
  79   </BODY>
  80 </HTML>