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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-02-25 20:09:38 -0500 (Mon, 25 Feb 2008)
New Revision: 8834

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
Log:
aded username fleshing to single picklist retrieval

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2008-02-25 01:44:53 UTC (rev 8833)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2008-02-26 01:09:38 UTC (rev 8834)
@@ -96,6 +96,9 @@
             $e->allowed('VIEW_PICKLIST', undef, $picklist);
     }
 
+    $picklist->owner($e->retrieve_actor_user($picklist->owner)->usrname) 
+        if($$options{flesh_username});
+
     return $picklist;
 }