From e69007ddff9865a31c2bccb23908a8a1c58b2060 Mon Sep 17 00:00:00 2001
From: Omar Siam <Omar.Siam@oeaw.ac.at>
Date: Thu, 9 Nov 2023 17:59:57 +0100
Subject: [PATCH] Set data attributes for corpus text links

---
 xslt/vicavTexts.xslt | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/xslt/vicavTexts.xslt b/xslt/vicavTexts.xslt
index 7550f6f..89c63e4 100644
--- a/xslt/vicavTexts.xslt
+++ b/xslt/vicavTexts.xslt
@@ -45,11 +45,15 @@
       <xsl:choose>
         <xsl:when test="starts-with($target, 'func:openDict_')">
           <xsl:sequence select="('DictQuery', $openDictFuncToDictID($target), replace($target, 'func:openDict_([^(]+)\(.*', '$1 Dictionary Query'))"/>
-        </xsl:when>        
+        </xsl:when>
         <xsl:when test="starts-with($target, 'text:')">
           <xsl:sequence select="('Text', replace($target,'^text:([^/]+)(/[^/,]+)?', '$1'), $captionFromMenuID(replace($target,'^text:([^/]+)(/[^/,]+)?', '$1')))"/>
           <!-- The part after the / is the label for the new window. We get those labels usint the lookup table.  -->
         </xsl:when>
+        <xsl:when test="starts-with($target, 'corpusText:')">
+          <xsl:sequence select="('corpusText', replace($target,'^corpusText:([^/]+)(/[^/,]+)?', '$1'), replace($target,'^corpusText:([^/]+)(/[^/,]+)?', '$1'))"/>
+          <!-- The part after the / is the label for the new window. We get those labels usint the lookup table.  -->
+        </xsl:when>
         <xsl:otherwise>
           <xsl:analyze-string select="$target" regex="^([^:]+):([^/]+)/([^/,]+)[,/]?(([^/,]+)[,/]?)?(([^/,]+)[,/]?)?(([^/,]+)[,/]?)?(([^/,]+)[,/]?)?">
             <xsl:matching-substring>
@@ -292,7 +296,8 @@
         starts-with(@ref,'bibl:') or
         starts-with(@ref,'flashcards:') or
         starts-with(@ref,'text:') or
-        starts-with(@ref,'sample:')]">
+        starts-with(@ref,'sample:') or
+        starts-with(@ref,'corpusText:')]">
         <a class="aVicText">
             <xsl:choose>
                 <xsl:when test="contains(@ref,'showLingFeatures')">