[open-ils-commits] r8774 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-02-19 10:45:18 -0500 (Tue, 19 Feb 2008)
New Revision: 8774

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
added missing commit.  updated po perms to allow for object-specific perms on POs

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-02-19 14:25:48 UTC (rev 8773)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-02-19 15:45:18 UTC (rev 8774)
@@ -563,8 +563,10 @@
     my $po = $e->retrieve_acq_purchase_order($po_li->purchase_order)
         or return $e->die_event;
 
-    return OpenILS::Event->new('BAD_PARAMS') 
-        unless $e->requestor->id == $po->owner;
+    if($e->requestor->id != $po->owner) {
+        return $e->die_event unless 
+            $e->allowed('MANAGE_PURCHASE_ORDER', undef, $po);
+    }
 
     if($$options{picklist_entry}) {
         # if a picklist_entry ID is provided, use that as the basis for this item
@@ -587,6 +589,7 @@
     return $e->die_event unless $e->allowed('MANAGE_PROVIDER', $provider->owner, $provider);
 
     $e->create_acq_po_lineitem($po_li) or return $e->die_event;
+    $e->commit;
     return $po_li->id;
 }