2 % $cgi->param('error', $error);
3 <% $cgi->redirect(popurl(2). 'cust_credit-pkgnum.html?'. $cgi->query_string ) %>
5 <% header(emt('Credit package changed')) %>
6 <SCRIPT TYPE="text/javascript">
7 window.top.location.reload();
14 my $conf = FS::Conf->new;
17 unless $FS::CurrentUser::CurrentUser->access_right('Apply credit'); #own ACL?
19 $cgi->param('crednum') =~ /^(\d+)$/
20 or die "Illegal crednum: ". $cgi->param('crednum');
23 my $cust_credit = qsearchs({
24 'select' => 'cust_credit.*',
25 'table' => 'cust_credit',
26 'addl_from' => 'LEFT JOIN cust_main USING ( custnum )',
27 'hashref' => { crednum => scalar($cgi->param('crednum')), },
28 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql,
30 or die 'unknown credit';
32 $cust_credit->pkgnum( $cgi->param('pkgnum') );
33 my $error = $cust_credit->replace;