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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-03-26 11:09:31 -0400 (Fri, 26 Mar 2010)
New Revision: 16004

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
Set PO order date at PO activation time

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-03-26 14:37:12 UTC (rev 16003)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-03-26 15:09:31 UTC (rev 16004)
@@ -2018,6 +2018,7 @@
     return $e->die_event unless $e->allowed('CREATE_PURCHASE_ORDER', $po->ordering_agency);
 
     $po->state('on-order');
+    $po->order_date('now');
     update_purchase_order($mgr, $po) or return $e->die_event;
 
     my $query = [