X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_credit.pm;h=dfe55fb63e4f8a9e2be0586c3d931673c335c50f;hb=a72a10f754f7465121d6137bb3dcee0a21ea6443;hp=f7f37587412c61b9394702c0b3134e8238f9ed54;hpb=93e3a52f23c3473207f29f36cda06adfe221353f;p=freeside.git

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index f7f375874..dfe55fb63 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
@@ -864,8 +869,6 @@ sub credit_lineitems {
 
   }
 
-  #$return->{taxlines} = \@taxlines;
-
   $dbh->commit or die $dbh->errstr if $oldAutoCommit;
   '';