XQuery - Query to find and correct problem names in the theocom database

correct-problem-names.xqy

xquery version "1.0-ml";

(: 5/1/13 This query find and corrects problem names in the theocom database :)

declare namespace ia = "http://digital.library.ptsem.edu/ia";


for $doc in xdmp:directory("/ia-xml/h/hi/his/", "infinity")  
let $name := $doc/ia:doc/ia:metadata/ia:name
let $newNameNode := <name xmlns="http://digital.library.ptsem.edu/ia">Goodspeed, Edgar J. (Edgar Johnson), 1871–1962</name>
where fn:contains($name, "Young, Edward J.")
return xdmp:node-replace($name, $newNameNode)