Index: openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl 18 Jul 2003 02:47:33 -0000 1.2 +++ openacs-4/contrib/packages/classified-ads/tcl/ads-procs.tcl 19 Jul 2003 01:48:45 -0000 1.3 @@ -79,21 +79,32 @@ } { Gets the data of a particular ad + @author Deds Castillo + @author Roberto Mello + @param item_id The ID ad to get @param revisionid If present, then get the data for this revision. If not get the data for the latest revision @param array The array where the data is stored } { upvar $array row + # Get extra widgets that we need to display + # + set package_id [ad_conn package_id] + set widget_list [db_list_of_ns_sets select_widgets {}] + if {[empty_string_p $revision_id]} { set revision_id [classified-ads::get_latest_revision -item_id $ad_id] } - db_1row select_data {} + # object_id, object_type, context_id, security_inherit_p, creation_user, + # creation_date, creation_ip, last_modified, modifying_user, modifying_ip, + # tree_sortkey, revision_id, title, item_id, description, publish_date, + # mime_type, nls_language, name, parent_id, ad_id + + db_1row select_data {} -column_array row - # DEDS: FIXME - you know what's wrong here right? - set row(title) $title - set row(description) $description + set row(pretty_publish_date) [util_AnsiDatetoPrettyDate $publish_date] set row(data) [classified-ads::get_content -revision_id $revision_id] return 0