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.2.1 -r1.5.2.2
--- openacs-4/packages/lars-blogger/www/one-entry.tcl	13 Mar 2003 17:05:51 -0000	1.5.2.1
+++ openacs-4/packages/lars-blogger/www/one-entry.tcl	13 Jun 2003 09:15:01 -0000	1.5.2.2
@@ -2,25 +2,33 @@
     entry_id:integer
     {return_url ""}
 } -properties {
-    context
-    blog:onerow
-    header_background_color
-    page_title
+    context_bar
+    title_html
+    content_html
+    draft_p_checked
+    entry_date_html
+    form_export_vars
+    return_url
 }
 
 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]"
 }
 
+set show_poster_p [ad_parameter "ShowPosterP" "" "1"]
+
 lars_blogger::entry::get -entry_id $entry_id -array blog
 
 set page_title $blog(title)
 
-set context [list $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]