From 7dd9534ac18a8bf37cbf0fe31ee0671570a2fd73 Mon Sep 17 00:00:00 2001
From: Fred Atherden <43879983+fred-atherden@users.noreply.github.com>
Date: Tue, 17 Dec 2024 10:30:34 +0000
Subject: [PATCH] VOR - update RRID link in message text

---
 src/final-JATS-schematron.sch                        | 2 +-
 src/final-JATS-schematron.xsl                        | 2 +-
 src/final-package-JATS-schematron.sch                | 2 +-
 src/pre-JATS-schematron.sch                          | 2 +-
 src/pre-JATS-schematron.xsl                          | 2 +-
 src/schematron.sch                                   | 2 +-
 test/tests/gen/rrid-org-code/rrid-test/fail.xml      | 2 +-
 test/tests/gen/rrid-org-code/rrid-test/pass.xml      | 2 +-
 test/tests/gen/rrid-org-code/rrid-test/rrid-test.sch | 2 +-
 test/xspec/schematron.sch                            | 2 +-
 10 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/final-JATS-schematron.sch b/src/final-JATS-schematron.sch
index 76cf028450..800c678f87 100644
--- a/src/final-JATS-schematron.sch
+++ b/src/final-JATS-schematron.sch
@@ -5435,7 +5435,7 @@
       <let name="link-strip-text" value="string-join(for $x in (*[not(matches(local-name(),'^ext-link$|^contrib-id$|^license_ref$|^institution-id$|^email$|^xref$|^monospace$'))]|text()) return $x,'')"/>
       <let name="url-text" value="string-join(for $x in tokenize($link-strip-text,' ')         return   if (matches($x,'^https?:..(www\.)?[-a-zA-Z0-9@:%._\+~#=]{2,256}\.[a-z]{2,6}([-a-zA-Z0-9@:%_\+.~#?&amp;//=]*)|^ftp://.|^git://.|^tel:.|^mailto:.|\.org[\p{Zs}]?|\.com[\p{Zs}]?|\.co.uk[\p{Zs}]?|\.us[\p{Zs}]?|\.net[\p{Zs}]?|\.edu[\p{Zs}]?|\.gov[\p{Zs}]?|\.io[\p{Zs}]?')) then $x         else (),'; ')"/>
       
-      <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" test="($text-count gt $count)" role="warning" id="rrid-test">[rrid-test] '<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
+      <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" test="($text-count gt $count)" role="warning" id="rrid-test">[rrid-test] '<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
       
       <report see="https://elifeproduction.slab.com/posts/house-style-yi0641ob#h6d61-org-test" test="matches($t,$org-regex) and not(descendant::italic[contains(.,e:org-conform($t))]) and not(descendant::element-citation)" role="warning" id="org-test">[org-test] <name/> element contains an organism - <value-of select="e:org-conform($t)"/> - but there is no italic element with that correct capitalisation or spacing. Is this correct? <name/> element begins with <value-of select="concat(.,substring(.,1,15))"/>.</report>
       
diff --git a/src/final-JATS-schematron.xsl b/src/final-JATS-schematron.xsl
index 651166b1d5..c11c95ec27 100644
--- a/src/final-JATS-schematron.xsl
+++ b/src/final-JATS-schematron.xsl
@@ -29521,7 +29521,7 @@
                <xsl:value-of select="name(.)"/>
                <xsl:text/>' element contains what looks like <xsl:text/>
                <xsl:value-of select="$text-count - $count"/>
-               <xsl:text/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID/RRID:'. Element begins with <xsl:text/>
+               <xsl:text/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID:'. Element begins with <xsl:text/>
                <xsl:value-of select="substring(.,1,15)"/>
                <xsl:text/>.</svrl:text>
          </svrl:successful-report>
diff --git a/src/final-package-JATS-schematron.sch b/src/final-package-JATS-schematron.sch
index c1825c41fa..84584c1953 100644
--- a/src/final-package-JATS-schematron.sch
+++ b/src/final-package-JATS-schematron.sch
@@ -5441,7 +5441,7 @@
       <let name="link-strip-text" value="string-join(for $x in (*[not(matches(local-name(),'^ext-link$|^contrib-id$|^license_ref$|^institution-id$|^email$|^xref$|^monospace$'))]|text()) return $x,'')"/>
       <let name="url-text" value="string-join(for $x in tokenize($link-strip-text,' ')         return   if (matches($x,'^https?:..(www\.)?[-a-zA-Z0-9@:%._\+~#=]{2,256}\.[a-z]{2,6}([-a-zA-Z0-9@:%_\+.~#?&amp;//=]*)|^ftp://.|^git://.|^tel:.|^mailto:.|\.org[\p{Zs}]?|\.com[\p{Zs}]?|\.co.uk[\p{Zs}]?|\.us[\p{Zs}]?|\.net[\p{Zs}]?|\.edu[\p{Zs}]?|\.gov[\p{Zs}]?|\.io[\p{Zs}]?')) then $x         else (),'; ')"/>
       
-      <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" test="($text-count gt $count)" role="warning" id="rrid-test">'<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
+      <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" test="($text-count gt $count)" role="warning" id="rrid-test">'<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
       
       <report see="https://elifeproduction.slab.com/posts/house-style-yi0641ob#h6d61-org-test" test="matches($t,$org-regex) and not(descendant::italic[contains(.,e:org-conform($t))]) and not(descendant::element-citation)" role="warning" id="org-test"><name/> element contains an organism - <value-of select="e:org-conform($t)"/> - but there is no italic element with that correct capitalisation or spacing. Is this correct? <name/> element begins with <value-of select="concat(.,substring(.,1,15))"/>.</report>
       
diff --git a/src/pre-JATS-schematron.sch b/src/pre-JATS-schematron.sch
index 55e86d4e2d..5a9cc9c126 100644
--- a/src/pre-JATS-schematron.sch
+++ b/src/pre-JATS-schematron.sch
@@ -5380,7 +5380,7 @@
       <let name="link-strip-text" value="string-join(for $x in (*[not(matches(local-name(),'^ext-link$|^contrib-id$|^license_ref$|^institution-id$|^email$|^xref$|^monospace$'))]|text()) return $x,'')"/>
       <let name="url-text" value="string-join(for $x in tokenize($link-strip-text,' ')         return   if (matches($x,'^https?:..(www\.)?[-a-zA-Z0-9@:%._\+~#=]{2,256}\.[a-z]{2,6}([-a-zA-Z0-9@:%_\+.~#?&amp;//=]*)|^ftp://.|^git://.|^tel:.|^mailto:.|\.org[\p{Zs}]?|\.com[\p{Zs}]?|\.co.uk[\p{Zs}]?|\.us[\p{Zs}]?|\.net[\p{Zs}]?|\.edu[\p{Zs}]?|\.gov[\p{Zs}]?|\.io[\p{Zs}]?')) then $x         else (),'; ')"/>
       
-      <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" test="($text-count gt $count)" role="warning" id="rrid-test">[rrid-test] '<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
+      <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" test="($text-count gt $count)" role="warning" id="rrid-test">[rrid-test] '<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
       
       <report see="https://elifeproduction.slab.com/posts/house-style-yi0641ob#h6d61-org-test" test="matches($t,$org-regex) and not(descendant::italic[contains(.,e:org-conform($t))]) and not(descendant::element-citation)" role="warning" id="org-test">[org-test] <name/> element contains an organism - <value-of select="e:org-conform($t)"/> - but there is no italic element with that correct capitalisation or spacing. Is this correct? <name/> element begins with <value-of select="concat(.,substring(.,1,15))"/>.</report>
       
diff --git a/src/pre-JATS-schematron.xsl b/src/pre-JATS-schematron.xsl
index 53d1729f6d..d930f51102 100644
--- a/src/pre-JATS-schematron.xsl
+++ b/src/pre-JATS-schematron.xsl
@@ -29267,7 +29267,7 @@
                <xsl:value-of select="name(.)"/>
                <xsl:text/>' element contains what looks like <xsl:text/>
                <xsl:value-of select="$text-count - $count"/>
-               <xsl:text/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID/RRID:'. Element begins with <xsl:text/>
+               <xsl:text/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID:'. Element begins with <xsl:text/>
                <xsl:value-of select="substring(.,1,15)"/>
                <xsl:text/>.</svrl:text>
          </svrl:successful-report>
diff --git a/src/schematron.sch b/src/schematron.sch
index 315d9118fd..02e29b6731 100644
--- a/src/schematron.sch
+++ b/src/schematron.sch
@@ -10055,7 +10055,7 @@ else self::*/local-name() = $allowed-p-blocks"
       <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" 
         test="($text-count gt $count)" 
         role="warning" 
-        id="rrid-test">'<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
+        id="rrid-test">'<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
       
       <report see="https://elifeproduction.slab.com/posts/house-style-yi0641ob#h6d61-org-test"  
         test="matches($t,$org-regex) and not(descendant::italic[contains(.,e:org-conform($t))]) and not(descendant::element-citation)" 
diff --git a/test/tests/gen/rrid-org-code/rrid-test/fail.xml b/test/tests/gen/rrid-org-code/rrid-test/fail.xml
index 3af7cbdd21..1baf464ece 100644
--- a/test/tests/gen/rrid-org-code/rrid-test/fail.xml
+++ b/test/tests/gen/rrid-org-code/rrid-test/fail.xml
@@ -1,7 +1,7 @@
 <?oxygen SCHSchema="rrid-test.sch"?>
 <!--Context: p|td|th
 Test: report    ($text-count gt $count)
-Message: '' element contains what looks like  unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID/RRID:'. Element begins with . -->
+Message: '' element contains what looks like  unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID:'. Element begins with . -->
 <root xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:ali="http://www.niso.org/schemas/ali/1.0">
   <article>
     <p>RRID:AB_0001</p>
diff --git a/test/tests/gen/rrid-org-code/rrid-test/pass.xml b/test/tests/gen/rrid-org-code/rrid-test/pass.xml
index 1032518a39..a1df59f0db 100644
--- a/test/tests/gen/rrid-org-code/rrid-test/pass.xml
+++ b/test/tests/gen/rrid-org-code/rrid-test/pass.xml
@@ -1,7 +1,7 @@
 <?oxygen SCHSchema="rrid-test.sch"?>
 <!--Context: p|td|th
 Test: report    ($text-count gt $count)
-Message: '' element contains what looks like  unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID/RRID:'. Element begins with . -->
+Message: '' element contains what looks like  unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID:'. Element begins with . -->
 <root xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:ali="http://www.niso.org/schemas/ali/1.0">
   <article>
     <p><ext-link xlink:href="https://identifiers.org/RRID/RRID:AB_0001">RRID:AB_0001</ext-link></p>
diff --git a/test/tests/gen/rrid-org-code/rrid-test/rrid-test.sch b/test/tests/gen/rrid-org-code/rrid-test/rrid-test.sch
index 6865ec6b36..cb70039336 100644
--- a/test/tests/gen/rrid-org-code/rrid-test/rrid-test.sch
+++ b/test/tests/gen/rrid-org-code/rrid-test/rrid-test.sch
@@ -1370,7 +1370,7 @@
       <let name="unequal-equal-text" value="string-join(for $x in tokenize(replace(.,'[&gt;&lt;]',''),' | ') return if (matches($x,'=$|^=') and not(matches($x,'^=$'))) then $x else (),'; ')"/>
       <let name="link-strip-text" value="string-join(for $x in (*[not(matches(local-name(),'^ext-link$|^contrib-id$|^license_ref$|^institution-id$|^email$|^xref$|^monospace$'))]|text()) return $x,'')"/>
       <let name="url-text" value="string-join(for $x in tokenize($link-strip-text,' ')         return   if (matches($x,'^https?:..(www\.)?[-a-zA-Z0-9@:%._\+~#=]{2,256}\.[a-z]{2,6}([-a-zA-Z0-9@:%_\+.~#?&amp;//=]*)|^ftp://.|^git://.|^tel:.|^mailto:.|\.org[\p{Zs}]?|\.com[\p{Zs}]?|\.co.uk[\p{Zs}]?|\.us[\p{Zs}]?|\.net[\p{Zs}]?|\.edu[\p{Zs}]?|\.gov[\p{Zs}]?|\.io[\p{Zs}]?')) then $x         else (),'; ')"/>
-      <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" test="($text-count gt $count)" role="warning" id="rrid-test">'<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
+      <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" test="($text-count gt $count)" role="warning" id="rrid-test">'<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
     </rule>
   </pattern>
   <pattern id="root-pattern">
diff --git a/test/xspec/schematron.sch b/test/xspec/schematron.sch
index 88d81e09c6..3a5f3e7d55 100644
--- a/test/xspec/schematron.sch
+++ b/test/xspec/schematron.sch
@@ -6995,7 +6995,7 @@
       <let name="link-strip-text" value="string-join(for $x in (*[not(matches(local-name(),'^ext-link$|^contrib-id$|^license_ref$|^institution-id$|^email$|^xref$|^monospace$'))]|text()) return $x,'')"/>
       <let name="url-text" value="string-join(for $x in tokenize($link-strip-text,' ')         return   if (matches($x,'^https?:..(www\.)?[-a-zA-Z0-9@:%._\+~#=]{2,256}\.[a-z]{2,6}([-a-zA-Z0-9@:%_\+.~#?&amp;//=]*)|^ftp://.|^git://.|^tel:.|^mailto:.|\.org[\p{Zs}]?|\.com[\p{Zs}]?|\.co.uk[\p{Zs}]?|\.us[\p{Zs}]?|\.net[\p{Zs}]?|\.edu[\p{Zs}]?|\.gov[\p{Zs}]?|\.io[\p{Zs}]?')) then $x         else (),'; ')"/>
       
-      <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" test="($text-count gt $count)" role="warning" id="rrid-test">'<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
+      <report see="https://elifeproduction.slab.com/posts/rri-ds-5k19v560#rrid-test" test="($text-count gt $count)" role="warning" id="rrid-test">'<name/>' element contains what looks like <value-of select="$text-count - $count"/> unlinked RRID(s). These should always be linked using 'https://identifiers.org/RRID:'. Element begins with <value-of select="substring(.,1,15)"/>.</report>
       
       <report see="https://elifeproduction.slab.com/posts/house-style-yi0641ob#h6d61-org-test" test="matches($t,$org-regex) and not(descendant::italic[contains(.,e:org-conform($t))]) and not(descendant::element-citation)" role="warning" id="org-test">
         <name/> element contains an organism - <value-of select="e:org-conform($t)"/> - but there is no italic element with that correct capitalisation or spacing. Is this correct? <name/> element begins with <value-of select="concat(.,substring(.,1,15))"/>.</report>