Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql,v diff -u -r1.12 -r1.13 --- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql 27 Oct 2014 16:40:05 -0000 1.12 +++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql 7 Aug 2017 23:47:59 -0000 1.13 @@ -47,13 +47,12 @@ - - - begin - :1 := acs_permission.permission_p(:object_id, :party_id, :privilege); - end; - + + + select distinct o.title, p.party_id + from acs_object_party_privilege_map p, acs_objects o + where p.object_id = :object_id and p.privilege = :privilege and o.object_id = p.party_id + -