Index: openacs-4/packages/dotlrn/tcl/community-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.xql,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/dotlrn/tcl/community-procs.xql 19 Jan 2002 18:32:00 -0000 1.21
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql 19 Jan 2002 22:54:20 -0000 1.22
@@ -53,6 +53,18 @@
+
+
+ select pretty_name
+ from acs_rel_roles
+ where role = (select acs_rel_types.role_two
+ from acs_rel_types,
+ acs_rels
+ where acs_rel_types.rel_type = acs_rels.rel_type
+ and acs_rels.rel_id = :rel_id)
+
+
+
select segment_id from rel_segments where group_id= :community_id and rel_type= :rel_type