syriaca-insert-bibl-attribute

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

let $doc := fn:doc(
  "draft-data-works/251.xml"
)
for $element in $doc//tei:bibl/tei:bibl
where $element/@xml:id
(:let $attribute := $element/@xml:id:)
(:where $element[@xml:id="bibl251-11"]:)
(:let $term := $doc//tei:bibl[@xml:id="bibl251-9"]/text() :)
let $term := $element/text()
let $search-term := fn:substring-after(
  $term, "."
)
let $final-search-term := fn:encode-for-uri(
  fn:normalize-space(
    $search-term
  )
)

let $query := fetch:text(
 ("
http://www.worldcat.org/webservices/catalog/search/opensearch?q="||$final-search-term||"&wskey=[insert-key]"))
let $ref := fn:doc($query)//*:entry[1]/*:id/text()

return if (not(empty ($ref)))then (insert node attribute ref {$ref} into $term)
else ()