Index: openacs-4/packages/acs-kernel/acs-kernel.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/acs-kernel.info,v
diff -u -r1.136.2.18 -r1.136.2.19
--- openacs-4/packages/acs-kernel/acs-kernel.info	6 Jul 2016 13:47:02 -0000	1.136.2.18
+++ openacs-4/packages/acs-kernel/acs-kernel.info	7 Jul 2016 06:12:46 -0000	1.136.2.19
@@ -9,15 +9,15 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
     
-    <version name="5.9.1d12" url="http://openacs.org/repository/download/apm/acs-kernel-5.9.1d12.apm">
+    <version name="5.9.1d13" url="http://openacs.org/repository/download/apm/acs-kernel-5.9.1d13.apm">
         <owner url="mailto:oct@openacs.org">OpenACS Core Team</owner>
         <summary>Routines and data models providing the foundation for OpenACS-based Web services.</summary>
         <release-date>2016-07-05</release-date>
         <vendor url="http://openacs.org">OpenACS</vendor>
         <description format="text/html">The OpenACS kernel contains the core datamodel create and drop scripts for such things as objects, groups, partiies and the supporting PL/SQL and PL/pgSQL procedures.</description>
         <maturity>3</maturity>
 
-        <provides url="acs-kernel" version="5.9.1d12"/>
+        <provides url="acs-kernel" version="5.9.1d13"/>
 
         <callbacks>
         </callbacks>
Index: openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql,v
diff -u -r1.35.2.2 -r1.35.2.3
--- openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql	1 Jul 2016 14:04:39 -0000	1.35.2.2
+++ openacs-4/packages/acs-kernel/sql/postgresql/groups-body-create.sql	7 Jul 2016 06:12:46 -0000	1.35.2.3
@@ -1186,7 +1186,6 @@
 
 
 
--- added
 select define_function_args('acs_group__member_p','party_id,group_id,cascade_membership');
 
 --
@@ -1199,19 +1198,24 @@
 ) RETURNS boolean AS $$
 DECLARE
 BEGIN
-  if p_cascade_membership  then
+  if p_cascade_membership then
+    --
+    -- Direct and indirect memberships
+    --
     return count(*) > 0
       from group_member_map
-      where group_id = p_group_id and
-            member_id = p_party_id;
+      where group_id = p_group_id
+        and member_id = p_party_id;
   else
+    --
+    -- Only direct memberships
+    --
     return count(*) > 0
-      from acs_rels rels, acs_object_party_privilege_map perm
-    where perm.object_id = rels.rel_id
-           and perm.privilege = 'read'
-           and rels.rel_type = 'membership_rel'
-	   and rels.object_id_one = p_group_id
-           and rels.object_id_two = p_party_id;
+      from acs_rels rels
+    where rels.rel_type = 'membership_rel'
+      and rels.object_id_one = p_group_id
+      and rels.object_id_two = p_party_id
+      and acs_permission.permission_p(rels.rel_id, p_party_id, 'read');
   end if;
 END;
 $$ LANGUAGE plpgsql stable;
@@ -1278,19 +1282,10 @@
 
 
 
--- show errors
-
-
 -- create or replace package body admin_rel
--- function new
 
--- old define_function_args('admin_rel__new','rel_id,rel_type;admin_rel,object_id_one,object_id_two,member_state;approved,creation_user,creation_ip')
--- new
 select define_function_args('admin_rel__new','rel_id;null,rel_type;admin_rel,object_id_one,object_id_two,member_state;approved,creation_user;null,creation_ip;null');
 
-
-
-
 --
 -- procedure admin_rel__new/7
 --
@@ -1327,9 +1322,6 @@
 END;
 $$ LANGUAGE plpgsql;
 
--- function new
-
-
 --
 -- procedure admin_rel__new/2
 --
@@ -1354,10 +1346,8 @@
 END;
 $$ LANGUAGE plpgsql;
 
--- procedure delete
 
 
--- added
 select define_function_args('admin_rel__delete','rel_id');
 
 --
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-kernel/sql/postgresql/upgrade/upgrade-5.9.1d12-5.9.1d13.sql'.
Fisheye: No comparison available.  Pass `N' to diff?