From a06daa0f58bed99f929b5092af9dcd381d0f0acb Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Tue, 11 Dec 2012 16:34:21 -0800 Subject: [PATCH] create credits by selecting line items, RT#18676 --- httemplate/edit/process/credit-cust_bill_pkg.html | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/httemplate/edit/process/credit-cust_bill_pkg.html b/httemplate/edit/process/credit-cust_bill_pkg.html index d3323e6ed..8b2f3f3ea 100644 --- a/httemplate/edit/process/credit-cust_bill_pkg.html +++ b/httemplate/edit/process/credit-cust_bill_pkg.html @@ -28,11 +28,14 @@ foreach my $billpkgnum_setuprecur (@billpkgnum_setuprecurs) { } my $error = FS::cust_credit->credit_lineitems( - 'newreasonnum' => scalar($cgi->param('newreasonnum')), - 'newreasonnum_type' => scalar($cgi->param('newreasonnumT')), + #the lineitems to credit 'billpkgnums' => \@billpkgnums, 'setuprecurs' => \@setuprecurs, 'amounts' => \@amounts, + + #the credit + 'newreasonnum' => scalar($cgi->param('newreasonnum')), + 'newreasonnum_type' => scalar($cgi->param('newreasonnumT')), map { $_ => scalar($cgi->param($_)) } #fields('cust_credit') qw( custnum _date amount reason reasonnum addlinfo ), #pkgnum eventnum -- 2.11.0