From: Jeff Davis <jdavis@sitka.bclibraries.ca>
Date: Thu, 14 Jul 2016 21:10:13 +0000 (-0700)
Subject: LP#1589586: use all fund debits (even encumbrances) when doing prorate calculations
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=refs%2Fheads%2Fuser%2Fjeffdavis%2Flp1589586-prorate-invoice;p=working%2FEvergreen.git

LP#1589586: use all fund debits (even encumbrances) when doing prorate calculations

Signed-off-by: Jeff Davis <jdavis@sitka.bclibraries.ca>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Invoice.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Invoice.pm
index a8126f4573..80d8e3c7e4 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Invoice.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Invoice.pm
@@ -746,7 +746,7 @@ sub prorate_invoice {
 
     my @lid_debits;
     push(@lid_debits, 
-        @{find_entry_debits($e, $_, 'linked', 'f', entry_amount_per_item($_))}) 
+        @{find_entry_debits($e, $_, 'linked', undef, entry_amount_per_item($_))})
         for @{$invoice->entries};
 
     my $inv_items = $e->search_acq_invoice_item([