From: Bill Erickson <berick@esilibrary.com>
Date: Tue, 12 Feb 2013 21:09:56 +0000 (-0500)
Subject: acq li ident : perm ML
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=279b69b8b63c7c58473a9a1dbf29fb6437df2711;p=evergreen%2Fequinox.git

acq li ident : perm ML

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
index dbdee8625e..29080f49f0 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
@@ -3625,7 +3625,6 @@ sub set_li_order_ident {
     my ($self, $conn, $auth, $args) = @_;
     $args ||= {};
 
-    my $li_id;
     my $source_attr;
     my $source_attr_id = $args->{source_attr_id};
 
@@ -3645,6 +3644,9 @@ sub set_li_order_ident {
     my ($li, $evt, $perm_org) = fetch_and_check_li($e, $li_id, 'write');
     return $evt if $evt;
 
+    return $e->die_event unless 
+        $e->allowed('ACQ_SET_LINEITEM_IDENTIFIER', $perm_org);
+
     # if needed, create a new marc attr for 
     # the lineitem to represent the ident value