[open-ils-commits] r12552 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-16 23:09:04 -0400 (Mon, 16 Mar 2009)
New Revision: 12552

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
Log:
added creator/editor to general picklist create

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2009-03-17 02:03:13 UTC (rev 12551)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2009-03-17 03:09:04 UTC (rev 12552)
@@ -29,6 +29,8 @@
     my($self, $conn, $auth, $picklist) = @_;
     my $e = new_editor(xact=>1, authtoken=>$auth);
     return $e->die_event unless $e->checkauth;
+    $picklist->creator($e->requestor->id);
+    $picklist->editor($e->requestor->id);
     $picklist->org_unit($e->requestor->ws_ou) unless $picklist->org_unit;
     return $e->die_event unless $e->allowed('CREATE_PICKLIST', $picklist->org_unit);
     return OpenILS::Event->new('BAD_PARAMS')