From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 1 Aug 2008 17:23:58 +0000 (+0000)
Subject: added clear_marc support to lineitem ident search
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=31a147a3fb9c0e16a6f89013a70734c8c8aa12cf;p=Evergreen.git

added clear_marc support to lineitem ident search

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@10234 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 ec18479fe4..5bd503352e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
@@ -418,6 +418,7 @@ __PACKAGE__->register_method(
             {   desc => q/
                     Options hash.  Options are:
                         idlist : if set, only return lineitem IDs
+                        clear_marc : if set, strip the MARC xml from the lineitem before delivery
                 /,
                 type => 'object',
             }
@@ -482,7 +483,9 @@ sub lineitem_search_ident {
         if($$options{idlist}) {
             $conn->respond($li_id);
         } else {
-            $conn->respond($e->retrieve_acq_lineitem($li_id));
+            my $li = $e->retrieve_acq_lineitem($li_id);
+            $li->clear_marc if $$options{clear_marc};
+            $conn->respond($li);
         }
     }
     return undef;