Index: openacs-4/packages/lars-blogger/www/one-entry.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/one-entry.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/lars-blogger/www/one-entry.tcl	20 Feb 2004 05:43:02 -0000	1.14
+++ openacs-4/packages/lars-blogger/www/one-entry.tcl	17 May 2004 13:02:17 -0000	1.15
@@ -46,7 +46,9 @@
 if {![exists_and_not_null screen_name]} {
     set screen_name ""
     set context [list $page_title]
+    set blog(permalink_url) "${package_url}one-entry?[export_vars { entry_id }]"
 } else {
+    set blog(permalink_url) "${package_url}user/$screen_name/one-entry?[export_vars { entry_id }]"
     set context [list $screen_name]
 }