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.1 -r1.2
--- openacs-4/packages/lars-blogger/www/admin/drafts.tcl	19 Aug 2002 21:52:59 -0000	1.1
+++ openacs-4/packages/lars-blogger/www/admin/drafts.tcl	14 Sep 2002 16:40:35 -0000	1.2
@@ -11,11 +11,12 @@
 
 set context_bar [ad_context_bar $page_title]
 
-db_multirow draft_entries draft_entries { *SQL* } {
+db_multirow -extend { edit_url publish_url delete_url preview_url } draft_entries draft_entries { *SQL* } {
     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 -url { entry_id return_url }]"
-    set delete_url "[ad_conn package_url]admin/entry-delete?[export_vars -url { entry_id return_url }]"
-    set preview_url "[ad_conn package_url]admin/entry-preview?[export_vars -url { entry_id return_url }]"
+    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]admin/entry-preview?[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]
 }