Index: openacs-4/packages/acs-subsite/acs-subsite.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/acs-subsite.info,v diff -u -r1.74.2.5 -r1.74.2.6 --- openacs-4/packages/acs-subsite/acs-subsite.info 15 Sep 2005 08:04:33 -0000 1.74.2.5 +++ openacs-4/packages/acs-subsite/acs-subsite.info 16 Sep 2005 14:20:24 -0000 1.74.2.6 @@ -7,7 +7,7 @@ t f - + OpenACS Subsite 2004-04-29 @@ -16,7 +16,7 @@ GPL 3 - + 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.25.2.7 -r1.25.2.8 --- openacs-4/packages/acs-subsite/tcl/group-procs.tcl 15 Sep 2005 08:04:33 -0000 1.25.2.7 +++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl 16 Sep 2005 14:20:24 -0000 1.25.2.8 @@ -290,8 +290,7 @@ } { switch $type { party { set member_list [db_list group_members_party {}] } - person { set member_list [db_list group_members_person {}] } - user { set member_list [db_list group_members_user {}] } + default { set member_list [db_list group_members {}] } } return $member_list Index: openacs-4/packages/acs-subsite/tcl/group-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/group-procs.xql,v diff -u -r1.6.2.3 -r1.6.2.4 --- openacs-4/packages/acs-subsite/tcl/group-procs.xql 15 Sep 2005 08:04:33 -0000 1.6.2.3 +++ openacs-4/packages/acs-subsite/tcl/group-procs.xql 16 Sep 2005 14:20:24 -0000 1.6.2.4 @@ -41,27 +41,18 @@ - + select m.member_id - from group_member_map m, persons p + from group_member_map m, acs_objects o where m.group_id = :group_id - and m.member_id = p.person_id + and m.member_id = o.object_id + and o.object_type = :type - - - - select m.member_id - from group_member_map m, users u - where m.group_id = :group_id - and m.member_id = u.user_id - - -