Index: openacs-4/packages/new-portal/www/template-place-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/template-place-element.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/new-portal/www/template-place-element.tcl	26 Nov 2001 20:26:46 -0000	1.3
+++ openacs-4/packages/new-portal/www/template-place-element.tcl	21 Jan 2002 06:29:55 -0000	1.4
@@ -11,7 +11,7 @@
     return_url:onevalue
 }
 
-set layout_id [portal::get_layout_id $portal_id]
+set layout_id [portal::get_layout_id -page_num 0 $portal_id]
 
 db_1row select_num_regions "
 select count(*) as num_regions
@@ -22,10 +22,11 @@
 set region_count 0
 template::multirow create element_multi element_id name sort_key state hideable_p shadeable_p description
 db_foreach select_elements_by_region {
-    select pem.element_id, pem.name, sort_key, state, pd.description
-     from portal_element_map pem, portal_datasources pd 
+    select pem.element_id, pem.name, pem.sort_key, state, pd.description
+     from portal_element_map pem, portal_datasources pd, portal_pages pp
      where
-       portal_id = :portal_id 
+       pp.portal_id = :portal_id 
+       and pem.page_id = pp.page_id
        and pem.datasource_id  = pd.datasource_id
        and region = :region 
        and state != 'hidden'
@@ -45,9 +46,10 @@
     
     db_1row select_all_noimm_count \
 	    "select count(*) as all_count
-    from portal_element_map
+    from portal_element_map pem, portal_pages pp
     where
-    portal_id = :portal_id
+    pp.portal_id = :portal_id
+    and pp.page_id = pem.page_id
     and state != 'hidden'
     and region not like 'i%'"
     
@@ -60,9 +62,10 @@
     
     db_foreach hidden_elements {
 	select element_id, name
-	from portal_element_map pem
+	from portal_element_map pem, portal_pages pp
 	where
-	pem.portal_id = :portal_id 
+	pp.portal_id = :portal_id 
+        and pp.page_id = pem.page_id 
 	and pem.state = 'hidden'
 	order by name
     } {