From: Bill Erickson <berick@esilibrary.com>
Date: Thu, 22 Mar 2012 20:07:34 +0000 (-0400)
Subject: accommodate both the old and new acq fund admin perms in fund retrieval
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=ca65c65eb2b499bdc9fe22402f93d602db51373d;p=evergreen%2Fequinox.git

accommodate both the old and new acq fund admin perms in fund retrieval

Signed-off-by: Bill Erickson <berick@esilibrary.com>
---

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});