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.9 -r1.10
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	22 Jan 2002 01:31:52 -0000	1.9
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	22 Jan 2002 20:02:40 -0000	1.10
@@ -81,12 +81,11 @@
 
 <fullquery name="portal::configure.portal_select">      
   <querytext>
-    select  p.name, pcp.portal_id, pp.layout_id, pl.filename as template
-    from portals p, portal_current_page pcp, portal_layouts pl, portal_pages pp
-    where pcp.page_id = :page_id
-    and pcp.portal_id = :portal_id
-    and p.portal_id = pcp.portal_id
-    and pp.page_id = pcp.page_id
+    select  p.name, p.portal_id,  pl.filename as template, pp.pretty_name as page_name
+    from portals p, portal_layouts pl, portal_pages pp
+    where  pp.portal_id = :portal_id
+    and pp.page_id = :page_id
+    and pp.portal_id = p.portal_id
     and pl.layout_id = pp.layout_id
   </querytext>
 </fullquery> 
@@ -533,5 +532,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> 
 
+
+
 </queryset>