oracle8.1.6 begin dotlrn_privacy.set_user_non_guest(:user_id); end; begin dotlrn_privacy.set_user_guest(:user_id); end; begin dotlrn_privacy.${db_proc}(:object_id,:rel_type); end; select case when count(1) = 0 then 0 else 1 end from acs_permissions p, rel_segments r where p.grantee_id = r.segment_id and p.privilege = 'read_private_data' and r.group_id = acs.magic_object_id('registered_users') and r.rel_type = 'dotlrn_guest_rel' and p.object_id = :object_id