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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-08-01 13:26:28 -0400 (Fri, 01 Aug 2008)
New Revision: 10235

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
Log:
added flesh_attrs support to lineitem ident search

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-08-01 17:23:58 UTC (rev 10234)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2008-08-01 17:26:28 UTC (rev 10235)
@@ -419,6 +419,7 @@
                     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 @@
         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);
         }