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.5 -r1.6
--- openacs-4/packages/lars-blogger/www/one-entry.tcl	14 Sep 2002 22:05:25 -0000	1.5
+++ openacs-4/packages/lars-blogger/www/one-entry.tcl	28 Aug 2003 09:41:55 -0000	1.6
@@ -13,8 +13,6 @@
 
 set package_id [ad_conn package_id]
 
-set admin_p [ad_permission_p $package_id admin]
-
 if { [empty_string_p $return_url] } {
     set return_url "[ad_conn url]?[ad_conn query]"
 }
@@ -25,8 +23,13 @@
 
 set page_title $blog(title)
 
-set context_bar [ad_context_bar $page_title]
+if {![exists_and_not_null screen_name]} {
+    set screen_name ""
+    set context_bar [ad_context_bar $page_title]
+} else {
+    set context_bar [ad_context_bar $screen_name]
+}
 
 set header_background_color [lars_blog_header_background_color]
 
-ad_return_template
\ No newline at end of file
+ad_return_template