ACS3 Data Model

     1: function ad_user_has_role_p
     2:   (v_user_id	IN user_group_map.user_id%TYPE,
     3:    v_group_id	IN user_group_map.group_id%TYPE,
     4:    v_role	IN user_group_map.role%TYPE)
     5: return char
     6: IS
     7:   ad_user_has_role_p char(1);
     8: BEGIN
     9:   -- maybe we should check the validity of user_id and group_id;
    10:   -- we're not doing it for now, because it would slow this function
    11:   -- down with 2 extra queries
    12: 
    13:   select decode(count(*), 0, 'f', 't')
    14:   into ad_user_has_role_p
    15:   from user_group_map
    16:   where user_id = v_user_id
    17:   and group_id = v_group_id
    18:   and role = v_role;
    19: 
    20:   return ad_user_has_role_p;
    21: END ad_user_has_role_p;