httemplate/edit/cust_credit.cgi

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