| |
72 |
72 |
set query select_message_responses_attachments |
| |
73 |
73 |
} else { |
| |
74 |
74 |
set query select_message_responses |
| |
75 |
75 |
} |
| |
76 |
76 |
|
| |
77 |
77 |
# We set a Tcl variable for moderation now (Ben) |
| |
78 |
78 |
if {$moderate_p} { |
| |
79 |
79 |
set table_name "forums_messages" |
| |
80 |
80 |
} else { |
| |
81 |
81 |
set table_name "forums_messages_approved" |
| |
82 |
82 |
} |
| |
83 |
83 |
|
| |
84 |
84 |
# More Tcl vars (we might as well use them - Ben) |
| |
85 |
85 |
if {[string equal $forum(presentation_type) flat]} { |
| |
86 |
86 |
set order_by "posting_date, tree_sortkey" |
| |
87 |
87 |
} else { |
| |
88 |
88 |
set order_by "tree_sortkey" |
| |
89 |
89 |
} |
| |
90 |
90 |
|
| |
91 |
91 |
db_multirow responses $query {} |
| |
92 |
|
ns_log notice "DAVEB:FORUMS: $query" |
| |
|
92 |
|
| |
93 |
93 |
# If this is a top-level thread, we allow subscriptions here |
| |
94 |
94 |
if {[empty_string_p $message(parent_id)]} { |
| |
95 |
95 |
set notification_chunk [notification::display::request_widget \ |
| |
96 |
96 |
-type forums_message_notif \ |
| |
97 |
97 |
-object_id $message_id \ |
| |
98 |
98 |
-pretty_name $message(subject) \ |
| |
99 |
99 |
-url [ad_conn url]?message_id=$message_id \ |
| |
100 |
100 |
] |
| |
101 |
101 |
} else { |
| |
102 |
102 |
set notification_chunk "" |
| |
103 |
103 |
} |
| |
104 |
104 |
|
| |
105 |
105 |
set context [list [list "./forum-view?forum_id=$message(forum_id)" "$message(forum_name)"]] |
| |
106 |
106 |
if {![empty_string_p $message(parent_id)]} { |
| |
107 |
107 |
lappend context_bar [list "./message-view?message_id=$message(root_message_id)" "Entire Thread"] |
| |
108 |
108 |
} |
| |
109 |
109 |
lappend context {One Message} |
| |
110 |
110 |
|
| |
111 |
111 |
if {[string equal $forum(presentation_type) flat]} { |
| |
112 |
112 |
ad_return_template "message-view-flat" |
