oracle8.1.6 begin acs_permission.grant_permission ( object_id => :class_id, grantee_id => :the_public_id, privilege => 'read' ); end; begin acs_permission.revoke_permission ( object_id => :class_id, grantee_id => :the_public_id, privilege => 'read' ); end; select acs_permission.permission_p(:class_id, oppm.party_id, :privilege) as permission_p, oppm.party_id from acs_object_party_privilege_map oppm where oppm.object_id = :package_id and oppm.privilege = 'mailing_list_admin' and oppm.party_id <> :user_id and acs_permission.permission_p(:package_id, oppm.party_id, 'admin') = 'f' begin acs_permission.grant_permission ( object_id => :class_id, grantee_id => :users_id, privilege => :privilege ); end; begin acs_permission.revoke_permission ( object_id => :class_id, grantee_id => :users_id, privilege => :privilege ); end;