Commit 8781e02a authored by MRodz's avatar MRodz Committed by mrodzis
Browse files

Add TEI header and structure

parent 476544b2
......@@ -40,9 +40,10 @@ declare function tidySimple:main($tei as node()*) {
let $text := $tei//tei:text
let $clear-invalid-hands := tidySimple:sort-out-invalid-hands($text)
let $clear-surplus-hands := tidySimple:sort-out-surplus-elements($clear-invalid-hands)
(: let $text-with-sections := tidySimple:make-structure($clear-surplus-hands):)
(: let $store := xmldb:store("/db/apps/SADE/resources/xml/", "tei-simple-tmp.xml", <div>{$text-with-sections}</div>):)
let $store := xmldb:store("/db/apps/SADE/resources/xml/", "tei-simple-tmp.xml", <div>{$clear-surplus-hands}</div>)
let $text-with-sections := tidySimple:make-structure($clear-surplus-hands)
let $header := $tei/tei:teiHeader
let $store := xmldb:store("/db/apps/SADE/resources/xml/", "tei-simple-tmp.xml", <TEI xmlns="http://www.tei-c.org/ns/1.0">{$header}{$text-with-sections}</TEI>)
(: let $store := xmldb:store("/db/apps/SADE/resources/xml/", "tei-simple-tmp.xml", <div>{$clear-surplus-hands}</div>):)
return "done"
(: let $doc := doc($config:app-root || "/resources/xml/tei-simple-tmp.xml"):)
(: let $tidied-text := tidySimple:tidy($doc//tei:text):)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment