From ffe8282c432719b82a2212a2f34d2c0ee7f1fb19 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fran=C3=A7ois=20Prunayre?= <fx.prunayre@gmail.com>
Date: Thu, 10 Oct 2024 12:45:53 +0200
Subject: [PATCH] Thesaurus / OWL format / Mobility theme hierarchy (#8393)

* Thesaurus / OWL format / Mobility theme hierarchy

Follow up of https://github.com/geonetwork/core-geonetwork/pull/7674


Mobility DCAT theme vocabulary top concepts is available at
https://mobilitydcat-ap.github.io/controlled-vocabularies/mobility-theme/latest/index.html#/

The vocabulary contains 2 top concepts:

```xml
<skos:hasTopConcept rdf:resource="https://w3id.org/mobilitydcat-ap/mobility-theme/data-content-category"/>
<skos:hasTopConcept rdf:resource="https://w3id.org/mobilitydcat-ap/mobility-theme/data-content-sub-category"/>
```
which are not really needed for browsing the main categories and sub categories.

Use the narrower terms of the "content category" top concept as the top concepts of the scheme
to facilitate keyword selection in editor and generate proper facet hierarchy in search.

* Fix test

The 2 default top concepts of the vocabulary are replaced by correct one.
---
 .../vocabularies/KeywordsApiTest.java         |  2 +-
 .../xslt/services/thesaurus/owl-to-skos.xsl   | 61 ++++++++++++++++---
 2 files changed, 54 insertions(+), 9 deletions(-)

diff --git a/services/src/test/java/org/fao/geonet/api/registries/vocabularies/KeywordsApiTest.java b/services/src/test/java/org/fao/geonet/api/registries/vocabularies/KeywordsApiTest.java
index 01871cb85a0..2545a897882 100644
--- a/services/src/test/java/org/fao/geonet/api/registries/vocabularies/KeywordsApiTest.java
+++ b/services/src/test/java/org/fao/geonet/api/registries/vocabularies/KeywordsApiTest.java
@@ -249,6 +249,6 @@ public void testImportOntologyToSkos() throws Exception {
             "Mobility Theme", scheme.getChildText("title", NAMESPACE_DCT));
 
         List concepts = thesaurus.getChildren("Concept", SKOS_NAMESPACE);
-        assertEquals(123, concepts.size());
+        assertEquals(121, concepts.size());
     }
 }
diff --git a/web/src/main/webapp/xslt/services/thesaurus/owl-to-skos.xsl b/web/src/main/webapp/xslt/services/thesaurus/owl-to-skos.xsl
index 449ee6d70d5..b7a71380331 100644
--- a/web/src/main/webapp/xslt/services/thesaurus/owl-to-skos.xsl
+++ b/web/src/main/webapp/xslt/services/thesaurus/owl-to-skos.xsl
@@ -24,9 +24,9 @@
 <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                 xmlns:owl="http://www.w3.org/2002/07/owl#"
                 xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
-                xmlns:dc="http://purl.org/dc/elements/1.1/"
-                xmlns:dcterms="http://purl.org/dc/terms/"
+                xmlns:terms="http://purl.org/dc/terms/"
                 xmlns:skos="http://www.w3.org/2004/02/skos/core#"
+                xmlns:xs="http://www.w3.org/2001/XMLSchema"
                 exclude-result-prefixes="#all"
                 version="2.0">
 
@@ -40,12 +40,38 @@
 
   <xsl:template mode="owl-to-skos"
                 match="owl:Ontology">
-    <rdf:RDF xmlns:skos="http://www.w3.org/2004/02/skos/core#"
-             xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
-             xmlns:dc="http://purl.org/dc/elements/1.1/"
-             xmlns:dcterms="http://purl.org/dc/terms/">
+    <rdf:RDF>
+      <xsl:namespace name="skos" select="'http://www.w3.org/2004/02/skos/core#'"/>
+      <xsl:namespace name="rdf" select="'http://www.w3.org/1999/02/22-rdf-syntax-ns#'"/>
+      <xsl:namespace name="dc" select="'http://purl.org/dc/elements/1.1/'"/>
+      <xsl:namespace name="terms" select="'http://purl.org/dc/terms/'"/>
       <skos:ConceptScheme rdf:about="{@rdf:about}">
-        <xsl:copy-of select="dcterms:*|skos:*"/>
+        <xsl:copy-of select="terms:*|skos:*[local-name() != 'hasTopConcept']" copy-namespaces="no"/>
+
+        <!--
+        Custom case for Mobility DCAT theme vocabulary top concepts.
+        https://mobilitydcat-ap.github.io/controlled-vocabularies/mobility-theme/latest/index.html#/
+
+        The vocabulary contains 2 top concepts:
+        <skos:hasTopConcept rdf:resource="https://w3id.org/mobilitydcat-ap/mobility-theme/data-content-category"/>
+        <skos:hasTopConcept rdf:resource="https://w3id.org/mobilitydcat-ap/mobility-theme/data-content-sub-category"/>
+        which are not really needed for browsing the main categories and sub categories.
+
+        Use the narrower terms of the "content category" top concept as the top concepts of the scheme
+        to facilitate keyword selection in editor and generate proper facet hierarchy in search.
+        -->
+        <xsl:variable name="mobilityThemeTopConcept"
+                      select="../owl:NamedIndividual[@rdf:about = 'https://w3id.org/mobilitydcat-ap/mobility-theme/data-content-category']"/>
+        <xsl:choose>
+          <xsl:when test="$mobilityThemeTopConcept">
+            <xsl:for-each select="$mobilityThemeTopConcept/skos:narrower">
+              <skos:hasTopConcept rdf:resource="{@rdf:resource}"/>
+            </xsl:for-each>
+          </xsl:when>
+          <xsl:otherwise>
+            <xsl:copy-of select="skos:hasTopConcept" copy-namespaces="no"/>
+          </xsl:otherwise>
+        </xsl:choose>
       </skos:ConceptScheme>
 
       <xsl:apply-templates mode="owl-to-skos"
@@ -53,10 +79,29 @@
     </rdf:RDF>
   </xsl:template>
 
+  <xsl:variable name="excludedConcepts"
+                select="(
+                'https://w3id.org/mobilitydcat-ap/mobility-theme/data-content-category',
+                'https://w3id.org/mobilitydcat-ap/mobility-theme/data-content-sub-category'
+                )"
+                as="xs:string*"/>
+
+  <xsl:template mode="owl-to-skos"
+                match="owl:NamedIndividual[@rdf:about = $excludedConcepts]
+                            |skos:broader[@rdf:resource = $excludedConcepts]"/>
+
   <xsl:template mode="owl-to-skos"
                 match="owl:NamedIndividual">
     <skos:Concept rdf:about="{@rdf:about}">
-      <xsl:copy-of select="skos:*"/>
+      <xsl:apply-templates mode="owl-to-skos" select="skos:*"/>
     </skos:Concept>
   </xsl:template>
+
+  <xsl:template mode="owl-to-skos"
+                match="@*|node()">
+    <xsl:copy copy-namespaces="no">
+      <xsl:apply-templates select="@*|node()" mode="owl-to-skos"/>
+    </xsl:copy>
+  </xsl:template>
+
 </xsl:stylesheet>