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 577fedb..80dea4e 100755 (executable)
--- 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());