Index: openacs-4/packages/lars-blogger/www/admin/entry-preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/entry-preview.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/www/admin/entry-preview.tcl	19 Aug 2002 21:52:59 -0000	1.1
+++ openacs-4/packages/lars-blogger/www/admin/entry-preview.tcl	14 Sep 2002 16:40:35 -0000	1.2
@@ -19,19 +19,7 @@
 
 set context_bar [ad_context_bar $page_title]
 
-db_1row entry { *SQL* }
+db_1row entry { *SQL* } -column_array blog
 
-set title_html [ad_quotehtml $title]
-set content [ns_adp_parse -string $content]
-set content_html [ad_quotehtml $content]
-set entry_date_html [ad_quotehtml $entry_date]
-set draft_p_checked [ad_decode $draft_p "t" "checked" ""]
 
-set edit_url "[ad_conn package_url]admin/entry-edit?[export_vars -url { entry_id return_url }]"
-set delete_url "[ad_conn package_url]admin/entry-delete?[export_vars -url { entry_id return_url }]"
-
-set publish_url "entry-publish?[export_vars -url { entry_id return_url }]"
-set revoke_url "entry-revoke?[export_vars -url { entry_id return_url }]"
-
-
 ad_return_template
\ No newline at end of file