From d8bac40fefe217cded6c259b671fdee289860f39 Mon Sep 17 00:00:00 2001
From: Bill Erickson <berickxx@gmail.com>
Date: Wed, 2 Dec 2015 16:38:26 -0500
Subject: [PATCH] JBAS-980 Extra del. record sanity check in bib/auth linker

Signed-off-by: Bill Erickson <berickxx@gmail.com>
---
 KCLS/linking/authority_control_fields.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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());
-- 
2.11.0