2 % errorpage_popup($error); #XXX redirect back for correction...
4 <& /elements/header-popup.html, 'Credit successful' &>
5 <SCRIPT TYPE="text/javascript">
6 window.top.location.reload();
13 unless $FS::CurrentUser::CurrentUser->access_right('Credit line items');
15 my @billpkgnum_setuprecurs =
16 map { $_ =~ /^billpkgnum(\d+\-\w*)$/ or die 'gm#23'; $1; }
17 grep { $_ =~ /^billpkgnum\d+\-\w*$/ && $cgi->param($_) } $cgi->param;
22 foreach my $billpkgnum_setuprecur (@billpkgnum_setuprecurs) {
23 my $amount = $cgi->param("billpkgnum$billpkgnum_setuprecur-amount");
24 my( $billpkgnum, $setuprecur ) = split('-', $billpkgnum_setuprecur);
25 push @billpkgnums, $billpkgnum;
26 push @setuprecurs, $setuprecur;
27 push @amounts, $amount;
30 my $error = FS::cust_credit->credit_lineitems(
31 #the lineitems to credit
32 'billpkgnums' => \@billpkgnums,
33 'setuprecurs' => \@setuprecurs,
34 'amounts' => \@amounts,
35 'apply' => ( $cgi->param('apply') eq 'yes' ),
38 'newreasonnum' => scalar($cgi->param('newreasonnum')),
39 'newreasonnum_type' => scalar($cgi->param('newreasonnumT')),
40 map { $_ => scalar($cgi->param($_)) }
41 #fields('cust_credit')
42 qw( custnum _date amount reason reasonnum addlinfo ), #pkgnum eventnum