[open-ils-commits] r10349 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-08-13 10:19:43 -0400 (Wed, 13 Aug 2008)
New Revision: 10349

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
unflesh fund field before comitting

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-08-13 02:22:07 UTC (rev 10348)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-08-13 14:19:43 UTC (rev 10349)
@@ -662,6 +662,7 @@
 
             # point the lineitem detail at the fund debit object
             $lid->fund_debit($debit->id);
+            $lid->fund($lid->fund->id);
             $e->update_acq_lineitem_detail($lid) or return $e->die_event;
             $total += $debit->amount;
         }