[open-ils-commits] r13057 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-05-04 15:51:34 -0400 (Mon, 04 May 2009)
New Revision: 13057

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
simplify the basic po retrieval perm test

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2009-05-04 19:50:42 UTC (rev 13056)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2009-05-04 19:51:34 UTC (rev 13057)
@@ -901,12 +901,7 @@
 sub po_perm_failure {
     my($e, $po_id, $fund_id) = @_;
     my $po = $e->retrieve_acq_purchase_order($po_id) or return $e->event;
-    my $provider = $e->retrieve_acq_provider($po->provider) or return $e->event;
-    return $e->event unless $e->allowed('MANAGE_PROVIDER', $provider->owner, $provider);
-    if($fund_id) {
-        my $fund = $e->retrieve_acq_fund($po->$fund_id);
-        return $e->event unless $e->allowed('MANAGE_FUND', $fund->org, $fund);
-    }
+    return $e->event unless $e->allowed('VIEW_PURCHASE_ORDER', $po->ordering_agency, $po);
     return undef;
 }