Index: openacs-4/packages/lars-blogger/www/entry-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-edit.tcl,v diff -u -r1.14 -r1.15 --- openacs-4/packages/lars-blogger/www/entry-edit.tcl 18 Dec 2003 09:56:53 -0000 1.14 +++ openacs-4/packages/lars-blogger/www/entry-edit.tcl 8 Jan 2004 09:08:07 -0000 1.15 @@ -82,19 +82,18 @@ permission::require_write_permission -object_id $entry_id - db_1row entry {} + lars_blogger::entry::get \ + -entry_id $entry_id \ + -array row - element set_value entry title $title - element set_value entry title_url $title_url + element set_value entry title $row(title) + element set_value entry title_url $row(title_url) - set content_data [template::util::richtext::acquire contents $content] - set content_data [template::util::richtext::set_property format $content_data $content_format] + element set_value entry category_id $row(category_id) + element set_value entry content [template::util::richtext::create $row(content) $row(content_format)] - element set_value entry category_id $category_id - element set_value entry content $content_data - - element set_value entry entry_date $entry_date - element set_value entry draft_p $draft_p + element set_value entry entry_date $row(entry_date_ansi) + element set_value entry draft_p $row(draft_p) } element set_properties entry entry_id -value $entry_id @@ -129,7 +128,7 @@ -draft_p "$draft_p" } else { permission::require_write_permission -object_id $entry_id - + lars_blogger::entry::edit \ -entry_id $entry_id \ -title $title \