let rset_list = (* lista di singoletti:resource_set di un elemento *)
(List.fold_left (fun acc (uri,l) ->
let qq = "select uri, position, depth, sort from hrefSort order by uri asc" in
let rset_list = (* lista di singoletti:resource_set di un elemento *)
(List.fold_left (fun acc (uri,l) ->
let qq = "select uri, position, depth, sort from hrefSort order by uri asc" in