Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	18 Apr 2002 03:31:11 -0000	1.26
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	18 Apr 2002 18:01:31 -0000	1.27
@@ -679,6 +679,12 @@
   </querytext>
 </fullquery> 
 
+<fullquery name="portal::get_theme_id_from_name.get_theme_id_from_name_select">      
+    <querytext>
+        select theme_id from portal_element_themes where name = :theme_name
+    </querytext>
+</fullquery> 
+
 <fullquery name="portal::get_theme_id.get_theme_id_select">
   <querytext>
     select theme_id from portals where portal_id = :portal_id