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.22 -r1.23
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	2 Apr 2002 22:43:12 -0000	1.22
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	11 Apr 2002 02:40:39 -0000	1.23
@@ -34,9 +34,11 @@
 <fullquery name="portal::render.portal_select">      
   <querytext>
     select p.name, p.portal_id, p.theme_id as theme_id, 
-    pl.layout_id as layout_id, pl.filename as layout_filename
+    pl.layout_id as layout_id, pl.filename as layout_filename, 
+    pp.page_id as page_id
     from portals p, portal_pages pp, portal_layouts pl
-    where :page_id = pp.page_id 
+    where pp.sort_key = :sort_key
+    and pp.portal_id = :portal_id
     and pp.portal_id = p.portal_id
     and pp.layout_id = pl.layout_id
   </querytext>