On Jul 15, 2016, at 2:40 PM, Christian Grün <christian.gruen@gmail.com> wrote:

declare function csd_bl:get_child_orgs($orgs,$org) {
let $org_id := $org/@entityID


return
  if (functx:all-whitespace($org_id))
  then ()
  else
    let $c_orgs := $orgs[./parent[@entityID = $org_id]]
    let $t0 := trace($org_id, "creating func for ")
    let $t1 := trace(count($c_orgs), " func checks children: ")
    let $c_org_funcs:=
      for $c_org in $c_orgs
      return function() {      ( trace($org_id, "executing child func for
") , $c_org, csd_bl:get_child_orgs($orgs,$c_org))}
    return xquery:fork-join($c_org_funcs)

(:
let $c_orgs :=
  if (functx:all-whitespace($org_id))
  then ()
  else $orgs[./parent[@entityID = $org_id]]
return
  for $c_org in $c_orgs
  let $t0 := trace($org_id, "processing children for ")
  return ($c_org,csd_bl:get_child_orgs($orgs,$c_org))
:)
};