Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	8 Nov 2001 23:57:40 -0000	1.16
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Nov 2001 01:11:31 -0000	1.17
@@ -96,6 +96,15 @@
 	# Not sure what to do here yet
     }
 
+    ad_proc -public get_pretty_rel_type {
+	rel_type
+    } {
+	Returns a pretty version of the rel_type
+    } {
+	set pretty_name [db_string select_pretty_name "select pretty_name from acs_object_types where object_type=:rel_type"]
+	return $pretty_name
+    }
+
     ad_proc -public list_admin_users {
 	community_id
     } {