From 37a45bd766172bb4251eae76b7c508e28d5da6bc Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 17 Mar 2009 03:09:04 +0000 Subject: [PATCH] added creator/editor to general picklist create git-svn-id: svn://svn.open-ils.org/ILS/trunk@12552 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm index bd212e798..30b7e040e 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm @@ -29,6 +29,8 @@ sub create_picklist { 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') -- 2.11.0