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.87.2.1 -r1.87.2.2
--- openacs-4/packages/dotlrn/tcl/community-procs.xql 31 May 2005 23:13:05 -0000 1.87.2.1
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql 13 Dec 2005 15:32:35 -0000 1.87.2.2
@@ -609,4 +609,45 @@
+
+
+ update dotlrn_communities_all
+ set site_template_id = :site_template_id
+ where community_id = :community_id
+
+
+
+
+
+ select portal_theme_id
+ from dotlrn_site_templates
+ where site_template_id = :site_template_id
+
+
+
+
+
+ update portals
+ set theme_id = :new_theme_id
+ where portal_id = :portal_id
+
+
+
+
+
+ select site_template_id
+ from dotlrn_communities_all
+ where community_id = :community_id
+
+
+
+
+
+ select dst.site_master
+ from dotlrn_site_templates dst, dotlrn_communities_all dca
+ where dca.community_id = :community_id
+ and dca.site_template_id = dst.site_template_id
+
+
+