httemplate/edit/process/cust_credit-pkgnum.html

   1 %if ($error) {
   2 %  $cgi->param('error', $error);
   3 <% $cgi->redirect(popurl(2). 'cust_credit-pkgnum.html?'. $cgi->query_string ) %>
   4 %} else {
   5 <& /elements/header-popup.html, emt('Credit package changed') &>
   6     <SCRIPT TYPE="text/javascript">
   7       topreload();
   8     </SCRIPT>
   9
  10     </BODY></HTML>
  11 %}
  12 <%init>
  13
  14 my $conf = FS::Conf->new;
  15
  16 die "access denied"
  17   unless $FS::CurrentUser::CurrentUser->access_right('Apply credit'); #own ACL?
  18
  19 $cgi->param('crednum') =~ /^(\d+)$/
  20   or die "Illegal crednum: ". $cgi->param('crednum');
  21 my $crednum = $1;
  22
  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,
  29 })
  30   or die 'unknown credit';
  31
  32 $cust_credit->pkgnum( $cgi->param('pkgnum') );
  33 my $error = $cust_credit->replace;
  34
  35 </%init>