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 46ee197..737379d 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
@@ -3572,7 +3572,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};
 
@@ -3592,6 +3591,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