From c6a55e8290cdaaec64d02757bb6991979b200686 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 23 Jun 2008 03:46:28 +0000
Subject: [PATCH] marking lineitem as received if all copies are received

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@9915 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
index c2b76fa9b5..6803ae0dcb 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
@@ -632,6 +632,18 @@ sub receive_lineitem_detail_impl {
 
     # XXX update the fund_debit to encumberance=false
 
+    my $non_recv = $e->search_acq_lineitem_detail(
+        {recv_time => undef, lineitem => $lid->lineitem});
+
+    unless(@$non_recv) {
+        # if all of the lineitem details for this lineitem have 
+        # been received, mark the lineitem as received
+        my $li = $e->retrieve_acq_lineitem($lid->lineitem);
+        $li->state('received');
+        $li->edit_time('now');
+        $e->update_acq_lineitem($li) or return $e->die_event;
+    }
+
     return undef;
 }
 
-- 
2.11.0