acq li ident : perm ML
authorBill Erickson <berick@esilibrary.com>
Tue, 12 Feb 2013 21:09:56 +0000 (16:09 -0500)
committerBill Erickson <berick@esilibrary.com>
Mon, 11 Mar 2013 19:54:47 +0000 (15:54 -0400)
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm

index dbdee86..29080f4 100644 (file)
@@ -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