oracle8.1.6
begin
:1 := calendar.new(
owner_id => :owner_id,
private_p => :private_p,
calendar_name => :calendar_name,
package_id => :package_id,
creation_user => :creation_user,
creation_ip => :creation_ip
);
end;
select acs.magic_object_id('the_public')
as party_id
from dual
begin
acs_permission.grant_permission (
object_id => :calendar_id,
grantee_id => :party_id,
privilege => :cal_privilege
);
end;
begin
acs_permission.revoke_permission (
object_id => :calendar_id,
grantee_id => :party_id,
privilege => :cal_privilege
);
end;
select acs_object.name(:private_id)
from dual
select calendar.name(:calendar_id)
from dual
select acs_permission.permission_p(
:calendar_id,
acs.magic_object_id('the_public'),
'calendar_read'
)
from dual