From ca65c65eb2b499bdc9fe22402f93d602db51373d Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 22 Mar 2012 16:07:34 -0400 Subject: [PATCH] accommodate both the old and new acq fund admin perms in fund retrieval Signed-off-by: Bill Erickson --- 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