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 calendar_name,
calendar_id,
acs_permission.permission_p(calendar_id, :user_id, 'admin') as calendar_admin_p
from calendars
where (private_p = 'f' and package_id = :package_id $permissions_clause) or
(private_p = 't' and owner_id = :user_id)
order by private_p asc, upper(calendar_name)
and acs_permission.permission_p(calendar_id, :user_id, :privilege) = 't'
begin
calendar.del(:calendar_id);
end;