Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql,v
diff -u -N -r1.17.8.3 -r1.17.8.4
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	13 Dec 2005 15:32:35 -0000	1.17.8.3
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	7 Mar 2006 05:39:34 -0000	1.17.8.4
@@ -73,6 +73,22 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn::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::assign_default_sitetemplate.update_portal_themes">
+        <querytext>
+            update portals
+            set theme_id = :new_theme_id
+            where portal_id in ( select portal_id from dotlrn_users )
+        </querytext>
+    </fullquery>
+
     <fullquery name="dotlrn::set_site_template_id.update_portal_theme">
         <querytext>
             update portals