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.8 -r1.9
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	9 Nov 2001 15:24:57 -0000	1.8
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	11 Nov 2001 18:48:01 -0000	1.9
@@ -113,6 +113,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_community_type_package_id.select_package_id">
+<querytext>
+select package_id from dotlrn_community_types where community_type= :community_type
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_package_id.select_package_id">
 <querytext>
 select package_id from dotlrn_communities where community_id= :community_id
@@ -125,6 +131,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_community_type_name.select_community_type_name">
+<querytext>
+
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::add_applet.insert_applet">
 <querytext>
 insert into dotlrn_community_applets