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 -N -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 @@ 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