[open-ils-commits] r11693 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-12-29 13:45:21 -0500 (Mon, 29 Dec 2008)
New Revision: 11693

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
Log:
added option to flesh owner object

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2008-12-29 18:35:58 UTC (rev 11692)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2008-12-29 18:45:21 UTC (rev 11693)
@@ -101,6 +101,8 @@
             $e->allowed('VIEW_PICKLIST', $picklist->org_unit, $picklist);
     }
 
+    $picklist->owner($e->retrieve_actor_user($picklist->owner)) 
+        if($$options{flesh_owner});
     $picklist->owner($e->retrieve_actor_user($picklist->owner)->usrname) 
         if($$options{flesh_username});
 
@@ -183,6 +185,7 @@
         } else {
             my $pl = $e->retrieve_acq_picklist($id);
             $pl->entry_count(retrieve_lineitem_count($e, $id)) if $$options{flesh_lineitem_count};
+            $pl->owner($e->retrieve_actor_user($pl->owner)) if $$options{flesh_owner};
             $pl->owner($e->retrieve_actor_user($pl->owner)->usrname) if $$options{flesh_username};
             $conn->respond($pl);
         }
@@ -233,6 +236,8 @@
         my $picklist = $e->retrieve_acq_picklist($pl) or return $e->event;
         $picklist->entry_count(retrieve_lineitem_count($e, $picklist->id))
             if($$options{flesh_lineitem_count});
+        $picklist->owner($e->retrieve_actor_user($picklist->owner))
+            if $$options{flesh_owner};
         $picklist->owner($e->retrieve_actor_user($picklist->owner)->usrname)
             if $$options{flesh_username};
         $conn->respond($picklist);