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.6 -r1.7
--- openacs-4/packages/new-portal/www/template-place-element.tcl	22 Jan 2002 20:02:40 -0000	1.6
+++ openacs-4/packages/new-portal/www/template-place-element.tcl	25 Jan 2002 20:04:45 -0000	1.7
@@ -21,9 +21,9 @@
 
 # get the elements for this region.
 set region_count 0
-template::multirow create element_multi element_id name sort_key state hideable_p shadeable_p description
+template::multirow create element_multi element_id name sort_key state hideable_p shadeable_p description page_id
 db_foreach select_elements_by_region {
-    select pem.element_id, pem.name, pem.sort_key, state, pd.description
+    select element_id, pem.pretty_name as name, pem.sort_key, state, pp.page_id, pd.description
      from portal_element_map pem, portal_datasources pd, portal_pages pp
      where
        pp.portal_id = :portal_id 
@@ -41,7 +41,7 @@
 		"select value as hideable_p from portal_element_parameters where key = 'hideable_p' and element_id = :element_id"
 	
 	template::multirow append element_multi \
-		$element_id $name $sort_key $state $hideable_p $shadeable_p $description
+		$element_id $name $sort_key $state $hideable_p $shadeable_p $description $page_id
 	incr region_count
 	
     }