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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-04-26 15:47:47 -0400 (Mon, 26 Apr 2010)
New Revision: 16312

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
thinko on using cleared fund debit id

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-04-26 19:18:17 UTC (rev 16311)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-04-26 19:47:47 UTC (rev 16312)
@@ -2643,14 +2643,13 @@
 
     if($debit_id) {
         # item is cancelled.  Remove the fund debit.
-        my $debit = $mgr->editor->retrieve_acq_fund_debit($lid->fund_debit);
+        my $debit = $mgr->editor->retrieve_acq_fund_debit($debit_id);
         if (!$U->is_true($debit->encumbrance)) {
             $mgr->editor->rollback;
             return OpenILS::Event->new('ACQ_NOT_CANCELABLE', 
                 note => "Debit is marked as paid: $debit_id");
         }
         $mgr->editor->delete_acq_fund_debit($debit) or return $mgr->editor->die_event;
-        $lid->clear_fund_debit;
     }
 
     return {"lid" => {$lid_id => {"cancel_reason" => $cancel_reason}}};