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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-07-24 10:18:01 -0400 (Thu, 24 Jul 2008)
New Revision: 10108

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
fixed typo in object name.  pointing li_detail at the newly creatd fund_debit object

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-07-24 03:13:43 UTC (rev 10107)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-07-24 14:18:01 UTC (rev 10108)
@@ -644,7 +644,7 @@
                     flesh => 1, 
                     flesh_fields => {acqlid => ['fund']}}])->[0]) {
 
-            my $debit = Fieldmapper::acq::fund_debut->new;
+            my $debit = Fieldmapper::acq::fund_debit->new;
             $debit->fund($lid->fund->id);
             $debit->origin_amount($price);
             if($ptype == 2) { # price from vendor
@@ -655,9 +655,14 @@
                 $debit->origin_currency_type($lid->fund->currency_type);
                 $debit->amount($price);
             }
+
             $debit->encumbrance($args->{encumbrance});
             $debit->debit_type('purchase');
             $e->create_acq_fund_debit($debit) or return $e->die_event;
+
+            # point the lineitem detail at the fund debit object
+            $lid->fund_debit($debit->id);
+            $e->update_acq_lineitem_detail($lid) or return $e->die_event;
             $total += $debit->amount;
         }
     }