bmtn-compose-tei.xqy

xquery version "3.1";

declare namespace tei = "http://www.tei-c.org/ns/1.0";

let $doc := "/bluemountain-transcriptions/periodicals/bmtnaab/issues/1920/02_01/bmtnaab_1920-02_01.tei.xml"

for $id in fn:doc($doc)/tei:TEI//*/fn:data(@xml:id)
let $metadata := fn:doc($doc)/tei:TEI//*[@xml:id=$id]
let $article := fn:doc($doc)/tei:TEI//*[@corresp=$id]
let $tei :=
  <tei:TEI>
    <tei:teiHeader>
      <tei:fileDesc>
        <tei:titleStmt>
          <tei:title>
          </tei:title>
        </tei:titleStmt>
        <tei:publicationStmt>
          <tei:p></tei:p>
        </tei:publicationStmt>
        <tei:sourceDesc>
          <tei:biblStruct>
            {$metadata}
          </tei:biblStruct>
        </tei:sourceDesc>
      </tei:fileDesc>
    </tei:teiHeader>
    <tei:text>
      <tei:body>
        {$article}
      </tei:body>
    </tei:text>
  </tei:TEI>
  
return $tei