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