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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-07-29 14:11:42 -0400 (Tue, 29 Jul 2008)
New Revision: 10175

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
Log:

Allow marking a LID as received even if there is no fund debit.  not sure yet 
if this is sensible, but it's at least useful for testing.



Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2008-07-29 18:05:23 UTC (rev 10174)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2008-07-29 18:11:42 UTC (rev 10175)
@@ -651,8 +651,10 @@
     $copy->editor($e->requestor->id);
     $e->update_asset_copy($copy) or return $e->die_event;
 
-    $lid->fund_debit->encumbrance('f');
-    $e->update_acq_fund_debit($lid->fund_debit) or return $e->die_event;
+    if($lid->fund_debit) {
+        $lid->fund_debit->encumbrance('f');
+        $e->update_acq_fund_debit($lid->fund_debit) or return $e->die_event;
+    }
 
     # -------------------------------------------------------------
     # if all of the lineitem details for this lineitem have