oracle8.1.6
begin
acs_permission.grant_permission (
object_id => :list_id,
grantee_id => :the_public_id,
privilege => 'read'
);
end;
begin
acs_permission.revoke_permission (
object_id => :list_id,
grantee_id => :the_public_id,
privilege => 'read'
);
end;
select acs_permission.permission_p(:list_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 => :list_id,
grantee_id => :users_id,
privilege => :privilege
);
end;
begin
acs_permission.revoke_permission (
object_id => :list_id,
grantee_id => :users_id,
privilege => :privilege
);
end;