From bf8c650c1f69632044b6491bf62f2c65fa803a3d Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 26 Mar 2010 15:09:31 +0000
Subject: [PATCH] Set PO order date at PO activation time
git-svn-id: svn://svn.open-ils.org/ILS/trunk@16004 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm | 1 +
1 file changed, 1 insertion(+)
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
index 7d0693351d..2df2bab22a 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
@@ -2018,6 +2018,7 @@ sub activate_purchase_order_impl {
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 = [
--
2.11.0