XQuery - Query headers in EAD documents and create a new text nodes with the colons removed using MarkLogic imperative function

ead-modify-headers.xqy

xquery version "1.0-ml";

(: 8/27/13 Query all headers in EAD documents and create a new text nodes with the colons removed using MarkLogic imperative function :)

declare namespace ead = "urn:isbn:1-931666-22-9"; 

let $docs := xdmp:directory("/EAD/")
let $headers := $docs/ead:ead//ead:head 
for $header in $headers
where fn:ends-with($header, ":") 
order by $header
return xdmp:node-replace($header/text(), text{ fn:replace($header, ":$", "") })