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 -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) }] }