CSV to ead.XML with XQuery

csv-to-ead-xml.xquery

for $record in db:open("transform")
let $collection := $record//record[level="collection"]
for $child in $record//record[parent=$collection/id]
for $gchild in $record//record[parent=$child/id]


return 

<ead>
  <eadheader >...</eadheader>
  <archdesc level="collection" id="{ $collection/id }">
    <did>...</did>
    <dsc>
      <c level="{ $child/level }" id="{ $child/id }">
        <c level="{ $gchild/level }" id="{ $gchild/id }">
          <did>...</did>
          { for $ggchild allowing empty in $record//record[parent=$gchild/id]
            return
            
            if ($ggchild/id != '') then 
            <c level="{ $ggchild/level }" id="{ $ggchild/id }">
            <did>...</did>
            { for $gggchild allowing empty in $record//record[parent=$ggchild/id]
              return
              
              if ($gggchild/id != '') then 
              <c level="{ $gggchild/level }" id="{ $gggchild/id }">...</c> 
              else ()
            }
          </c>
            else ()
          }
        </c>
      </c>
    </dsc>
  </archdesc>
</ead>

input.csv

output.xml

<ead>
  <eadheader>...</eadheader>
  <archdesc level="collection" id="4901">
    <did>...</did>
    <dsc>
      <c level="fonds" id="4901-1">
        <c level="class" id="4901-2">
          <did>...</did>
          <c level="file" id="4901-3">
            <did>...</did>
          </c>
          <c level="file" id="4901-4">
            <did>...</did>
            <c level="item" id="4901-5">...</c>
            <c level="item" id="4901-6">...</c>
            <c level="item" id="4901-7">...</c>
          </c>
          <c level="item" id="4901-8">
            <did>...</did>
          </c>
        </c>
      </c>
    </dsc>
  </archdesc>
</ead>