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.60 -r1.61
--- openacs-4/packages/dotlrn/tcl/community-procs.xql 20 May 2002 21:39:38 -0000 1.60
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql 21 May 2002 00:53:58 -0000 1.61
@@ -95,11 +95,11 @@
-
+
- select pretty_name
- from acs_rel_roles
- where role = :role
+ select role_two
+ from acs_rel_types
+ where rel_type = :rel_type
@@ -113,18 +113,6 @@
-
-
- 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