Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/subsite-procs.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.xql	7 Mar 2005 23:48:28 -0000	1.8
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.xql	8 May 2008 01:35:58 -0000	1.9
@@ -83,5 +83,36 @@
         and host = :search_vhost
         </querytext>
     </partialquery>
+
+  <fullquery name="subsite::get_theme_options.get_subsite_themes">
+    <querytext>
+      select name, key
+      from subsite_themes
+    </querytext>
+  </fullquery>
+  
+  <fullquery name="subsite::new_subsite_theme.insert_subsite_theme">
+    <querytext>
+      insert into subsite_themes
+        (key, name, template, css, form_template, list_template, list_filter_template)
+      values
+        (:key, :name, :template, :css, :form_template, :list_template, :list_filter_template)
+    </querytext>
+  </fullquery>
+  
+  <fullquery name="subsite::delete_subsite_theme.delete_subsite_theme">
+    <querytext>
+      delete from subsite_themes
+      where key = :key
+    </querytext>
+  </fullquery>
+
+  <fullquery name="subsite::set_theme.get_theme_paths">
+    <querytext>
+      select *
+      from subsite_themes
+      where key = :theme
+    </querytext>
+  </fullquery>
  
 </queryset>