[open-ils-commits] r19195 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (gmc)

[svn at svn.open-ils.org]

Author: gmc
Date: 2011-01-18 17:52:04 -0500 (Tue, 18 Jan 2011)
New Revision: 19195

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm
Log:
fix glitch that could break invoice proration

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

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm	2011-01-18 20:00:52 UTC (rev 19194)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Invoice.pm	2011-01-18 22:52:04 UTC (rev 19195)
@@ -495,7 +495,7 @@
             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