Index: openacs-4/packages/imsld/tcl/imsld-roles-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-roles-procs.xql,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/imsld/tcl/imsld-roles-procs.xql	18 Apr 2008 14:42:32 -0000	1.6
+++ openacs-4/packages/imsld/tcl/imsld-roles-procs.xql	17 Jun 2009 08:00:01 -0000	1.7
@@ -139,7 +139,7 @@
 		</querytext>
 	</fullquery>
 
-    <fullquery name="imsld::roles::get_role_instances.get_community_related_groups">
+    <fullquery name="imsld::roles::get_role_instances.get_community_role_related_groups">
 		<querytext>
         select ar.object_id_two
         from acs_rels ar,
@@ -156,6 +156,22 @@
 		</querytext>
 	</fullquery>
 
+    <fullquery name="imsld::roles::get_role_instances.get_community_related_groups">
+		<querytext>
+        select ar.object_id_two
+        from acs_rels ar,
+             acs_rels ar2,
+             imsld_rolesi iri,
+             imsld_run_users_group_ext iruge
+        where ar.object_id_one=iri.item_id
+              and ar.rel_type='imsld_role_group_rel'
+              and ar.object_id_two=ar2.object_id_one
+              and ar2.rel_type='imsld_roleinstance_run_rel'
+              and ar2.object_id_two=iruge.group_id
+              and iruge.run_id=:run_id
+		</querytext>
+	</fullquery>
+
 	<fullquery name="imsld::roles::get_role_instances.get_related_groups">
 		<querytext>
         select ar.object_id_two