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