Index: openacs-4/packages/forums/lib/message/threads-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/threads-chunk.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl	17 Dec 2003 15:45:29 -0000	1.1
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl	30 Dec 2003 23:10:03 -0000	1.2
@@ -12,14 +12,29 @@
 forum::get -forum_id $forum_id -array forum
 
 set query messages_select
-if {$moderate_p} {
+if { $moderate_p } {
     set query messages_select_moderator
 }
 
+set actions [list]
+
+if { [template::util::is_true $permissions(post_p)] } {
+    lappend actions [_ forums.Post_a_New_Message] [export_vars -base "message-post" { forum_id }] {}
+}
+
+if { [template::util::is_true $permissions(admin_p)] } {
+    lappend actions [_ forums.Administer] [export_vars -base "admin/forum-edit" { forum_id {return_url [ad_return_url]}}] {}
+}
+
+if { [template::util::is_true $permissions(moderate_p)] } {
+    lappend actions [_ forums.ManageModerate] [export_vars -base "moderate/forum" { forum_id }] {}
+}
+
 template::list::create \
     -name messages \
     -multirow messages \
     -pass_properties { moderate_p } \
+    -actions $actions \
     -elements {
         subject {
             label "#forums.Subject#"