diff options
author | Ivan Kohler <ivan@freeside.biz> | 2012-12-09 10:37:32 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2012-12-09 10:37:32 -0800 |
commit | 1af8d0fac869b4b62526eec4b8ce56d5bc2c69fe (patch) | |
tree | cb70e06fb2646c08c7ecfb7c4b25118a80529dcf /FS/FS/cust_credit.pm | |
parent | 93e3a52f23c3473207f29f36cda06adfe221353f (diff) |
create credits by selecting line items, RT#18676
Diffstat (limited to 'FS/FS/cust_credit.pm')
-rw-r--r-- | FS/FS/cust_credit.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm index f7f375874..0251cee1d 100644 --- a/FS/FS/cust_credit.pm +++ b/FS/FS/cust_credit.pm @@ -623,14 +623,19 @@ sub credited_sql { Example: my $error = FS::cust_credit->credit_lineitems( - #the lineitems + + #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') + #fields('cust_credit') + qw( custnum _date amount reason reasonnum addlinfo ), #pkgnum eventnum + ); =cut |