Index: openacs-4/contrib/packages/portal/tcl/theme-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/theme-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/portal/tcl/theme-procs.xql	27 Feb 2004 01:13:15 -0000	1.4
+++ openacs-4/contrib/packages/portal/tcl/theme-procs.xql	14 Mar 2004 01:16:32 -0000	1.5
@@ -10,4 +10,12 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::theme::get_id.select_theme_id">
+        <querytext>
+            select theme_id
+            from portal_themes
+            where name = :name
+        </querytext>
+    </fullquery>
+
 </queryset>