From: Jason Stephenson <jason@sigio.com>
Date: Mon, 10 Feb 2020 16:09:37 +0000 (-0500)
Subject: Lp 1862652: pingest.pl reingest record attributes fix
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=5ac76ef7ebaecea134b34bfc6e33b004324c1474;p=evergreen%2Ftadl.git

Lp 1862652: pingest.pl reingest record attributes fix

Use the rdeleted parameter when reingesting record attributes in
pingest.pl support script so that passing argument values to the
--attr option makes sense.

Prior to this patch, arguments of the --attr option would be ignored,
and all record attribute fields were reingested for all records,
deleted and not deleted alike.

With this patch, the arguments of the --attr option are respected for
not deleted records.  Deleted records still have all attributes
reingested.

Signed-off-by: Jason Stephenson <jason@sigio.com>
Signed-off-by: Jane Sandberg <sandbergja@gmail.com>
---

diff --git a/Open-ILS/src/support-scripts/pingest.pl b/Open-ILS/src/support-scripts/pingest.pl
index efdb2ed5aa..8fd2cc914b 100755
--- a/Open-ILS/src/support-scripts/pingest.pl
+++ b/Open-ILS/src/support-scripts/pingest.pl
@@ -316,7 +316,7 @@ sub reingest_attributes {
     my $dbh = shift;
     my $list = shift;
     my $sth = $dbh->prepare(<<END_OF_INGEST
-SELECT metabib.reingest_record_attributes(rid := id, prmarc := marc, pattr_list := ?)
+SELECT metabib.reingest_record_attributes(rid := id, prmarc := marc, pattr_list := ?, rdeleted := deleted)
 FROM biblio.record_entry
 WHERE id = ?
 END_OF_INGEST