From 960d2ae634e12b4ba67a919aa6680deb536c9be8 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 22 Mar 2012 16:07:34 -0400 Subject: [PATCH] ACQ Fund retrieval API permission improvements Allow users with ADMIN_ACQ_FUND (in addition to the deprecated ADMIN_FUND) permission to retrieve fund year information via open-ils.acq.fund.org[.years].retrieve Signed-off-by: Bill Erickson Signed-off-by: Jason Stephenson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Financials.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Financials.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Financials.pm index acdcd31cb8..57eb88cb63 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Financials.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Financials.pm @@ -305,7 +305,7 @@ sub retrieve_org_funds { my $limit_perm = ($$options{limit_perm}) ? $$options{limit_perm} : 'ADMIN_FUND'; return OpenILS::Event->new('BAD_PARAMS') - unless $limit_perm =~ /(ADMIN|MANAGE|VIEW)_FUND/; + unless $limit_perm =~ /(ADMIN|MANAGE|VIEW)_(ACQ_)?FUND/; $filter->{org} = $filter->{org} || $U->user_has_work_perm_at($e, $limit_perm, {descendants =>1}); -- 2.11.0