2 % $cgi->param('reasonnum', $reasonnum);
3 % $cgi->param('error', $error);
4 % $dbh->rollback if $oldAutoCommit;
6 <% $cgi->redirect(popurl(2). "cust_credit.cgi?". $cgi->query_string ) %>
10 % if ( $cgi->param('apply') eq 'yes' ) {
11 % my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum })
12 % or die "unknown custnum $custnum";
13 % $cust_main->apply_credits;
16 % $dbh->commit or die $dbh->errstr if $oldAutoCommit;
18 <% header(emt('Credit successful')) %>
19 <SCRIPT TYPE="text/javascript">
20 window.top.location.reload();
28 unless $FS::CurrentUser::CurrentUser->access_right('Post credit');
30 $cgi->param('custnum') =~ /^(\d+)$/ or die "Illegal custnum!";
33 $cgi->param('reasonnum') =~ /^(-?\d+)$/ or die "Illegal reasonnum";
36 my $oldAutoCommit = $FS::UID::AutoCommit;
37 local $FS::UID::AutoCommit = 0;
41 if ($reasonnum == -1) {
43 $error = 'Enter a new reason (or select an existing one)'
44 unless $cgi->param('newreasonnum') !~ /^\s*$/;
45 my $reason = new FS::reason {
46 'reason_type' => scalar($cgi->param('newreasonnumT')),
47 'reason' => scalar($cgi->param('newreasonnum')),
49 $error ||= $reason->insert;
50 $cgi->param('reasonnum', $reason->reasonnum)
55 my $new = new FS::cust_credit ( {
57 $_, scalar($cgi->param($_));
58 } fields('cust_credit')
60 $error = $new->insert;