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.23 -r1.24
--- openacs-4/packages/lars-blogger/www/entry-chunk.tcl	11 Mar 2007 17:20:49 -0000	1.23
+++ openacs-4/packages/lars-blogger/www/entry-chunk.tcl	30 Oct 2013 17:37:09 -0000	1.24
@@ -17,10 +17,10 @@
 # the template we are included from.
 template::multirow -local -ulevel 1 upvar $mrname sw_category_multirow
 
-if { ![exists_and_not_null perma_p] } {
+if { ![info exists perma_p] || $perma_p eq "" } {
     set perma_p 0
 }
-if { ![exists_and_not_null show_comments_p] } {
+if { (![info exists show_comments_p] || $show_comments_p eq "") } {
     set show_comments_p $perma_p
 }
 
@@ -30,14 +30,14 @@
     set package_id [ad_conn package_id]
 }
 
-if { ![exists_and_not_null return_url] } {
+if { ![info exists return_url] || $return_url eq "" } {
     set return_url [ad_return_url]
 }
-if { ![exists_and_not_null screen_name] } {
+if { ![info exists screen_name] || $screen_name eq "" } {
     set screen_name ""
 }
 
-if { ![exists_and_not_null max_content_length] } {
+if { ![info exists max_content_length] || $max_content_length eq "" } {
     set max_content_length 0
 }        
 
@@ -47,7 +47,7 @@
 
 set general_comments_package_url [general_comments_package_url]
 
-set show_poster_p [ad_parameter "ShowPosterP" "" "1"]
+set show_poster_p [parameter::get -parameter "ShowPosterP" -default "1"]
 
 set entry_id $blog(entry_id)
 set admin_p [permission::permission_p -object_id $entry_id -party_id $user_id -privilege admin]