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.2 -r1.87.2.3
--- openacs-4/packages/dotlrn/tcl/community-procs.xql	13 Dec 2005 15:32:35 -0000	1.87.2.2
+++ openacs-4/packages/dotlrn/tcl/community-procs.xql	7 Mar 2006 05:39:34 -0000	1.87.2.3
@@ -625,6 +625,15 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_community::assign_default_sitetemplate.select_portal_theme">
+      <querytext>
+        select portal_theme_id
+        from dotlrn_site_templates
+        where site_template_id = :site_template_id
+        </querytext>
+    </fullquery>
+
+
    <fullquery name="dotlrn_community::set_site_template_id.update_portal_theme">
       <querytext>
         update portals
@@ -633,6 +642,23 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_community::assign_default_sitetemplate.update_portal_themes">
+      <querytext>
+        update portals
+        set theme_id = :new_theme_id
+        where portal_id in (select portal_id from dotlrn_communities_all )
+        </querytext>
+    </fullquery>
+
+    <fullquery name="dotlrn_community::assign_default_sitetemplate.update_portal_admin_themes">
+      <querytext>
+        update portals
+        set theme_id = :new_theme_id
+        where portal_id in (select admin_portal_id from dotlrn_communities_all )
+        </querytext>
+    </fullquery>
+
+
     <fullquery name="dotlrn_community::get_site_template_id_not_cached.select_site_template_id">
         <querytext>
             select site_template_id