<% # use strict; use vars qw( $cgi $query $custnum $otaker $p1 $_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 small_custview); use FS::Record qw(fields); #use FS::cust_credit; my $conf = new FS::Conf; $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 header("Post Credit", ''); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print <config('countrydefault'));