<%
#
use strict;
use vars qw( $cgi $query $custnum $otaker $p1 $crednum $_date $amount $reason );
use Date::Format;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use FS::UID qw(cgisuidsetup getotaker);
use FS::CGI qw(header popurl);
use FS::Record qw(fields);
#use FS::cust_credit;
$cgi = new CGI;
cgisuidsetup($cgi);
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 {
($query) = $cgi->keywords;
$query =~ /^(\d+)$/;
$custnum = $1;
$amount = '';
#$refund = 'yes';
$reason = '';
}
$_date = time;
$otaker = getotaker;
$p1 = popurl(1);
print $cgi->header( '-expires' => 'now' ), header("Post Credit", '');
print qq!Error: !, $cgi->param('error'),
""
if $cgi->param('error');
print <
END
$crednum = "";
print qq!Credit #!, $crednum ? $crednum : " (NEW)", qq!!;
print qq!
Customer #$custnum!;
print qq!!;
print qq!
Date: !, time2str("%D",$_date), qq!!;
print qq!
Amount \$!;
print qq!!;
#print qq! Also post refund!;
print qq!!;
print qq!
Reason !;
print <
END
print <