From c69896629ab581e512c8395f03fce6d2093bb343 Mon Sep 17 00:00:00 2001
From: Pierre Choffet <peuc@wanadoo.fr>
Date: Tue, 8 Jul 2025 10:49:11 -0400
Subject: [PATCH] Add stylesheet to identify missing authorities

---
 README                            |  4 ++
 identify_missing_authorities.xslt | 99 +++++++++++++++++++++++++++++++
 2 files changed, 103 insertions(+)
 create mode 100644 identify_missing_authorities.xslt

diff --git a/README b/README
index 3c72c5c..6a99073 100644
--- a/README
+++ b/README
@@ -12,6 +12,10 @@ L’environnement d’utilisation nécessite la disponibilité des outils suivan
 
 
 Les outils disponibles sont les suivants :
+  - identify_missing_authorities.xslt
+    Liste les zones des notices bibliographiques faisant référence à des notices
+    d’autorité absentes du fichier MARCXML.
+  
   - merge_marcxml.xslt
     Fusionner deux fichiers au format MARCXML en supprimant les entrées
     présentes en plusieurs exemplaires.
diff --git a/identify_missing_authorities.xslt b/identify_missing_authorities.xslt
new file mode 100644
index 0000000..889b1da
--- /dev/null
+++ b/identify_missing_authorities.xslt
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsl:stylesheet version="1.0" xmlns:marc="http://www.loc.gov/MARC21/slim"
+                xmlns:xml="http://www.w3.org/XML/1998/namespace"
+                xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
+  <!-- identify_missing_authorities.xslt - Report broken foreign keys in MARCXML file
+    Copyright (C) 2025  Pierre Choffet
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of version 3 of the GNU General Public License as
+    published by the Free Software Foundation.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+    -->
+    
+	<xsl:output method="text" encoding="utf-8" />
+	
+	<xsl:template match="text()" />
+	
+	<xsl:key name="authority-person" match="/marc:collection/marc:record[substring(marc:leader, 7, 1) = 'z' and marc:datafield[@tag='100']]" use="concat(marc:datafield[@tag='100']/marc:subfield[@code='a'], marc:datafield[@tag='100']/marc:subfield[@code='b'], marc:datafield[@tag='100']/marc:subfield[@code='c'], marc:datafield[@tag='100']/marc:subfield[@code='d'], marc:datafield[@tag='100']/marc:subfield[@code='q'])" />
+	<xsl:key name="authority-corporate" match="/marc:collection/marc:record[substring(marc:leader, 7, 1) = 'z' and marc:datafield[@tag='110']]" use="concat(marc:datafield[@tag='110']/marc:subfield[@code='a'], marc:datafield[@tag='110']/marc:subfield[@code='b'], marc:datafield[@tag='110']/marc:subfield[@code='c'], marc:datafield[@tag='110']/marc:subfield[@code='d'])" />
+	<xsl:key name="authority-meeting" match="/marc:collection/marc:record[substring(marc:leader, 7, 1) = 'z' and marc:datafield[@tag='111']]" use="concat(marc:datafield[@tag='111']/marc:subfield[@code='a'], marc:datafield[@tag='111']/marc:subfield[@code='b'], marc:datafield[@tag='111']/marc:subfield[@code='n'], marc:datafield[@tag='111']/marc:subfield[@code='d'], marc:datafield[@tag='111']/marc:subfield[@code='c'])" />
+	
+	<xsl:template match="/marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='100'] |
+	                     /marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='600'] |
+	                     /marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='700'] |
+	                     /marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='800']">
+		<xsl:variable name="person-fk">
+			<xsl:value-of select="marc:subfield[@code='a']" />
+			<xsl:value-of select="marc:subfield[@code='b']" />
+			<xsl:value-of select="marc:subfield[@code='c']" />
+			<xsl:value-of select="marc:subfield[@code='d']" />
+			<xsl:value-of select="marc:subfield[@code='q']" />
+		</xsl:variable>
+		
+		<xsl:if test="not(key('authority-person', $person-fk))">
+			<xsl:text>Notice bibliographique « </xsl:text>
+			<xsl:value-of select="../marc:controlfield[@tag='001']" />
+			<xsl:text> », zone </xsl:text>
+			<xsl:value-of select="@tag" />
+			<xsl:text>: notice d’autorité de personne « </xsl:text>
+			<xsl:value-of select="$person-fk" />
+			<xsl:text> » manquante.</xsl:text>
+			<xsl:text>&#10;</xsl:text>
+		</xsl:if>
+	</xsl:template>
+	
+	<xsl:template match="/marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='110'] |
+	                     /marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='610'] |
+	                     /marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='710'] |
+	                     /marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='810']">
+		<xsl:variable name="corporate-fk">
+			<xsl:value-of select="marc:subfield[@code='a']" />
+			<xsl:value-of select="marc:subfield[@code='b']" />
+			<xsl:value-of select="marc:subfield[@code='c']" />
+			<xsl:value-of select="marc:subfield[@code='d']" />
+		</xsl:variable>
+		
+		<xsl:if test="not(key('authority-corporate', $corporate-fk))">
+			<xsl:text>Notice bibliographique « </xsl:text>
+			<xsl:value-of select="../marc:controlfield[@tag='001']" />
+			<xsl:text> », zone </xsl:text>
+			<xsl:value-of select="@tag" />
+			<xsl:text> : notice d’autorité de collectivité « </xsl:text>
+			<xsl:value-of select="$corporate-fk" />
+			<xsl:text> » manquante.</xsl:text>
+			<xsl:text>&#10;</xsl:text>
+		</xsl:if>
+	</xsl:template>
+	
+	<xsl:template match="/marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='111'] |
+	                     /marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='611'] |
+	                     /marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='711'] |
+	                     /marc:collection/marc:record[substring(marc:leader, 7, 1) = 'a']/marc:datafield[@tag='811']">
+		<xsl:variable name="meeting-fk">
+			<xsl:value-of select="marc:subfield[@code='a']" />
+			<xsl:value-of select="marc:subfield[@code='b']" />
+			<xsl:value-of select="marc:subfield[@code='n']" />
+			<xsl:value-of select="marc:subfield[@code='d']" />
+			<xsl:value-of select="marc:subfield[@code='c']" />
+		</xsl:variable>
+		
+		<xsl:if test="not(key('authority-meeting', $meeting-fk))">
+			<xsl:text>Notice bibliographique « </xsl:text>
+			<xsl:value-of select="../marc:controlfield[@tag='001']" />
+			<xsl:text> », zone </xsl:text>
+			<xsl:value-of select="@tag" />
+			<xsl:text> : notice d’autorité de réunion « </xsl:text>
+			<xsl:value-of select="$meeting-fk" />
+			<xsl:text> » manquante.</xsl:text>
+			<xsl:text>&#10;</xsl:text>
+		</xsl:if>
+	</xsl:template>
+</xsl:stylesheet>
-- 
2.53.0