% or die "unknown custnum $custnum";
% $cust_main->apply_credits;
% }
-% #print $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum");
%
% $dbh->commit or die $dbh->errstr if $oldAutoCommit;
%
-<% header('Credit sucessful') %>
+<% header(emt('Credit successful')) %>
<SCRIPT TYPE="text/javascript">
window.top.location.reload();
</SCRIPT>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Post credit');
-$cgi->param('custnum') =~ /^(\d*)$/ or die "Illegal custnum!";
+$cgi->param('custnum') =~ /^(\d+)$/ or die "Illegal custnum!";
my $custnum = $1;
$cgi->param('reasonnum') =~ /^(-?\d+)$/ or die "Illegal reasonnum";