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.23 -r1.24
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	13 Nov 2001 17:57:30 -0000	1.23
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Nov 2001 16:19:26 -0000	1.24
@@ -379,6 +379,14 @@
     } {
 	return [db_string select_community_name {} -default ""]
     }
+
+    ad_proc -public get_portal_template_id {
+	community_id
+    } {
+	get the id of the portal template for a community
+    } {
+	return [db_string select_portal_template_id {} -default ""]
+    }
     
     ad_proc -public add_applet {
 	community_id
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.10 -r1.11
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	13 Nov 2001 16:21:01 -0000	1.10
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	21 Nov 2001 16:19:13 -0000	1.11
@@ -149,6 +149,13 @@
 </querytext>
 </fullquery>
 
+<fullquery name="dotlrn_community::get_portal_template_id.select_portal_template_id">
+<querytext>
+select portal_template_id from dotlrn_communities where community_id= :community_id
+</querytext>
+</fullquery>
+
+
 <fullquery name="dotlrn_community::add_applet.insert_applet">
 <querytext>
 insert into dotlrn_community_applets