Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -N -r1.60 -r1.60.2.1
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	8 Feb 2019 12:40:08 -0000	1.60
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	22 Feb 2019 12:44:06 -0000	1.60.2.1
@@ -299,6 +299,7 @@
 ad_proc -public group::get_members {
     {-group_id:required}
     {-type "party"}
+    {-rel_type ""}
     {-member_state ""}
 } {
     Get party_ids of all members from cache.
@@ -314,15 +315,16 @@
     @creation-date 2005-07-26
 } {
     acs::group_cache eval -partition_key $group_id \
-        members-$group_id-$type-$member_state {
+        members-$group_id-$type-$rel_type-$member_state {
             group::get_members_not_cached -group_id $group_id \
-                -type $type -member_state $member_state
+                -type $type -rel_type $rel_type -member_state $member_state
         }
 }
 
 ad_proc -private group::get_members_not_cached {
     {-group_id:required}
     {-type:required}
+    {-rel_type ""}
     {-member_state ""}
 } {
     Get party_ids of all members.
@@ -348,6 +350,8 @@
                :type = 'party' or
                (select object_type from acs_objects
                  where object_id = m.member_id) = :type)
+          and (:rel_type is null or
+               rel_type = :rel_type)
     }]
 }