Index: openacs-4/packages/forums/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.tcl,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/forums/www/message-view.tcl	16 Sep 2008 17:26:15 -0000	1.45
+++ openacs-4/packages/forums/www/message-view.tcl	20 Sep 2008 12:10:28 -0000	1.46
@@ -28,7 +28,7 @@
 forum::get -forum_id $message(forum_id) -array forum
 
 # If disabled!
-if {$forum(enabled_p) != "t"} {
+if {$forum(enabled_p) ne "t"} {
     ad_returnredirect "./"
     ad_script_abort
 }
@@ -56,7 +56,7 @@
 }
 
 # Check if the message is approved
-if {!${permissions(moderate_p)} && ![string equal $message(state) approved]} {
+if {!${permissions(moderate_p)} && $message(state) ne "approved" } {
     ad_returnredirect "forum-view?forum_id=$message(forum_id)"
     ad_script_abort
 }
@@ -71,7 +71,7 @@
 set searchbox_p [parameter::get -parameter ForumsSearchBoxP -default 1]
 
 # If this is a top-level thread, we allow subscriptions here
-if { [empty_string_p $message(parent_id)] } {
+if { $message(parent_id) eq "" } {
     set notification_chunk [notification::display::request_widget \
         -type forums_message_notif \
         -object_id $message(message_id) \
@@ -88,7 +88,7 @@
 }
 
 set context [list [list "./forum-view?forum_id=$message(forum_id)" "$message(forum_name)"]]
-if {![empty_string_p $message(parent_id)]} {
+if {$message(parent_id) ne ""} {
     lappend context [list "./message-view?message_id=$message(root_message_id)" "$message(root_subject)"]
     lappend context [_ forums.One_Message]
 } else {