From 8b77b6841833b7448fc2afdcea31911833581b72 Mon Sep 17 00:00:00 2001 From: Jeff Davis Date: Thu, 14 Jul 2016 14:10:13 -0700 Subject: [PATCH] LP#1589586: use all fund debits (even encumbrances) when doing prorate calculations Signed-off-by: Jeff Davis Signed-off-by: Kathy Lussier --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Invoice.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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([ -- 2.43.2