From: Bill Erickson <berickxx@gmail.com>
Date: Tue, 27 Apr 2021 14:55:09 +0000 (-0400)
Subject: LP1918150 MARC batch sets edit date
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=refs%2Fheads%2Fuser%2Fberick%2Flp-1918150-marc-batch-edit-date;p=working%2FEvergreen.git

LP1918150 MARC batch sets edit date

Cataloging => MARC Batch Edit now sets the 'editor' and 'edit_date'
fields for affected bib records.

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

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
index d072dd167d..856a8e3ef7 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
@@ -297,8 +297,22 @@ sub template_overlay_container {
         if ($success eq 'f') {
             $num_failed++;
         } else {
-            $U->create_events_for_hook('bre.edit', $rec, $e->requestor->ws_ou);
-            $num_succeeded++;
+
+            # Get an updated copy of the modified bib
+            $rec = $e->retrieve_biblio_record_entry($rec->id);
+            $rec->edit_date('now');
+            $rec->editor($e->requestor->id);
+
+            if ($e->update_biblio_record_entry($rec)) {
+                # Get another fresh copy with the proper edit_date
+                $rec = $e->retrieve_biblio_record_entry($rec->id);
+                $U->create_events_for_hook('bre.edit', $rec, $e->requestor->ws_ou);
+                $num_succeeded++;
+            } else {
+                $num_failed++;
+                $success = 'f';
+                $e->rollback;
+            }
         }
 
         if ($actor) {