-------------------
"
+ set new_content ""
+ append new_content "Forum: $message(forum_name)
\n"
+ append new_content "Thread: $message(root_subject)
\n"
+ append new_content "Author: $message(user_name)
\n"
+ append new_content "\n
\n"
+ append new_content $message(content)
+ append new_content "
-------------------
"
- # send text for now.
- set new_content [ad_html_to_text $new_content]
- set html_version $new_content
+ # send text for now.
+ set new_content [ad_html_to_text $new_content]
+ set html_version $new_content
- set text_version ""
-
- append text_version "Forum: $message(forum_name)
+ set text_version ""
+
+ append text_version "Forum: $message(forum_name)
Thread: $message(root_subject)
Author: $message(user_name) ($message(user_email))\n\n"
- if { $message(html_p) } {
- append text_version [ad_html_to_text $message(content)]
- } else {
- append text_version [wrap_string $message(content)]
- }
- append text_version "\n\n--
+ if { $message(html_p) } {
+ append text_version [ad_html_to_text $message(content)]
+ } else {
+ append text_version [wrap_string $message(content)]
+ }
+ append text_version "\n\n--
To post a reply to this email or view this message go to:
${url}message-view?message_id=$message(root_message_id)
"
- set new_content $text_version
- ns_log debug "forums: requesting a notification forum $message(forum_name) subject $message(subject)"
+ set new_content $text_version
+ ns_log debug "forums: requesting a notification forum $message(forum_name) subject $message(subject)"
- # Do the notification for the forum
- notification::new \
- -type_id [notification::type::get_type_id \
- -short_name forums_forum_notif] \
- -object_id $message(forum_id) \
- -response_id $message(message_id) \
- -notif_subject $message(subject) \
- -notif_text $new_content
-
- # Eventually we need notification for the root message too
- notification::new \
- -type_id [notification::type::get_type_id \
- -short_name forums_message_notif] \
- -object_id $message(root_message_id) \
- -response_id $message(message_id) \
- -notif_subject $message(subject) \
- -notif_text $new_content
- }
+ # Do the notification for the forum
+ notification::new \
+ -type_id [notification::type::get_type_id \
+ -short_name forums_forum_notif] \
+ -object_id $message(forum_id) \
+ -response_id $message(message_id) \
+ -notif_subject $message(subject) \
+ -notif_text $new_content
- ad_proc -public edit {
- {-message_id:required}
- {-subject:required}
- {-content:required}
- {-html_p:required}
- } {
- Editing a message. There is no versioning here!
- This means this function is for admins only!
- } {
- # do the update
- db_dml update_message {}
- }
+ # Eventually we need notification for the root message too
+ notification::new \
+ -type_id [notification::type::get_type_id \
+ -short_name forums_message_notif] \
+ -object_id $message(root_message_id) \
+ -response_id $message(message_id) \
+ -notif_subject $message(subject) \
+ -notif_text $new_content
+}
+
+ad_proc -public forum::message::edit {
+ {-message_id:required}
+ {-subject:required}
+ {-content:required}
+ {-html_p:required}
+} {
+ Editing a message. There is no versioning here!
+ This means this function is for admins only!
+} {
+ # do the update
+ db_dml update_message {}
+}
- ad_proc -public set_html_p {
- {-message_id:required}
- {-html_p:required}
- } {
- set whether a message is HTML or not
- } {
- # Straight update to the DB
- db_dml update_message_html_p
- }
+ad_proc -public forum::message::set_html_p {
+ {-message_id:required}
+ {-html_p:required}
+} {
+ set whether a message is HTML or not
+} {
+ # Straight update to the DB
+ db_dml update_message_html_p
+}
- ad_proc -public get {
- {-message_id:required}
- {-array:required}
- } {
- get the fields for a forum
- } {
- # Select the info into the upvar'ed Tcl Array
- upvar $array row
+ad_proc -public forum::message::get {
+ {-message_id:required}
+ {-array:required}
+} {
+ get the fields for a forum
+} {
+ # Select the info into the upvar'ed Tcl Array
+ upvar $array row
- set query select_message
+ set query select_message
- if {[ad_conn isconnected] && [forum::attachments_enabled_p]} {
- set query select_message_with_attachment
- }
+ if {[ad_conn isconnected] && [forum::attachments_enabled_p]} {
+ set query select_message_with_attachment
+ }
- db_1row $query {} -column_array row
+ db_1row $query {} -column_array row
- # Convert to user's date/time format
- set row(posting_date_pretty) [lc_time_fmt $row(posting_date_ansi) "%x %X"]
- }
+ # Convert to user's date/time format
+ set row(posting_date_pretty) [lc_time_fmt $row(posting_date_ansi) "%x %X"]
+}
- ad_proc -private set_state {
- {-message_id:required}
- {-state:required}
- } {
- Set the new state for a message
- Usually used for approval
- } {
- # simple DB update
- db_dml update_message_state {}
- }
+ad_proc -private forum::message::set_state {
+ {-message_id:required}
+ {-state:required}
+} {
+ Set the new state for a message
+ Usually used for approval
+} {
+ # simple DB update
+ db_dml update_message_state {}
+}
- ad_proc -public reject {
- {-message_id:required}
- } {
- Reject a message
- } {
- set_state -message_id $message_id -state rejected
- }
+ad_proc -public forum::message::reject {
+ {-message_id:required}
+} {
+ Reject a message
+} {
+ set_state -message_id $message_id -state rejected
+}
- ad_proc -public approve {
- {-message_id:required}
- } {
- approve a message
- } {
- db_transaction {
- set_state -message_id $message_id -state approved
- do_notifications -message_id $message_id
- }
+ad_proc -public forum::message::approve {
+ {-message_id:required}
+} {
+ approve a message
+} {
+ db_transaction {
+ set_state -message_id $message_id -state approved
+ do_notifications -message_id $message_id
}
+}
- ad_proc -public delete {
- {-message_id:required}
- } {
- delete a message and obviously all of its descendents
- } {
- db_transaction {
- # Remove the notifications
- notification::request::delete_all -object_id $message_id
+ad_proc -public forum::message::delete {
+ {-message_id:required}
+} {
+ delete a message and obviously all of its descendents
+} {
+ db_transaction {
+ # Remove the notifications
+ notification::request::delete_all -object_id $message_id
- # Remove the message
- db_exec_plsql delete_message {}
- }
+ # Remove the message
+ db_exec_plsql delete_message {}
}
+}
- ad_proc -public close {
- {-message_id:required}
- } {
- close a thread
- This is not exactly a cheap operation if the thread is long
- } {
- db_exec_plsql thread_close {}
- }
+ad_proc -public forum::message::close {
+ {-message_id:required}
+} {
+ close a thread
+ This is not exactly a cheap operation if the thread is long
+} {
+ db_exec_plsql thread_close {}
+}
- ad_proc -public open {
- {-message_id:required}
- } {
- reopen a thread
- This is not exactly a cheap operation if the thread is long
- } {
- db_exec_plsql thread_open {}
- }
+ad_proc -public forum::message::open {
+ {-message_id:required}
+} {
+ reopen a thread
+ This is not exactly a cheap operation if the thread is long
+} {
+ db_exec_plsql thread_open {}
+}
- ad_proc -public get_attachments {
- {-message_id:required}
- } {
- get the attachments for a message
- } {
- # If attachments aren't enabled, then we stop
- if {![forum::attachments_enabled_p]} {
- return [list]
- }
-
- return [attachments::get_attachments -object_id $message_id]
+ad_proc -public forum::message::get_attachments {
+ {-message_id:required}
+} {
+ get the attachments for a message
+} {
+ # If attachments aren't enabled, then we stop
+ if {![forum::attachments_enabled_p]} {
+ return [list]
}
- ad_proc -public subject_sort_filter {
- -forum_id:required
- -order_by:required
- } {
- Return a piece of HTML for toggling the sort order of threads (subjects)
- in a forum. The user can either sort by the first postings in subjects
- (the creation date of the subjects) or the last one.
+ return [attachments::get_attachments -object_id $message_id]
+}
- @author Peter Marklund
- } {
- set subject_label "[_ forums.lt_First_post_in_subject]"
- set child_label "[_ forums.Last_post_in_subject]"
- set new_order_by [ad_decode $order_by posting_date last_child_post posting_date]
+ad_proc -public forum::message::subject_sort_filter {
+ -forum_id:required
+ -order_by:required
+} {
+ Return a piece of HTML for toggling the sort order of threads (subjects)
+ in a forum. The user can either sort by the first postings in subjects
+ (the creation date of the subjects) or the last one.
- set export_vars [ad_export_vars -override [list [list order_by $new_order_by]] {order_by forum_id}]
- set toggle_url "[ad_conn url]?${export_vars}"
- if { [string equal $order_by posting_date] } {
- # subject selected
- set subject_link "$subject_label"
- set child_link "$child_label"
- } else {
- # child selected
- set subject_link "$subject_label"
- set child_link "$child_label"
- }
- set sort_filter "$subject_link | $child_link"
+ @author Peter Marklund
+} {
+ set subject_label "[_ forums.lt_First_post_in_subject]"
+ set child_label "[_ forums.Last_post_in_subject]"
+ set new_order_by [ad_decode $order_by posting_date last_child_post posting_date]
- return $sort_filter
+ set export_vars [ad_export_vars -override [list [list order_by $new_order_by]] {order_by forum_id}]
+ set toggle_url "[ad_conn url]?${export_vars}"
+ if { [string equal $order_by posting_date] } {
+ # subject selected
+ set subject_link "$subject_label"
+ set child_link "$child_label"
+ } else {
+ # child selected
+ set subject_link "$subject_label"
+ set child_link "$child_label"
}
+ set sort_filter "$subject_link | $child_link"
+
+ return $sort_filter
}
+