X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_credit_bill.cgi;h=1a97e1312d6979d631826e30388f612952e551d3;hb=8fe3fe6ae4075fab902685fd145c48122baedfcb;hp=13bad185208dbfaad5e05971612f09107c8caa04;hpb=fbcb45dfe5a1bce7981fe4527176b9fdf2ec54b7;p=freeside.git
diff --git a/httemplate/edit/cust_credit_bill.cgi b/httemplate/edit/cust_credit_bill.cgi
index 13bad1852..1a97e1312 100755
--- a/httemplate/edit/cust_credit_bill.cgi
+++ b/httemplate/edit/cust_credit_bill.cgi
@@ -1,22 +1,7 @@
+
<%
-#
-
-use strict;
-use vars qw( $cgi $query $custnum $invnum $otaker $p1 $crednum $amount $reason $cust_credit );
-use Date::Format;
-use CGI;
-use CGI::Carp qw(fatalsToBrowser);
-use Date::Format;
-use FS::UID qw(cgisuidsetup getotaker);
-use FS::CGI qw(header popurl);
-use FS::Record qw(qsearch fields);
-use FS::cust_credit;
-use FS::cust_bill;
-
-
-$cgi = new CGI;
-cgisuidsetup($cgi);
+my($crednum, $amount, $invnum);
if ( $cgi->param('error') ) {
#$cust_credit_bill = new FS::cust_credit_bill ( {
# map { $_, scalar($cgi->param($_)) } fields('cust_credit_bill')
@@ -26,7 +11,7 @@ if ( $cgi->param('error') ) {
#$refund = $cgi->param('refund');
$invnum = $cgi->param('invnum');
} else {
- ($query) = $cgi->keywords;
+ my($query) = $cgi->keywords;
$query =~ /^(\d+)$/;
$crednum = $1;
$amount = '';
@@ -34,11 +19,11 @@ if ( $cgi->param('error') ) {
$invnum = '';
}
-$otaker = getotaker;
+my $otaker = getotaker;
-$p1 = popurl(1);
+my $p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("Apply Credit", '');
+print header("Apply Credit", '');
print qq!Error: !, $cgi->param('error'),
"
"
if $cgi->param('error');
@@ -46,7 +31,8 @@ print <
END
-die unless $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } );
+my $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } );
+die "credit $crednum not found!" unless $cust_credit;
my $credited = $cust_credit->credited;