OpenACS

jeffd
committed
MAIN:jeffd:20040724150026
on 24 Jul 04
make functions create or replace. fix inputs to a get_status_summary and get_html_p, bump version, upgrade
/www/message-view.tcl (+2 -2)
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"