Index: openacs-4/packages/lars-blogger/www/admin/drafts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/drafts.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/lars-blogger/www/admin/drafts.tcl	16 Sep 2002 13:01:34 -0000	1.4
+++ openacs-4/packages/lars-blogger/www/admin/drafts.tcl	13 Mar 2003 17:06:07 -0000	1.4.2.1
@@ -9,22 +9,25 @@
 
 set page_title "Draft Entries"
 
-set context_bar [ad_context_bar $page_title]
+set context [list $page_title]
 
-db_multirow -extend { edit_url publish_url delete_url preview_url } draft_entries draft_entries { *SQL* } {
+db_multirow -extend { edit_url publish_url delete_url preview_url } draft_entries draft_entries {} {
     set return_url "[ad_conn url][ad_decode [ad_conn query] "" "" "?[ad_conn query]"]"
     set edit_url "[ad_conn package_url]admin/entry-edit?[export_vars { entry_id return_url }]"
     set delete_url "[ad_conn package_url]admin/entry-delete?[export_vars { entry_id return_url }]"
     set preview_url "[ad_conn package_url]one-entry?[export_vars { entry_id return_url }]"
     set publish_url "[ad_conn package_url]admin/entry-publish?[export_vars { entry_id return_url }]"
-    set content [ns_adp_parse -string $content]
 }
 
+for { set i 1 } { $i <= ${draft_entries:rowcount} } { incr i } {
+    lars_blogger::entry::htmlify -array "draft_entries:$i"
+}
+
+
 set entry_add_url "entry-edit"
 
 set arrow_url "[ad_conn package_url]graphics/arrow-box.gif"
 
 set header_background_color [lars_blog_header_background_color]
 
-ad_return_template