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.13 -r1.14
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	29 Nov 2001 05:10:36 -0000	1.13
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	30 Nov 2001 03:41:17 -0000	1.14
@@ -23,6 +23,12 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_type_node_id.select_node_id">
+<querytext>
+select node_id from site_nodes where object_id= (select package_id from dotlrn_community_types where community_type= :community_type)
+</querytext>
+</fullquery>
+
 <fullquery name="dotlrn_community::get_rel_segment_id.select_rel_segment_id">
 <querytext>
 select segment_id from rel_segments where group_id= :community_id and rel_type= :rel_type