From 4efb97a4a4fdc4f1cf3d212f884da6192ef6f62e Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 1 Aug 2008 17:26:28 +0000
Subject: [PATCH] added flesh_attrs support to lineitem ident search

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
index 5bd503352e..50318ab34d 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
@@ -419,6 +419,7 @@ __PACKAGE__->register_method(
                     Options hash.  Options are:
                         idlist : if set, only return lineitem IDs
                         clear_marc : if set, strip the MARC xml from the lineitem before delivery
+                        flesh_attrs : flesh lineitem attributes; 
                 /,
                 type => 'object',
             }
@@ -483,7 +484,13 @@ sub lineitem_search_ident {
         if($$options{idlist}) {
             $conn->respond($li_id);
         } else {
-            my $li = $e->retrieve_acq_lineitem($li_id);
+            my $li;
+            if($$options{flesh_attrs}) {
+                $li = $e->retrieve_acq_lineitem([
+                    $li_id, {flesh => 1, flesh_fields => {jub => ['attributes']}}])
+            } else {
+                $li = $e->retrieve_acq_lineitem($li_id);
+            }
             $li->clear_marc if $$options{clear_marc};
             $conn->respond($li);
         }
-- 
2.11.0