(:
    Module: Dictionary menu building for the search interface.
            Returns all available dictionaries and terminology collections.
:)
module namespace dictmenu="http://www.risten.no/shared/dictmenu";

declare namespace util="http://exist-db.org/xquery/util";

(: Get ID, coll, and classification ID for all available dictionaries :)
(: Returns a sequence of empty elements with the following structure:
   <termcoll id="" coll="" class="" />
:)
declare function dictmenu:get-termcolls() as element()+
{
    let $count := count(/termmeta)
    return
      <termcolls count="{$count}" >
      {
        for $r in /termmeta
        let $coll := util:collection-name($r)
        return <termcoll id="{$r/id/text()}" class="{$r/class/text()}" coll="{$coll}" />
      }
      </termcolls>
};