From efc3c4c7f6cd6967effd98ea5928bd6cc1609d71 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Tue, 12 Feb 2013 16:09:56 -0500 Subject: [PATCH] acq li ident : perm ML Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 46ee19742a..737379d984 100644 --- 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 -- 2.11.0