Index: openacs-4/packages/forums/lib/message/row.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/row.tcl,v
diff -u -r1.1 -r1.1.1.1
--- openacs-4/packages/forums/lib/message/row.tcl	17 Dec 2003 15:45:29 -0000	1.1
+++ openacs-4/packages/forums/lib/message/row.tcl	28 Jun 2006 20:30:28 -0000	1.1.1.1
@@ -1,26 +1,22 @@
 ad_page_contract {
-    
+
     a message chunk to be included in a table listing of messages
 
-    _so that has to be wrapped in a <table>_
-
     @author yon (yon@openforce.net)
     @author arjun (arjun@openforce.net)
     @creation-date 2002-06-02
     @cvs-id $Id$
 
 }
 
-if {![exists_and_not_null bgcolor]} { 
-    set table_bgcolor [parameter::get -parameter table_bgcolor]
-} else {
-    set table_bgcolor $bgcolor
-}
+set viewer_id [ad_conn user_id]
 
-if { [string is false $message(html_p)] } {
-    set message(content) [ad_text_to_html -- $message(content)]
+if {![exists_and_not_null rownum]} { 
+    set rownum 1
 }
 
+set message(content) [ad_html_text_convert -from $message(format) -to text/html -- $message(content)]
+
 # convert emoticons to images if the parameter is set
 if { [string is true [parameter::get -parameter DisplayEmoticonsAsImagesP -default 0]] } {
     set message(content) [forum::format::emoticons -content $message(content)]
@@ -37,3 +33,12 @@
 if {[exists_and_not_null alt_template]} {
   ad_return_template $alt_template
 }
+if {![info exists message(message_id)]} {
+    set message(message_id) none
+}
+if {![info exists message(tree_level)]} {
+    set message(tree_level) 0
+}
+
+set allow_edit_own_p [parameter::get -parameter AllowUsersToEditOwnPostsP -default 0]
+set own_p [expr [string equal $message(user_id) $viewer_id] && $allow_edit_own_p]