LP1952931 Stamping process date and processed

Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
index f663256..81c2b6c 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
@@ -4499,6 +4499,11 @@ sub asn_receive_items {
         }
     }
 
+    $asn->process_date('now');
+    $asn->processed_by($e->requestor->id);
+
+    return $e->die_event unless $e->update_acq_shipment_notification($asn);
+
     if ($self->api_name =~ /dry_run/) {
         $e->rollback;
     } else {