From e5653ef369c8a43130cc210eede1b72dd7b1b253 Mon Sep 17 00:00:00 2001 From: gmc Date: Tue, 18 Jan 2011 22:52:04 +0000 Subject: [PATCH] fix glitch that could break invoice proration Signed-off-by: Galen Charlton git-svn-id: svn://svn.open-ils.org/ILS/trunk@19195 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm index d0c20d296..305bd077e 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm @@ -495,7 +495,7 @@ sub prorate_invoice { my $paid_diff = $full_item_paid - $total_debited; my $cost_diff = $full_item_cost - $total_debited; $logger->info("invoice: repairing prorate descrepency of paid:$paid_diff and cost:$cost_diff"); - my $new_paid = $largest_item->amount + $paid_diff; + my $new_paid = $largest_item->amount_paid + $paid_diff; my $new_cost = $largest_item->cost_billed + $cost_diff; $largest_debit = $e->retrieve_acq_fund_debit($largest_debit->id); # get latest copy -- 2.11.0