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.9 -r1.9.4.1
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql	20 Sep 2002 21:45:10 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql	27 Jul 2004 23:18:56 -0000	1.9.4.1
@@ -29,14 +29,6 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="permission::permission_p_not_cached.select_permission_p">
-        <querytext>
-            select 1
-            from dual
-            where 't' = acs_permission.permission_p(:object_id, :party_id, :privilege)
-        </querytext>
-    </fullquery>
-
     <fullquery name="permission::require_permission.name">      
         <querytext>
             select acs_object.name(:object_id)
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.9 -r1.9.4.1
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql	20 Sep 2002 21:45:10 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql	27 Jul 2004 23:18:56 -0000	1.9.4.1
@@ -22,13 +22,6 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="permission::permission_p_not_cached.select_permission_p">
-        <querytext>
-            select 1
-            where 't' = acs_permission__permission_p(:object_id, :party_id, :privilege)
-        </querytext>
-    </fullquery>
-
     <fullquery name="permission::require_permission.name">      
         <querytext>
             select acs_object__name(:object_id)
Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.xql,v
diff -u -r1.4 -r1.4.4.1
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.xql	22 Jun 2002 17:07:22 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.xql	27 Jul 2004 23:18:56 -0000	1.4.4.1
@@ -34,4 +34,14 @@
         </querytext>
     </fullquery>
  
+    <fullquery name="permission::permission_p_not_cached.select_permission_p">
+        <querytext>
+		select 1 from dual
+		where exists
+	        	( select 1
+                	from acs_object_party_privilege_map ppm
+	  		where ppm.object_id = :object_id and ppm.party_id = :party_id and ppm.privilege = :privilege )
+        </querytext>
+    </fullquery>
+
 </queryset>