Index: openacs-4/packages/lars-blogger/www/entry-headline.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-headline.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lars-blogger/www/entry-headline.tcl	9 Nov 2008 23:29:27 -0000	1.3
+++ openacs-4/packages/lars-blogger/www/entry-headline.tcl	30 Oct 2013 17:37:09 -0000	1.4
@@ -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] } {
     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,11 +47,11 @@
 
 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)
 
-if { [empty_string_p $screen_name] } {
+if { $screen_name eq "" } {
     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 }]"