method get_role_id sid = let i = ref 0 in Hashtbl.iter (fun (s,role_id) sid2 -> if sid = sid2 then i := role_id) string_to_id; !i