ACS3 Data Model

     1: procedure user_group_add (v_group_type IN varchar,
     2:                                             v_pretty_name IN varchar,
     3:                                             v_short_name IN varchar,
     4:                                             v_multi_role_p IN varchar)
     5: IS
     6:   n_groups          integer;
     7:   v_system_user_id  integer;
     8: BEGIN
     9:   -- make sure we don't violate the unique constraint of user_groups.short_name
    10:   select decode(count(1),0,0,1) into n_groups
    11:     from user_groups
    12:    where upper(short_name)=upper(v_short_name);
    13: 
    14:   if n_groups = 0 then
    15:      -- call procedure defined in community-core.sql to get system user
    16:      v_system_user_id := system_user_id;
    17:      -- create the actual group
    18:      insert into user_groups
    19:       (group_id, group_type, short_name, group_name, creation_user, creation_ip_address, approved_p, existence_public_p, new_member_policy, multi_role_p)
    20:       values
    21:       (user_group_sequence.nextval, v_group_type, v_short_name, v_pretty_name, v_system_user_id, '0.0.0.0', 't', 'f', 'closed', v_multi_role_p);
    22:    end if;
    23: end;