fix glitch that could break invoice proration

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

git-svn-id: svn://svn.open-ils.org/ILS/trunk@19195 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm
index d0c20d2..305bd07 100644 (file)
--- 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