XQuery - Query METS documents to normalize book title list

normalize-title-list.xq

xquery version "1.0-ml";

(: 7/13/11 Working on browse book title list for Digital Library of AK :)

declare namespace METS = "http://www.loc.gov/METS/";
declare namespace dc = "http://purl.org/dc/elements/1.1/";
declare namespace html = "http://www.w3.org/1999/xhtml";

let $collection := fn:collection()
let $first-section := $collection/METS:mets/METS:dmdSec[1]
let $books := $first-section/METS:mdWrap/METS:xmlData[dc:type = "Book"]
for $title in $books/dc:title
(: order by fn:normalize-space(fn:replace($title,'(\(|\[|\"|The |An? |(\d. ?)|V?(I*)( |\.))*','')) :)
order by $title ascending
return fn:data($title)