[Home] [Help]
1679: );
1680: END LOOP;
1681:
1682: -- Copy all rows From inherited from IBC_object_grant_groups
1683: FOR r_data IN (SELECT ibc_grants_s1.nextval grant_id,
1684: object_id, permission_code, grantee_user_id,
1685: grantee_resource_id, grantee_resource_type,
1686: l_grant_group_id grant_group_id,
1687: action, grant_level + 1 grant_level, cascade_flag
2106: END IF;
2107:
2108: -- Copy all rows from container object
2109: -- It doesn't check for cascading at this point
2110: FOR r_data IN (SELECT ibc_grants_s1.nextval grant_id,
2111: object_id, permission_code, grantee_user_id,
2112: grantee_resource_id, grantee_resource_type,
2113: l_grant_group_id grant_group_id,
2114: action, grant_level + 1 grant_level, cascade_flag
2203:
2204: END IF;
2205: IF l_inherited_flag = 'Y' THEN
2206: -- Copy all rows From inherited from IBC_object_grant_groups
2207: FOR r_data IN (SELECT ibc_grants_s1.nextval grant_id,
2208: object_id, permission_code, grantee_user_id,
2209: grantee_resource_id, grantee_resource_type,
2210: l_grant_group_id grant_group_id,
2211: action, grant_level + 1 grant_level, cascade_flag
2276: IF r_object_grant_group.inherited_flag = 'N' AND
2277: (r_object_grant_group.grant_level = 0 OR
2278: r_object_grant_group.inheritance_type = 'FULL')
2279: THEN
2280: SELECT ibc_grants_s1.nextval
2281: INTO l_grant_id
2282: FROM DUAL;
2283: IBC_GRANTS_PKG.insert_row(
2284: PX_ROWID => l_rowid
2834: ,p_object_version_number => 1
2835: );
2836:
2837: -- Copy all rows From inherited from IBC_object_grant_groups
2838: FOR r_data IN (SELECT ibc_grants_s1.nextval grant_id,
2839: object_id, permission_code, grantee_user_id,
2840: grantee_resource_id, grantee_resource_type,
2841: l_new_grant_group_id grant_group_id,
2842: action, grant_level + 1 grant_level, cascade_flag