From 7efbf5181f14de67c9a0981afa6ab4994c09096b Mon Sep 17 00:00:00 2001
From: Bill Erickson <berickxx@gmail.com>
Date: Wed, 7 Jun 2017 17:22:55 -0400
Subject: [PATCH] JBAS-1148 Set cat date on new vandelay records

Set bre.cataloging_date = now for all bib records created as new from
the MARC Batch Import UI.

API supports setting this optionally via new set_cat_date option.

Signed-off-by: Bill Erickson <berickxx@gmail.com>
---
 Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm | 3 ++-
 Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm      | 9 ++++++++-
 Open-ILS/web/js/ui/default/vandelay/vandelay.js                | 5 ++++-
 3 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm
index c461dba2ac..7d78f28c52 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat/BibCommon.pm
@@ -78,7 +78,7 @@ sub biblio_record_replace_marc  {
 }
 
 sub biblio_record_xml_import {
-    my($class, $e, $xml, $source, $auto_tcn, $override, $strip_grps) = @_;
+    my($class, $e, $xml, $source, $auto_tcn, $override, $strip_grps, $set_cat_date) = @_;
 
     $override = { all => 1 } if($override && !ref $override);
     $override = { all => 0 } if(!ref $override);
@@ -114,6 +114,7 @@ sub biblio_record_xml_import {
     $record->create_date('now');
     $record->edit_date('now');
     $record->marc($marc);
+    $record->cataloging_date('now') if $set_cat_date;
 
     $record = $e->create_biblio_record_entry($record) or return $e->die_event;
 
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
index 6e92d27e75..151552eeb2 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm
@@ -996,6 +996,7 @@ sub import_record_list_impl {
     my $bib_source = $$args{bib_source};
     my $import_no_match = $$args{import_no_match};
     my $strip_grps = $$args{strip_field_groups}; # bib-only
+    my $set_cat_date = $$args{set_cat_date}; # bib-only; no_match imports only
 
     my $overlay_func = 'vandelay.overlay_bib_record';
     my $auto_overlay_func = 'vandelay.auto_overlay_bib_record';
@@ -1246,7 +1247,13 @@ sub import_record_list_impl {
                     if ($type eq 'bib') {
 
                         $record = OpenILS::Application::Cat::BibCommon->biblio_record_xml_import(
-                            $e, $rec->marc, $bib_sources{$rec->bib_source}, undef, 1);
+                            $e, $rec->marc, 
+                            $bib_sources{$rec->bib_source},
+                            undef,      # auto-tcn
+                            1,          # override
+                            undef,      # strip groups
+                            $set_cat_date
+                        );
 
                     } else { # authority record
 
diff --git a/Open-ILS/web/js/ui/default/vandelay/vandelay.js b/Open-ILS/web/js/ui/default/vandelay/vandelay.js
index 0901311cbb..e9d5c4805d 100644
--- a/Open-ILS/web/js/ui/default/vandelay/vandelay.js
+++ b/Open-ILS/web/js/ui/default/vandelay/vandelay.js
@@ -1442,7 +1442,10 @@ function vlImportRecordQueue(type, queueId, recList, onload, sessionKey) {
     var options = {
         overlay_map : currentOverlayRecordsMap, 
         session_key: sessionKey, // link to upload session if possible
-        exit_early: true
+        exit_early: true,
+        // KCLS JBAS-1148
+        // Set bre.cataloging_date = now for all newly created bib records.
+        set_cat_date : true
     };
 
     if(vlUploadQueueImportNoMatch.checked) {
-- 
2.11.0