From 1af8d0fac869b4b62526eec4b8ce56d5bc2c69fe Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 9 Dec 2012 10:37:32 -0800
Subject: [PATCH] create credits by selecting line items, RT#18676

---
 FS/FS/cust_credit.pm | 9 +++++++--
 1 file 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
-- 
2.11.0