process multiple editors as "dens." #470

Author: peterstadler

catalogues/dictionary_de.xml

@@ -461,6 +461,7 @@
     <entry xml:id="edBy">hg. von</entry>
     <entry xml:id="edByIdemM">dems.</entry>
     <entry xml:id="edByIdemF">ders.</entry>
+    <entry xml:id="edByIdemPl">dens.</entry>
     <entry xml:id="ed">Hg.</entry>
     <entry xml:id="detailsAvailable">Details verfügbar</entry>
     <entry xml:id="emptyResultSet">Zu dieser Filtereinstellung wurden keine Einträge gefunden.</entry>

catalogues/dictionary_en.xml

@@ -431,6 +431,7 @@
     <entry xml:id="edBy">ed. by</entry>
     <entry xml:id="edByIdemM">idem</entry>
     <entry xml:id="edByIdemF">idem</entry>
+    <entry xml:id="edByIdemPl">idem</entry>
     <entry xml:id="ed">Ed.</entry>
     <entry xml:id="detailsAvailable">more details</entry>
     <entry xml:id="emptyResultSet">No entries found for this filter setting.</entry>

modules/bibl.xqm

@@ -387,18 +387,27 @@ declare %private function bibl:edited-by($biblStruct as element(tei:biblStruct),
         exists($biblStruct/tei:monogr/tei:editor/@key) and
         exists($biblStruct/tei:analytic/tei:author/@key) and
         $biblStruct/tei:monogr/tei:editor/@key = $biblStruct/tei:analytic/tei:author/@key
+    let $dens as xs:boolean :=
+        count($biblStruct/tei:monogr/tei:editor) gt 1 and 
+        count($biblStruct/tei:analytic/tei:author) gt 1 and
+        count($biblStruct/tei:analytic/tei:author) eq count($biblStruct/tei:monogr/tei:editor) and 
+        (every $i in ($biblStruct/tei:analytic/tei:author | $biblStruct/tei:monogr/tei:editor) satisfies $i/@key) and 
+        (every $i in $biblStruct/tei:analytic/tei:author/@key satisfies $i = $biblStruct/tei:monogr/tei:editor/@key)
     let $sex := 
         if($ders)
         then crud:doc($biblStruct/tei:monogr/tei:editor/@key)//tei:sex
         else ()
     return
         if(exists($editors)) 
         then 
-            if($sex = 'm') 
-            then (concat(', ', lang:get-language-string('edBy', $lang), ' '), <xhtml:span class="editor">{lang:get-language-string('edByIdemM', $lang)}</xhtml:span>)
-            else 
-                if($sex = 'f') 
-                then (concat(', ', lang:get-language-string('edBy', $lang), ' '), <xhtml:span class="editor">{lang:get-language-string('edByIdemF', $lang)}</xhtml:span>)
-                else (concat(', ', lang:get-language-string('edBy', $lang), ' '), $editors) 
+            if($dens)
+            then (concat(', ', lang:get-language-string('edBy', $lang), ' '), <xhtml:span class="editor">{lang:get-language-string('edByIdemPl', $lang)}</xhtml:span>)
+            else
+                if($sex = 'm') 
+                then (concat(', ', lang:get-language-string('edBy', $lang), ' '), <xhtml:span class="editor">{lang:get-language-string('edByIdemM', $lang)}</xhtml:span>)
+                else 
+                    if($sex = 'f') 
+                    then (concat(', ', lang:get-language-string('edBy', $lang), ' '), <xhtml:span class="editor">{lang:get-language-string('edByIdemF', $lang)}</xhtml:span>)
+                    else (concat(', ', lang:get-language-string('edBy', $lang), ' '), $editors) 
         else ()
 };

testing/xqsuite/biblio-tests.xqm

@@ -122,3 +122,15 @@ declare
         return
             bibl:printIncollectionCitation($doc/tei:biblStruct, <xhtml:div/>, 'de')
 };
+
+declare 
+    %test:args('A110779')         %test:assertEquals("<xhtml:span xmlns:xhtml='http://www.w3.org/1999/xhtml' class='editor'>Gerhard Allroggen</xhtml:span>", "<xhtml:span xmlns:xhtml='http://www.w3.org/1999/xhtml' class='editor'>Detlef Altenburg</xhtml:span>")
+    %test:args('A110211')         %test:assertEquals("<xhtml:span xmlns:xhtml='http://www.w3.org/1999/xhtml' class='editor'>Bernhard R. Appel</xhtml:span>", "<xhtml:span xmlns:xhtml='http://www.w3.org/1999/xhtml' class='editor'>Joachim Veit</xhtml:span>")
+    %test:args('A112665')         %test:assertEquals("<xhtml:span xmlns:xhtml='http://www.w3.org/1999/xhtml' class='editor'>ders.</xhtml:span>")
+    %test:args('A111266')         %test:assertEquals("<xhtml:span xmlns:xhtml='http://www.w3.org/1999/xhtml' class='editor'>dems.</xhtml:span>")
+    %test:args('A110035')         %test:assertEquals("<xhtml:span xmlns:xhtml='http://www.w3.org/1999/xhtml' class='editor'>dens.</xhtml:span>")
+    function bt:test-ed-by($a as xs:string) as element()* {
+        let $doc := crud:doc($a)
+        return
+            bibl:printIncollectionCitation($doc/tei:biblStruct, <xhtml:div/>, 'de')//xhtml:span[@class='editor']
+};