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 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="dotlrn_community::get_role_pretty_name.select_role_pretty_name">
+    <fullquery name="dotlrn_community::get_role_from_rel_type.select_role">
         <querytext>
-            select pretty_name
-            from acs_rel_roles
-            where role = :role
+            select role_two
+            from acs_rel_types
+            where rel_type = :rel_type
         </querytext>
     </fullquery>
 
@@ -113,18 +113,6 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="dotlrn_community::get_role_pretty_name_from_rel_id.select_role_pretty_name">
-        <querytext>
-            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)
-        </querytext>
-    </fullquery>
-
     <fullquery name="dotlrn_community::get_rel_segment_id.select_rel_segment_id">
         <querytext>
             select segment_id