pubfacets.xqm

module namespace pf = 'http://localhost/pubfacets' ;

(:
	test of collecting publisher facets from @mainagencycode works acceptably 
    however, tests of using the same method for //subject or //persname was unacceptable slow. 
    There are less than 100 unique publishers and the code is found in the same location, 
    while there are 10s of thousands of subjects or persons mentioned and they can be scattered 
    in many places in the document. 

 :)


declare function pf:normalize( $s ) {
  translate( replace( lower-case(string($s)), '^(us-)+', '' ), '-', '' )
};


declare variable  $pf:orgs := doc('ead-inst/ead-inst.xml');
declare variable $pf:orgcodes :=  collection('published')/ead/eadheader/eadid/@mainagencycode ! pf:normalize(.) => distinct-values() ;

declare function pf:countpubfacets( $c ) as item()* {

for $x in  (  
for $ead in $c
let $ORG := pf:normalize($ead/*:ead/*:eadheader/*:eadid/@mainagencycode)
group by $ORG
order by $ORG
let $inst := if ($ORG != "") then ($pf:orgs/list/inst[@prefix=$ORG],$pf:orgs/list/inst[lower-case(@oclc) = $ORG] )
return array{ count($ead), $ORG, $inst/@orgcode/string(), normalize-space( $inst/string()) } ) 
 order by $x(1) descending return $x
};