From 783d9c9f3e8c25493d273a664666fc734cdcb4d5 Mon Sep 17 00:00:00 2001
From: Martin de la Iglesia <iglesia@hab.de>
Date: Wed, 3 Nov 2021 13:40:46 +0000
Subject: [PATCH] Bibliographie-Split

---
 werkregister.odd | 85 +++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 80 insertions(+), 5 deletions(-)

diff --git a/werkregister.odd b/werkregister.odd
index c2b89ca..7d1ba43 100644
--- a/werkregister.odd
+++ b/werkregister.odd
@@ -229,10 +229,10 @@
                         <rng:text/>
                     </content>
                     <constraintSpec scheme="schematron" ident="docavailable1">
-                        <constraint><sch:rule context="tei:idno[@type='URI'][contains(.,'#')]"><sch:assert test="unparsed-text-available(substring-before(.,'#'))">ungültiger Hyperlink</sch:assert></sch:rule></constraint>
+                        <constraint><sch:rule context="tei:idno[@type='URI'][contains(.,'#')]"><sch:assert role="warning" test="unparsed-text-available(substring-before(.,'#'))">ungültiger Hyperlink</sch:assert></sch:rule></constraint>
                     </constraintSpec>
                     <constraintSpec scheme="schematron" ident="docavailable2">
-                        <constraint><sch:rule context="tei:idno[@type='URI'][not(contains(.,'#'))]"><sch:assert test="unparsed-text-available(.)">ungültiger Hyperlink</sch:assert></sch:rule></constraint>
+                        <constraint><sch:rule context="tei:idno[@type='URI'][not(contains(.,'#'))]"><sch:assert role="warning" test="unparsed-text-available(.)">ungültiger Hyperlink</sch:assert></sch:rule></constraint>
                     </constraintSpec>
                     <constraintSpec scheme="schematron" ident="regex">
                         <constraint><sch:pattern> <sch:rule context="tei:idno[@type='URI']"><sch:assert test="matches(.,'^\S[\s\S]+\S$')">darf nicht mit Leerzeichen beginnen oder enden</sch:assert></sch:rule></sch:pattern></constraint>
@@ -727,7 +727,32 @@
                                 <rng:data type="anyURI"/>
                             </datatype>
                             <constraintSpec scheme="schematron" ident="ptr-regex">
-                                <constraint> <sch:pattern> <sch:rule context="tei:ptr"> <sch:let name="variable" value="substring(./@target,5)"/> <sch:assert test="(document('../Register/bibliography.xml')//*[@xml:id eq $variable])">ID "<sch:value-of select="$variable"/>" ist in der Bibliographie nicht vorhanden.</sch:assert> </sch:rule> </sch:pattern> </constraint>
+                                <constraint> <sch:pattern> <sch:rule context="tei:ptr"> <sch:let name="variable" value="substring(./@target,5)"/> <sch:assert test="$variable ne '' and
+                                    (
+                                    document('../Register/bibliography/bibliography-a.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-b.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-c.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-d.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-e.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-f.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-g.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-h.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-i.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-j.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-k.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-l.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-m.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-n.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-o.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-p.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-qr.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-s.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-t.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-u.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-v.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-w.xml')//*[@xml:id eq $variable] or
+                                    document('../Register/bibliography/bibliography-xyz.xml')//*[@xml:id eq $variable]
+                                    )">ID "<sch:value-of select="$variable"/>" ist in der Bibliographie nicht vorhanden.</sch:assert> </sch:rule> </sch:pattern> </constraint>
                             </constraintSpec>
                         </attDef>
                     </attList>
@@ -757,7 +782,32 @@
                                 <rng:data type="anyURI"/>
                             </datatype>
                             <constraintSpec scheme="schematron" ident="ref-regex">
-                                <constraint> <sch:pattern> <sch:rule context="tei:bibl/tei:ref"> <sch:let name="variable1" value="substring(./@target,5)"/> <sch:let name="variable2" value="substring(./@target,1,3)"/> <sch:assert test="(document('../Register/bibliography.xml')//*[@xml:id eq $variable1] and $variable2 eq 'lit')">ID "<sch:value-of select="$variable1"/>" ist in der Literaturverzeichnisdatei nicht vorhanden.</sch:assert> </sch:rule> </sch:pattern> </constraint>
+                                <constraint> <sch:pattern> <sch:rule context="tei:bibl/tei:ref"> <sch:let name="variable1" value="substring(./@target,5)"/> <sch:let name="variable2" value="substring(./@target,1,3)"/> <sch:assert test="($variable1 ne '' and
+                                    (
+                                    document('../Register/bibliography/bibliography-a.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-b.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-c.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-d.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-e.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-f.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-g.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-h.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-i.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-j.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-k.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-l.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-m.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-n.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-o.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-p.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-qr.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-s.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-t.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-u.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-v.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-w.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-xyz.xml')//*[@xml:id eq $variable1]
+                                    ) and $variable2 eq 'lit')">ID "<sch:value-of select="$variable1"/>" ist in keiner Literaturverzeichnisdatei vorhanden.</sch:assert> </sch:rule> </sch:pattern> </constraint>
                             </constraintSpec>
                         </attDef>
                     </attList>
@@ -898,7 +948,32 @@
                                     
                                     and $variable2 eq 'psn')
                                     
-                                    or (document('../Register/bibliography.xml')//*[@xml:id eq $variable1] and $variable2 eq 'lit')">ID ist in der angegebenen Registerdatei nicht vorhanden.</sch:assert> </sch:rule> </sch:pattern> </constraint>
+                                    or ($variable1 ne '' and
+                                    (
+                                    document('../Register/bibliography/bibliography-a.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-b.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-c.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-d.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-e.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-f.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-g.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-h.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-i.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-j.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-k.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-l.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-m.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-n.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-o.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-p.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-qr.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-s.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-t.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-u.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-v.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-w.xml')//*[@xml:id eq $variable1] or
+                                    document('../Register/bibliography/bibliography-xyz.xml')//*[@xml:id eq $variable1]
+                                    ) and $variable2 eq 'lit')">ID ist in der angegebenen Registerdatei nicht vorhanden.</sch:assert> </sch:rule> </sch:pattern> </constraint>
                             </constraintSpec>
                         </attDef>
                         <attDef ident="type" usage="req">
-- 
GitLab