Index: openacs-4/packages/sloan-bboard/www/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/sloan-bboard/www/message.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/sloan-bboard/www/message.tcl	15 Feb 2002 21:27:07 -0000	1.1
+++ openacs-4/packages/sloan-bboard/www/message.tcl	23 Feb 2002 16:23:52 -0000	1.2
@@ -33,7 +33,8 @@
     select short_name as forum_name,
        acs_permission.permission_p(:forum_id, :user_id, 'admin') as admin_p,
        acs_permission.permission_p(:forum_id, :user_id, 'bboard_moderate_forum') 
-         as moderate_p
+         as moderate_p,
+      forum_type
       from bboard_forums
       where forum_id = :forum_id
 }
@@ -73,4 +74,14 @@
 order by mt.seqnum
 }
 
+# How does a user want this presented
+set presentation [bboard_user_view_pref]
+
+# Should we allow replies to replies?
+if {$forum_type == "thread"} {
+    set replies_p 1
+} else {
+    set replies_p 0
+}
+
 ad_return_template