From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 29 Jul 2008 18:11:42 +0000 (+0000)
Subject: Allow marking a LID as received even if there is no fund debit.  not sure yet
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=844f36652a03e41126cee3a4f5ee125415906192;p=Evergreen.git

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.



git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@10175 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
index 5edd761118..84aceabbc0 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
@@ -651,8 +651,10 @@ sub receive_lineitem_detail_impl {
     $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