Index: openacs-4/packages/content-includelet/tcl/content-includelet-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/content-includelet/tcl/content-includelet-callback-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/content-includelet/tcl/content-includelet-callback-procs.tcl 4 Mar 2009 16:24:20 -0000 1.3 +++ openacs-4/packages/content-includelet/tcl/content-includelet-callback-procs.tcl 24 Sep 2011 00:59:54 -0000 1.4 @@ -17,9 +17,13 @@ search engine. } { + set element_id [content_includelet_utilities::get_element_id -object_id $object_id] + set page_id [layout::element::get_column_value -element_id $element_id -column page_id] + set title [layout::page::get_column_value -page_id $page_id -column name] + db_1row datasource { } return [list object_id $object_id \ - title "" \ + title $title \ content $data \ relevant_date $publish_date \ storage_type text \ @@ -36,7 +40,7 @@ } { db_1row node_id {} - db_1row element_id {} + set element_id [content_includelet_utilities::get_element_id -object_id $object_id] set page_id [layout::element::get_column_value -element_id $element_id -column page_id] array set page [layout::page::get -page_id $page_id] set base [site_node::get_element -node_id $node_id -element url]