Merge branch 'feature/#121-index-fontanes-works-in-title' into 'develop'

Feature/#121 index fontanes works in title

Closes #121

See merge request !54

modules/fontane/index-processor.xqm

@@ -14,7 +14,6 @@ import module namespace config="http://textgrid.de/ns/SADE/config" at "../config
 import module namespace f-misc="http://fontane-nb.dariah.eu/ns/SADE/misc" at "misc.xqm";
 import module namespace functx="http://www.functx.com";
 
-
 declare namespace foaf="http://xmlns.com/foaf/0.1/";
 declare namespace gndo="http://d-nb.info/standards/elementset/gnd#";
 declare namespace ore="http://www.openarchives.org/ore/terms/";
@@ -1386,7 +1385,18 @@ else
     let $date := $work/tei:date
     let $note := $work/tei:note
     let $bibl := $work/tei:bibl
-    let $creator := $work/tei:linkGrp/tei:link[@corresp="http://purl.org/dc/terms/creator"]
+    let $creator :=
+      ( $work/tei:linkGrp/tei:link[@corresp="http://purl.org/dc/terms/creator"],
+        if($work/ancestor::tei:list[@type = "Fontane"]) then
+            (: at this point we fake a tei:link to deal with the implicit creator
+            relation in case of Theodor Fontane's works. This is necessary to
+            achieve a reference to Fontane's index entry when having a look at
+            one of his works on register.html. :)
+            element tei:link {
+                attribute corresp {"http://purl.org/dc/terms/creator"},
+                attribute target {"#" || $work/@xml:id/string() || " psn:Fontane_Theodor"}
+            }
+        else () )
     let $translationOf := $work/tei:linkGrp/tei:link[@corresp="http://purl.org/ontology/bibo/#translationOf"]
     let $formerCurrentLocation := $work/tei:linkGrp/tei:link[@corresp="http://erlangen-crm.org/current/P53_has_former_or_current_location"]
     let $links := $work/tei:linkGrp/tei:link[@corresp="https://schema.org/mentions"]