httemplate/edit/process/credit-cust_bill_pkg.html

   1 %if ($error) {
   2 %  errorpage_popup($error); #XXX redirect back for correction...
   3 %} else {
   4 <& /elements/header-popup.html, 'Credit successful' &>
   5   <SCRIPT TYPE="text/javascript">
   6     window.top.location.reload();
   7   </SCRIPT>
   8   </BODY></HTML>
   9 % }
  10 <%init>
  11
  12 die "access denied"
  13   unless $FS::CurrentUser::CurrentUser->access_right('Post credit');
  14
  15 my @billpkgnum_setuprecurs =
  16   map { $_ =~ /^billpkgnum(\d+\-\w*)$/ or die 'gm#23'; $1; }
  17   grep { $_ =~ /^billpkgnum\d+\-\w*$/ && $cgi->param($_) } $cgi->param;
  18
  19 my @billpkgnums = ();
  20 my @setuprecurs = ();
  21 my @amounts = ();
  22 foreach my $billpkgnum_setuprecur (@billpkgnum_setuprecurs) {
  23   my $amount = $cgi->param("billpkgnum$billpkgnum_setuprecur");
  24   my( $billpkgnum, $setuprecur ) = split('-', $billpkgnum_setuprecur);
  25   push @billpkgnums, $billpkgnum;
  26   push @setuprecurs, $setuprecur;
  27   push @amounts,     $amount;
  28 }
  29
  30 my $error = FS::cust_credit->credit_lineitems(
  31   #the lineitems to credit
  32   'billpkgnums'       => \@billpkgnums,
  33   'setuprecurs'       => \@setuprecurs,
  34   'amounts'           => \@amounts,
  35
  36   #the credit
  37   'newreasonnum'      => scalar($cgi->param('newreasonnum')),
  38   'newreasonnum_type' => scalar($cgi->param('newreasonnumT')),
  39   map { $_ => scalar($cgi->param($_)) }
  40     #fields('cust_credit')
  41     qw( custnum _date amount reason reasonnum addlinfo ), #pkgnum eventnum
  42 );
  43
  44 </%init>