Index: openacs-4/packages/lars-blogger/www/entry-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-chunk.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/lars-blogger/www/entry-chunk.tcl	21 Sep 2003 22:17:23 -0000	1.7
+++ openacs-4/packages/lars-blogger/www/entry-chunk.tcl	29 Sep 2003 08:05:42 -0000	1.8
@@ -3,6 +3,7 @@
 # show_comments_p:onevalue,optional
 # retrun_url:onevalue,optional
 # package_id:optional
+# screen_name:onevalue,optional
 
 if { ![exists_and_not_null show_comments_p] } {
     set show_comments_p "f"
@@ -16,6 +17,9 @@
 if { ![exists_and_not_null return_url] } {
     set return_url "[ad_conn url]?[ad_conn query]"
 }
+if { ![exists_and_not_null screen_name] } {
+    set screen_name ""
+}
 
 set package_url [lars_blog_public_package_url -package_id $package_id]
 
@@ -52,6 +56,8 @@
 
 set blog(comments_view_url) "${package_url}one-entry?[export_vars { entry_id }]"
 
+set display_categories [lars_blog_categories_p -package_id [ad_conn package_id]]
+
 if { [string equal $show_comments_p "t"] } {
     set comments_html [general_comments_get_comments -print_content_p 1 $entry_id]
 }