Index: openacs-4/packages/lars-blogger/www/blog.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lars-blogger/www/blog.tcl	19 Aug 2002 21:52:59 -0000	1.1
+++ openacs-4/packages/lars-blogger/www/blog.tcl	12 Sep 2002 12:24:05 -0000	1.2
@@ -46,17 +46,17 @@
     }
     set row_number [incr count]
 
-    set return_url "${package_url}one-entry?[export_vars -url { entry_id }]"
-    set edit_url "${package_url}admin/entry-edit?[export_vars -url { entry_id return_url }]"
-    set delete_url "${package_url}admin/entry-delete?[export_vars -url { entry_id return_url }]"
-    set publish_url "${package_url}admin/entry-publish?[export_vars -url { entry_id return_url }]"
-    set revoke_url "${package_url}admin/entry-revoke?[export_vars -url { entry_id return_url }]"
-    set entry_archive_url "${package_url}archive/${entry_archive_url}#blog-entry-$entry_id"
+    set return_url "${package_url}one-entry?[export_vars { entry_id }]"
+    set edit_url "${package_url}admin/entry-edit?[export_vars { entry_id return_url }]"
+    set delete_url "${package_url}admin/entry-delete?[export_vars { entry_id return_url }]"
+    set publish_url "${package_url}admin/entry-publish?[export_vars { entry_id return_url }]"
+    set revoke_url "${package_url}admin/entry-revoke?[export_vars { entry_id return_url }]"
+    set entry_archive_url "${package_url}one-entry?[export_vars { entry_id }]"
 
-    set comment_add_url "[general_comments_package_url]comment-add?[export_vars -url { { object_id $entry_id } { object_name {[ad_html_to_text -- $title]} } { return_url "${package_url}flush-cache?[export_vars -url { return_url }]"} }]"
-    set comments_view_url "${package_url}one-entry?[export_vars -url { entry_id }]"
+    set comment_add_url "[general_comments_package_url]comment-add?[export_vars { { object_id $entry_id } { object_name {[ad_html_to_text -- $title]} } { return_url "${package_url}flush-cache?[export_vars { return_url }]"} }]"
+    set comments_view_url "${package_url}one-entry?[export_vars { entry_id }]"
     
-    set google_url "http://www.google.com/search?[export_vars -url { {q $title } }]"
+    set google_url "http://www.google.com/search?[export_vars { {q $title } }]"
 
     set content [ns_adp_parse -string $content]
 }