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.9 -r1.10
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	11 Nov 2001 18:48:01 -0000	1.9
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	13 Nov 2001 16:21:01 -0000	1.10
@@ -107,6 +107,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_community_type_from_community_id.select_community_type">
+<querytext>
+select community_type from dotlrn_communities where community_id=:community_id
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_community_id.select_community">
 <querytext>
 select community_id from dotlrn_communities where package_id= :package_id
@@ -133,7 +139,13 @@
 
 <fullquery name="dotlrn_community::get_community_type_name.select_community_type_name">
 <querytext>
+select pretty_name from dotlrn_community_types where community_type= :community_type
+</querytext>
+</fullquery>
 
+<fullquery name="dotlrn_community::get_community_name.select_community_name">
+<querytext>
+select pretty_name from dotlrn_communities where community_id= :community_id
 </querytext>
 </fullquery>