Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/forums/lib/message/content-updater-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/forums/lib/message/content-updater-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/forums/lib/message/content-updater.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/forums/lib/message/content-updater.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/forums/www/load-message-content.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/load-message-content.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/forums/www/load-message-content.adp	28 Jun 2006 20:30:29 -0000	1.1
+++ openacs-4/packages/forums/www/load-message-content.adp	15 Jun 2018 20:26:34 -0000	1.2
@@ -1,4 +1 @@
-<include src="/packages/forums/lib/message/content-updater"        
-    &message="message"
-    &forum="forum"
-    table_name="@table_name@;noquote">
+@message.content;noquote@
Index: openacs-4/packages/forums/www/load-message-content.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/load-message-content.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/forums/www/load-message-content.tcl	7 Aug 2017 23:48:11 -0000	1.3
+++ openacs-4/packages/forums/www/load-message-content.tcl	15 Jun 2018 20:26:34 -0000	1.4
@@ -8,7 +8,6 @@
 
 } {
     message_id:naturalnum,notnull
-    {table_name "forums_messages" }
 }
 
 
@@ -19,9 +18,16 @@
     ad_script_abort
 }
 
-# Load up the forum information
-forum::get -forum_id $message(forum_id) -array forum
+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)]
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4