Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql,v
diff -u -r1.11 -r1.11.4.1
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql 2 Apr 2013 11:05:18 -0000 1.11
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql 5 Jul 2016 16:35:23 -0000 1.11.4.1
@@ -24,8 +24,7 @@
- select acs_object__name(:object_id)
- from dual
+ select acs_object__name(:object_id) from dual
@@ -37,11 +36,12 @@
-
-
- select acs_permission__permission_p(:object_id, :party_id, :privilege)
-
+
+
+ select distinct o.title, p.party_id
+ from acs_permission.parties_with_object_privilege(:object_id, :privilege) p, acs_objects o
+ where p.party_id = o.object_id
+
-
-
+