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

[svn at svn.open-ils.org]

Author: atz
Date: 2010-08-11 11:57:14 -0400 (Wed, 11 Aug 2010)
New Revision: 17171

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
Respect activate_po option in interface

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-08-11 15:57:13 UTC (rev 17170)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-08-11 15:57:14 UTC (rev 17171)
@@ -1274,7 +1274,7 @@
         $mgr->respond;
 	}
 
-    my $die_event = activate_purchase_order_impl($mgr, $po->id) if $po;;
+    my $die_event = activate_purchase_order_impl($mgr, $po->id) if $po and $activate_po;
     return $die_event if $die_event;
 
 	$e->commit;