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 d072dd1..856a8e3 100644 (file)
--- 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) {