aded username fleshing to single picklist retrieval

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@8834 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
index 657a515..3af3027 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
@@ -96,6 +96,9 @@ sub retrieve_picklist {
             $e->allowed('VIEW_PICKLIST', undef, $picklist);
     }
 
+    $picklist->owner($e->retrieve_actor_user($picklist->owner)->usrname) 
+        if($$options{flesh_username});
+
     return $picklist;
 }