Index: openacs-4/packages/wp-slim/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/index-postgresql.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/wp-slim/www/index-postgresql.xql	22 Sep 2003 18:41:27 -0000	1.4
+++ openacs-4/packages/wp-slim/www/index-postgresql.xql	5 Jul 2016 17:10:20 -0000	1.5
@@ -56,11 +56,7 @@
         and   ao.creation_user = p.person_id
         and   ao.context_id =  :package_id
         $extra_where_clauses
-	and exists (select 1
-        from acs_object_party_privilege_map m
-        where m.object_id = i.item_id
-        and m.party_id = :user_id
-        and m.privilege = 'wp_view_presentation')
+	and acs_permission__permission_p(i.item_id, :user_id, 'wp_view_presentation')
       </querytext>
 </fullquery>
  
Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql	11 Dec 2003 21:40:05 -0000	1.6
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-oracle.xql	5 Jul 2016 17:19:32 -0000	1.7
@@ -51,4 +51,17 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blog_list_user_blogs.blog_list">
+        <querytext>
+
+    select p.package_id 
+     from apm_packages p, acs_object_party_privilege_map perm
+    where p.package_key = 'lars-blogger' 
+      and p.package_id = perm.object_id
+      and perm.privilege = 'create'
+      and perm.party_id = :user_id
+
+        </querytext>
+    </fullquery>
+
 </queryset>
Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-postgresql.xql,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-postgresql.xql	11 Dec 2003 21:40:05 -0000	1.7
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs-postgresql.xql	5 Jul 2016 17:19:32 -0000	1.8
@@ -45,4 +45,15 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blog_list_user_blogs.blog_list">
+        <querytext>
+
+    select p.package_id 
+    from apm_packages p
+    where p.package_key = 'lars-blogger'
+    and acs_permission__permission_p(p.package_id, :user_id, 'create')
+    
+        </querytext>
+    </fullquery>
+    
 </queryset>
Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql	15 Jun 2005 18:41:49 -0000	1.10
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.xql	5 Jul 2016 17:19:32 -0000	1.11
@@ -65,19 +65,6 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="lars_blog_list_user_blogs.blog_list">
-        <querytext>
-
-    select p.package_id 
-     from apm_packages p, acs_object_party_privilege_map perm
-    where p.package_key = 'lars-blogger' 
-      and p.package_id = perm.object_id
-      and perm.privilege = 'create'
-      and perm.party_id = :user_id
-
-        </querytext>
-    </fullquery>
-
     <fullquery name="lars_blogger::count.entry_count">
         <querytext>
             select count(*) 
Index: openacs-4/packages/photo-album/tcl/photo-album-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/tcl/photo-album-procs-postgresql.xql,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/photo-album/tcl/photo-album-procs-postgresql.xql	8 Aug 2006 21:27:08 -0000	1.6
+++ openacs-4/packages/photo-album/tcl/photo-album-procs-postgresql.xql	5 Jul 2016 17:13:50 -0000	1.7
@@ -196,13 +196,9 @@
           where ci.content_type = 'pa_album'
           and ci.tree_sortkey between ci2.tree_sortkey and tree_right(ci2.tree_sortkey)
           and ci2.item_id = :root_folder_id) ci1
-where ci1.live_revision = cr.revision_id
-and exists (select 1
-            from acs_object_party_privilege_map m
-            where m.object_id = cr.revision_id
-              and m.party_id = :user_id
-              and m.privilege = 'read')
-       order by cr.title
+    where ci1.live_revision = cr.revision_id
+    and acs_permission__permission_p(cr.revision_id, :user_id, 'read')
+    order by cr.title
    </querytext>
 </fullquery>