From: Bill Erickson <berickxx@gmail.com>
Date: Wed, 2 Dec 2015 21:38:26 +0000 (-0500)
Subject: JBAS-980 Extra del. record sanity check in bib/auth linker
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d8bac40fefe217cded6c259b671fdee289860f39;p=working%2FEvergreen.git

JBAS-980 Extra del. record sanity check in bib/auth linker

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

diff --git a/KCLS/linking/authority_control_fields.pl b/KCLS/linking/authority_control_fields.pl
index 577fedb028..80dea4efcb 100755
--- a/KCLS/linking/authority_control_fields.pl
+++ b/KCLS/linking/authority_control_fields.pl
@@ -640,7 +640,7 @@ foreach my $rec_id (@records) {
 
     # get the record
     my $record = $e->retrieve_biblio_record_entry($rec_id);
-    next unless $record;
+    next unless $record && $record->deleted eq 'f';
 
     try {
         my $marc = MARC::Record->new_from_xml($record->marc());