introduce plain text processing of tei:app

only one child element will be processed of which a `tei:lem` will get precedence
Edirom · Dec 19, 2019 · 71bb1cd · 71bb1cd
1 parent 63e99f2
commit 71bb1cd
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/xquery/str.xqm b/xquery/str.xqm
@@ -148,6 +148,7 @@ declare function str:txtFromTEI($nodes as node()*, $lang as xs:string) as xs:str
         	else $node/child::node() ! str:txtFromTEI(., $lang)
         case element(tei:del) return ()
         case element(tei:subst) return $node/child::element() ! str:txtFromTEI(., $lang)
+        case element(tei:app) return ($node/tei:lem, $node/tei:rdg)[1] ! str:txtFromTEI(., $lang)
         case element(tei:note) return ()
         case element(tei:lb) return 
             if($node[@type='inWord']) then ()