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 a8126f4..80d8e3c 100644 (file)
--- 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([