@message.content;noquote@
+
+
+
+
+ #forums.Attachments#
+
+
+
+
+
+
+
+
+ -
+
- #forums.reply#
- #forums.forward# +
- #forums.edit# +
- #forums.delete# +
- #forums.Move_thread_to_other_forum# +
- #forums.Move_thread_to_other_thread# +
- #forums.Move_to_other_thread# +
- #forums.approve# +
- #forums.reject# +
+
+
+
+ 
+
+
+
+ @message.number@:
+ @message.subject@
+
+
+
Index: dotlrn_packages/packages/forums/lib/message/row.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/message/row.tcl (revision 0)
+++ dotlrn_packages/packages/forums/lib/message/row.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,51 @@
+ad_page_contract {
+
+ a message chunk to be included in a table listing of messages
+
+ @author yon (yon@openforce.net)
+ @author arjun (arjun@openforce.net)
+ @creation-date 2002-06-02
+ @cvs-id $Id$
+
+}
+
+set viewer_id [ad_conn user_id]
+set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
+set screen_name [db_string select_screen_name { select screen_name from users where user_id = :viewer_id}]
+
+if {![exists_and_not_null rownum]} {
+ set rownum 1
+}
+
+if {![exists_and_not_null presentation_type]} {
+ set presentation_type ""
+}
+
+set message(content) [ad_html_text_convert -from $message(format) -to text/html -- $message(content)]
+set message(screen_name) $screen_name
+
+# convert emoticons to images if the parameter is set
+if { [string is true [parameter::get -parameter DisplayEmoticonsAsImagesP -default 0]] } {
+ set message(content) [forum::format::emoticons -content $message(content)]
+}
+
+# JCD: display subject only if changed from the root subject
+if {![info exists root_subject]} {
+ set display_subject_p 1
+} else {
+ regsub {^(Response to |\s*Re:\s*)*} $message(subject) {} subject
+ set display_subject_p [expr ![string equal $subject $root_subject]]
+}
+
+if {[exists_and_not_null alt_template]} {
+ ad_return_template $alt_template
+}
+if {![info exists message(message_id)]} {
+ set message(message_id) none
+}
+if {![info exists message(tree_level)] || $presentation_type eq "flat"} {
+ set message(tree_level) 0
+}
+
+set allow_edit_own_p [parameter::get -parameter AllowUsersToEditOwnPostsP -default 0]
+set own_p [expr [string equal $message(user_id) $viewer_id] && $allow_edit_own_p]
Index: dotlrn_packages/packages/forums/lib/message/row2.adp
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/message/row2.adp (revision 0)
+++ dotlrn_packages/packages/forums/lib/message/row2.adp (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,121 @@
+@message.subject@
+
+
+
+
+
+ @message.number@
+
+
+ (response to @message.parent_number@)
+
+
+
+ #forums.Posted_by#
+ @message.screen_name@
+ @message.user_name@ #forums.on# @message.posting_date_pretty@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ -
+
- #forums.reply# +
- #forums.forward# +
- #forums.Edit# +
- #forums.delete# +
- #forums.Move_thread_to_other_forum# +
- #forums.Move_thread_to_other_thread# +
- #forums.Move_to_other_thread# +
- #forums.approve# +
- #forums.reject# +
+
+
+
+
+
+
+
+
Index: dotlrn_packages/packages/forums/lib/message/row2.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/message/row2.tcl (revision 0)
+++ dotlrn_packages/packages/forums/lib/message/row2.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,90 @@
+
+ad_page_contract {
+
+ a message chunk to be included in a table listing of messages
+
+ @author yon (yon@openforce.net)
+ @author arjun (arjun@openforce.net)
+ @creation-date 2002-06-02
+ @cvs-id $Id$
+
+}
+
+set viewer_id [ad_conn user_id]
+
+
+if {![exists_and_not_null rownum]} {
+ set rownum 1
+}
+
+set message(content) [ad_html_text_convert -from $message(format) -to text/html -- $message(content)]
+
+# convert emoticons to images if the parameter is set
+if { [string is true [parameter::get -parameter DisplayEmoticonsAsImagesP -default 0]] } {
+ set message(content) [forum::format::emoticons -content $message(content)]}
+
+# JCD: display subject only if changed from the root subject
+if {![info exists root_subject]} {
+ set display_subject_p 1
+} else {thr regsub {^(Response to |\s*Re:\s*)*} $message(subject) {} subject
+ set display_subject_p [expr ![string equal $subject $root_subject]]
+}
+
+if {[exists_and_not_null alt_template]} {
+ ad_return_template $alt_template
+}
+if {![info exists message(message_id)]} {
+ set message(message_id) none
+}
+if {![info exists message(tree_level)]} {
+ set message(tree_level) 0
+}
+
+
+
+
+## New ##
+
+set max_number_messages [parameter::get -parameter max_number_messages_with_effects -default 120]
+
+set parent $message(message_id)
+set direct_children_list [db_list children_list_name "select message_id from $table_name where message_id = $parent or parent_id = $parent order by message_id"]
+set message_children_list [db_list select_message_children " SELECT fma.message_id \
+ FROM forums_messages_approved fma \
+ WHERE fma.forum_id = $forum_id \
+ and fma.tree_sortkey between (select fm.tree_sortkey from forums_messages fm where fm.message_id = $parent) \
+ and (select tree_right(fm.tree_sortkey) from forums_messages fm where fm.message_id = $parent) \
+ ORDER BY fma.message_id "]
+
+# List of all the children given a message_id
+if {[llength $message_children_list] == 0 } {
+
+ set children_string "null"
+}
+
+set children_string $message_children_list
+
+# List of the direct children of a message
+
+if {[llength $direct_children_list] == 0} {
+
+ set children_direct_list "null"
+ }
+
+ set children_direct_list "$direct_children_list"
+
+# Gets all the direct children of the main message
+set childs [db_list get_childs "select message_id from $table_name where parent_id = $main_message_id or message_id = $main_message_id order by message_id"]
+
+set is_direct_child 0
+
+set is_direct_children [lsearch $childs $parent]
+if {$is_direct_children == -1 } {
+ set is_direct_child 0
+} else {
+ set is_direct_child 1
+}
+
+## Ends New ##
+set allow_edit_own_p [parameter::get -parameter AllowUsersToEditOwnPostsP -default 0]
+set own_p [expr [string equal $message(user_id) $viewer_id] && $allow_edit_own_p]
Index: dotlrn_packages/packages/forums/lib/message/thread-chunk-oracle.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/message/thread-chunk-oracle.xql (revision 0)
+++ dotlrn_packages/packages/forums/lib/message/thread-chunk-oracle.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,59 @@
+
+
+
+ oracle 8.1.6
+
+ select fma.message_id
+ from forums_messages fm,
+ forums_messages_approved fma
+ where fm.message_id = :root_message_id
+ and fma.forum_id = :forum_id
+ and fma.tree_sortkey between fm.tree_sortkey and tree.right(fm.tree_sortkey)
+ order by fma.message_id
+
+
+
+
+
+ select message_id,
+ 0 as n_attachments,
+ subject,
+ content,
+ format,
+ person.name(user_id) as user_name,
+ to_char(posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ tree.tree_level(tree_sortkey) as tree_level,
+ state,
+ user_id,
+ parent_id
+ from $table_name t
+ where forum_id = :forum_id
+ and tree_sortkey between tree.left(:tree_sortkey) and tree.right(:tree_sortkey)
+ order by $order_by
+
+
+
+
+
+ select message_id,
+ (select count(*) from attachments where object_id = message_id) as n_attachments,
+ subject,
+ content,
+ format,
+ person.name(user_id) as user_name,
+ to_char(posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ tree.tree_level(tree_sortkey) as tree_level,
+ state,
+ user_id,
+ parent_id
+ from $table_name t
+ where forum_id = :forum_id
+ and tree_sortkey between tree.left(:tree_sortkey) and tree.right(:tree_sortkey)
+ order by $order_by
+
+
+
+
+
Index: dotlrn_packages/packages/forums/lib/message/thread-chunk-postgresql.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/message/thread-chunk-postgresql.xql (revision 0)
+++ dotlrn_packages/packages/forums/lib/message/thread-chunk-postgresql.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,66 @@
+
+
+
+ postgresql 7.1
+
+ SELECT fma.message_id
+ FROM forums_messages_approved fma
+ WHERE fma.forum_id = :forum_id
+ and fma.tree_sortkey between (select fm.tree_sortkey from forums_messages fm where fm.message_id = :root_message_id)
+ and (select tree_right(fm.tree_sortkey) from forums_messages fm where fm.message_id = :root_message_id)
+ ORDER BY fma.message_id
+
+
+
+
+
+ select message_id,
+ 0 as n_attachments,
+ t.subject,
+ t.content,
+ t.format,
+ person__name(t.user_id) as user_name,
+ to_char(t.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ tree_level(t.tree_sortkey) as tree_level,
+ t.state,
+ t.user_id,
+ t.parent_id,
+ t.open_p,
+ t.max_child_sortkey,
+ u.screen_name
+ from $table_name t, users u
+ where t.forum_id = :forum_id
+ and u.user_id = t.user_id
+ and t.tree_sortkey between tree_left(:tree_sortkey) and tree_right(:tree_sortkey)
+ order by $order_by
+
+
+
+
+
+ select message_id,
+ (select count(*) from attachments where object_id = t.message_id) as n_attachments,
+ t.subject,
+ t.content,
+ t.format,
+ person__name(t.user_id) as user_name,
+ to_char(t.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ tree_level(t.tree_sortkey) as tree_level,
+ t.state,
+ t.user_id,
+ t.parent_id,
+ t.open_p,
+ t.max_child_sortkey,
+ u.screen_name
+ from $table_name t, users u
+ where t.forum_id = :forum_id
+ and u.user_id = t.user_id
+ and t.tree_sortkey between tree_left(:tree_sortkey) and tree_right(:tree_sortkey)
+ order by $order_by
+
+
+
+
+
Index: dotlrn_packages/packages/forums/lib/message/thread-chunk.adp
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/message/thread-chunk.adp (revision 0)
+++ dotlrn_packages/packages/forums/lib/message/thread-chunk.adp (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,19 @@
+
+ oracle 8.1.6
+
+ select fm.message_id,
+ fm.subject,
+ person.name(fm.user_id) as user_name,
+ to_char(fm.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ $replies as n_messages,
+ to_char(fm.last_child_post, 'YYYY-MM-DD HH24:MI:SS') as last_child_post_ansi
+ from forums_messages_approved fm
+ where fm.forum_id = :forum_id
+ and fm.parent_id is null
+ [template::list::orderby_clause -orderby -name "messages"]
+
+
+
+
+
+ select fm.message_id,
+ fm.subject,
+ fm.last_poster as user_id,
+ person.name(fm.last_poster) as user_name,
+ to_char(fm.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ fm.state,
+ $replies as n_messages,
+ to_char(fm.last_child_post, 'YYYY-MM-DD HH24:MI:SS') as last_child_post_ansi,
+ u.screen_name,
+ $unread_or_new_query_clause
+ from forums_messages_approved fm $unread_join, users u
+ where fm.forum_id = :forum_id
+ and fm.user_id = u.user_id
+ and fm.parent_id is null
+ [template::list::page_where_clause -and -name messages -key fm.message_id]
+ [template::list::orderby_clause -orderby -name "messages"]
+
+
+
+
+
+ user_name desc
+
+
+
+
+ user_name asc
+
+
+
+
+
+ case when fi.reading_date is null then 't' else 'f' end as unread_p
+
+
+
+
+
+ left join forums_reading_info fi on fm.message_id=fi.root_message_id and fi.user_id = :user_id
+
+
+
+
+
+ case when fm.last_child_post > sysdate-1 then 't' else 'f' end as unread_p
+
+
+
+
Index: dotlrn_packages/packages/forums/lib/message/threads-chunk-postgresql.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/message/threads-chunk-postgresql.xql (revision 0)
+++ dotlrn_packages/packages/forums/lib/message/threads-chunk-postgresql.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,73 @@
+
+
+ postgresql 7.1
+
+ select fm.message_id,
+ fm.subject,
+ person__name(fm.user_id) as user_name,
+ $replies as n_messages,
+ to_char(fm.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi
+ from forums_messages_approved fm
+ where fm.forum_id = :forum_id
+ and fm.parent_id is null
+ [template::list::orderby_clause -orderby -name messages]
+
+
+
+
+
+ select fm.message_id,
+ fm.subject,
+ fm.last_poster as user_id,
+ person__name(fm.last_poster) as user_name,
+ to_char(fm.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ fm.state,
+ $replies as n_messages,
+ to_char(fm.last_child_post, 'YYYY-MM-DD HH24:MI:SS') as last_child_post_ansi,
+ u.screen_name,
+ $unread_or_new_query_clause
+ from forums_messages_approved fm $unread_join,
+ users u
+ where fm.forum_id = :forum_id
+ and fm.user_id = u.user_id
+ and fm.parent_id is null
+ [template::list::page_where_clause -and -name messages -key fm.message_id]
+ [template::list::orderby_clause -orderby -name messages]
+
+
+
+
+
+ lower(person__name(fm.last_poster)) desc
+
+
+
+
+ lower(person__name(fm.last_poster)) asc
+
+
+
+
+
+ case when fi.reading_date is null then 't' else 'f' end as unread_p
+
+
+
+
+
+ left join forums_reading_info fi on fm.message_id=fi.root_message_id and fi.user_id = :user_id
+
+
+
+
+
+ case when fm.last_child_post > (now() - interval '1 day') then 't' else 'f' end as new_p
+
+
+
+
+
+
+
Index: dotlrn_packages/packages/forums/lib/message/threads-chunk.adp
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/message/threads-chunk.adp (revision 0)
+++ dotlrn_packages/packages/forums/lib/message/threads-chunk.adp (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1 @@
+
+
+ @messages.subject@
+
+ @messages.subject@
+
+
+
+ @messages.subject@
+
+ @messages.subject@
+
+ }
+ }
+ state_pretty {
+ label "\#forums.Moderate\#"
+ hide_p {[ad_decode $moderate_p 1 0 1]}
+ }
+ user_name {
+ label "#forums.Author#"
+ link_url_col user_url
+ link_html {title "\#forums.show_history_user_name\#"}
+ }
+ n_messages {
+ label "#forums.Replies#"
+ display_col n_messages_pretty
+ html {align right}
+ }
+ posting_date {
+ label "#forums.First_Post#"
+ display_col posting_date_pretty
+ }
+ last_child_post {
+ label "#forums.Last_Post#"
+ display_col last_child_post_pretty
+ }
+ } -orderby {
+ posting_date {
+ label "#forums.First_Post#"
+ orderby posting_date
+ default_direction desc
+ }
+ last_child_post {
+ label "#forums.Last_Post#"
+ orderby last_child_post
+ default_direction desc
+ }
+ subject {
+ label "#forums.Subject#"
+ orderby upper(subject)
+ }
+ user_name {
+ label "#forums.Author#"
+ orderby_asc_name "orderby_user_name_asc"
+ orderby_desc_name "orderby_user_name_desc"
+ }
+ n_messages {
+ label "#forums.Replies#"
+ orderby_asc {n_messages asc, posting_date desc}
+ orderby_desc {n_messages desc, posting_date desc}
+ }
+ } -filters {
+ forum_id {}
+ }
+
+set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
+
+db_multirow -extend {
+ last_child_post_pretty
+ posting_date_pretty
+ message_url
+ user_url
+ n_messages_pretty
+ state_pretty
+} messages messages_select {} {
+ set last_child_post_ansi [lc_time_system_to_conn $last_child_post_ansi]
+ set last_child_post_pretty [lc_time_fmt $last_child_post_ansi "%x %X"]
+
+ set posting_date_ansi [lc_time_system_to_conn $posting_date_ansi]
+ set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+
+ set message_url [export_vars -base "${base_url}message-view" { message_id }]
+ if { $useScreenNameP } {
+ set user_name $screen_name
+ set user_url ""
+ } else {
+ set user_url [export_vars -base "${base_url}user-history" { user_id }]
+ }
+ set n_messages_pretty [lc_numeric $n_messages]
+
+ switch $state {
+ pending {
+ set state_pretty [_ forums.Pending]
+ }
+ rejected {
+ set state_pretty [_ forums.Rejected]
+ }
+ default {
+ set state_pretty {}
+ }
+ }
+}
+
+if {[exists_and_not_null alt_template]} {
+ ad_return_template $alt_template
+}
Index: dotlrn_packages/packages/forums/lib/search/search-chunk-oracle.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/search/search-chunk-oracle.xql (revision 0)
+++ dotlrn_packages/packages/forums/lib/search/search-chunk-oracle.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,76 @@
+
+
+
+ oracle 8.1.6
+
+ select forums_messages.*,
+ person.name(forums_messages.user_id) as user_name,
+ to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ 100 as the_score
+ from forums_messages,
+ forums_forums
+ where forums_messages.forum_id = forums_forums.forum_id
+ and forums_forums.package_id = :package_id
+ and forums_messages.state = 'approved'
+ and upper(forums_messages.subject || ' ' || dbms_lob.substr(forums_messages.content,2500) || ' ' || person.name(forums_messages.user_id))
+ like '%' || upper(:search_text) || '%'
+ order by forums_messages.posting_date desc
+
+
+
+
+
+ select forums_messages.*,
+ person.name(forums_messages.user_id) as user_name,
+ to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ 100 as the_score
+ from forums_messages,
+ forums_forums
+ where forums_forums.forum_id = :forum_id
+ and forums_forums.package_id = :package_id
+ and forums_messages.forum_id = forums_forums.forum_id
+ and forums_messages.state = 'approved'
+ and upper(forums_messages.subject || ' ' || dbms_lob.substr(forums_messages.content,3500) || ' ' || person.name(forums_messages.user_id))
+ like '%' || upper(:search_text) || '%'
+ order by forums_messages.posting_date desc
+
+
+
+
+
+ select forums_messages.*,
+ person.name(forums_messages.user_id) as user_name,
+ to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ score(1) as the_score
+ from forums_messages,
+ forums_forums
+ where forums_messages.forum_id = forums_forums.forum_id
+ and forums_forums.package_id = :package_id
+ and forums_messages.state = 'approved'
+ and contains(forums_messages.content, '%' || :search_text || '%', 1) > 0
+ order by the_score desc,
+ forums_messages.posting_date desc
+
+
+
+
+
+ select forums_messages.*,
+ person.name(forums_messages.user_id) as user_name,
+ to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ score(1) as the_score
+ from forums_messages,
+ forums_forums
+ where forums_forums.forum_id = :forum_id
+ and forums_forums.package_id = :package_id
+ and forums_messages.forum_id = forums_forums.forum_id
+ and forums_messages.state = 'approved'
+ and contains(forums_messages.content, '%' || :search_text || '%', 1) > 0
+ order by the_score desc,
+ forums_messages.posting_date desc
+
+
+
+
Index: dotlrn_packages/packages/forums/lib/search/search-chunk-postgresql.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/search/search-chunk-postgresql.xql (revision 0)
+++ dotlrn_packages/packages/forums/lib/search/search-chunk-postgresql.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,41 @@
+
+
+
+ postgresql 7.1
+
+ select forums_messages.*,
+ person__name(forums_messages.user_id) as user_name,
+ to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ 100 as the_score
+ from forums_messages,
+ forums_forums
+ where forums_messages.forum_id = forums_forums.forum_id
+ and forums_forums.package_id = :package_id
+ and forums_messages.state = 'approved'
+ and upper(forums_messages.subject || ' ' || forums_messages.content || ' ' || person__name(forums_messages.user_id))
+ like '%' || upper(:search_text) || '%'
+ order by forums_messages.posting_date desc
+
+
+
+
+
+ select forums_messages.*,
+ person__name(forums_messages.user_id) as user_name,
+ to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ 100 as the_score
+ from forums_messages,
+ forums_forums
+ where forums_forums.forum_id = :forum_id
+ and forums_forums.package_id = :package_id
+ and forums_messages.forum_id = forums_forums.forum_id
+ and forums_messages.state = 'approved'
+ and upper(forums_messages.subject || ' ' || forums_messages.content || ' ' || person__name(forums_messages.user_id))
+ like '%' || upper(:search_text) || '%'
+ order by forums_messages.posting_date desc
+
+
+
+
Index: dotlrn_packages/packages/forums/lib/search/search-chunk.adp
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/search/search-chunk.adp (revision 0)
+++ dotlrn_packages/packages/forums/lib/search/search-chunk.adp (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,16 @@
+
+
Index: dotlrn_packages/packages/forums/lib/search/search-chunk.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/search/search-chunk.tcl (revision 0)
+++ dotlrn_packages/packages/forums/lib/search/search-chunk.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,47 @@
+ad_page_contract {
+
+ @author yon@openforce.net
+ @creation-date 2002-07-01
+ @cvs-id $Id$
+
+}
+set package_id [ad_conn package_id]
+set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
+
+set searchbox_p [parameter::get -parameter ForumsSearchBoxP -package_id $package_id -default 1]
+if {$searchbox_p} {
+ form create search
+ forums::form::search search
+
+ if {[form is_valid search]} {
+ form get_values search search_text forum_id
+
+ # remove any special characters from the search text so we
+ # don't crash interMedia
+ regsub -all {[^[:alnum:]_[:blank:]]} $search_text {} search_text
+
+ set query search_all_forums
+ if {![empty_string_p $forum_id]} {
+ set query search_one_forum
+ }
+
+ if { [parameter::get -parameter UseIntermediaForSearchP -default 0] } {
+ append query "_intermedia"
+ }
+
+ db_multirow -extend { author posting_date_pretty} messages $query {} {
+ set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+ if { $useScreenNameP } {
+ set author [db_string select_screen_name {select screen_name from users where user_id = :user_id}]
+ } else {
+ set author $user_name
+ }
+ }
+ } else {
+ set messages:rowcount 0
+ }
+
+ if {[exists_and_not_null alt_template]} {
+ ad_return_template $alt_template
+ }
+}
Index: dotlrn_packages/packages/forums/lib/search/search-form.adp
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/search/search-form.adp (revision 0)
+++ dotlrn_packages/packages/forums/lib/search/search-form.adp (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,10 @@
+
+
+
+
+ select forums_messages.message_id,
+ forums_forums.forum_id,
+ forums_messages.subject,
+ to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ forums_forums.forum_id,
+ forums_forums.name as forum_name
+ from forums_messages,
+ forums_forums
+ where forums_messages.user_id = :user_id
+ and forums_messages.forum_id = forums_forums.forum_id
+ and forums_forums.package_id = :package_id
+
+
+
+
+
+ select forums_messages.message_id,
+ forums_forums.forum_id,
+ forums_messages.subject,
+ to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ forums_forums.forum_id,
+ forums_forums.name as forum_name
+ from forums_messages,
+ forums_forums
+ where forums_messages.user_id = :user_id
+ and forums_messages.forum_id = forums_forums.forum_id
+ and forums_forums.package_id = :package_id
+ order by forums_forums.name asc, forums_messages.posting_date desc
+
+
+
+
+
+ select count(user_id) as num_msg, to_char(max(last_child_post), 'YYYY-MM-DD HH24:MI:SS') as last_post, forums_forums.name, forums_forums.forum_id
+ from forums_messages, forums_forums
+ where forums_messages.user_id = :user_id and forums_forums.forum_id = forums_messages.forum_id and package_id = :package_id
+ group by forums_forums.name, forums_forums.forum_id
+ order by forums_forums.name asc
+
+
+
+
+
+ select forums_messages.message_id,
+ forums_messages.subject,
+ to_char(forums_messages.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi,
+ forums_forums.forum_id,
+ forums_forums.name as forum_name
+ from forums_messages,
+ forums_forums
+ where forums_messages.user_id = :user_id
+ [template::list::filter_where_clauses -and -name messages]
+ forums_messages.forum_id = forums_forums.forum_id
+ and forums_forums.package_id = :package_id
+ order by forums_messages.posting_date desc
+
+
+
+
+
Index: dotlrn_packages/packages/forums/sql/oracle/forums-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,28 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert's UBB forums. Thanks Orchard Labs.
+--
+
+-- The basic forum constructs
+@ forums-forums-create.sql
+@ forums-forums-package-create.sql
+
+-- The messages
+@ forums-messages-create.sql
+@ forums-messages-package-create.sql
+
+-- tree stuff
+@ forums-tree-create.sql
+
+-- notifications
+@ forums-notifications-init.sql
+
+-- reading info
+@ forums-reading-info-create.sql
+@ forums-reading-info-package-create.sql
\ No newline at end of file
Index: dotlrn_packages/packages/forums/sql/oracle/forums-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,24 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert's UBB forums. Thanks Orchard Labs.
+--
+
+-- notifications
+@ forums-notifications-sanitize.sql
+
+-- tree stuff
+@ forums-tree-drop.sql
+
+-- The messages
+@ forums-messages-drop.sql
+@ forums-messages-package-drop.sql
+
+-- The basic forum constructs
+@ forums-forums-drop.sql
+@ forums-forums-package-drop.sql
Index: dotlrn_packages/packages/forums/sql/oracle/forums-forums-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-forums-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-forums-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,89 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs.
+--
+
+-- privileges
+declare
+begin
+ -- The standard privilege 'admin' on a package allows a user to
+ -- create forums (enforced by URL).
+ -- The standard privilege 'create' on a forum allows a user to
+ -- create new threads.
+ -- The standard privilege 'write' on a message allows a user to
+ -- post a follow up message.
+
+ -- forum_moderate lets us grant moderation without granting full admin
+ acs_privilege.create_privilege('forum_moderate',null,null);
+ acs_privilege.add_child('admin','forum_moderate');
+ acs_privilege.add_child('forum_moderate','create');
+ acs_privilege.add_child('forum_moderate','delete');
+ acs_privilege.add_child('forum_moderate','read');
+ acs_privilege.add_child('forum_moderate','write');
+
+end;
+/
+show errors
+
+create table forums_forums (
+ forum_id integer
+ constraint forums_forum_id_fk
+ references acs_objects (object_id)
+ constraint forums_forums_pk
+ primary key,
+ name varchar(200)
+ constraint forums_name_nn
+ not null,
+ charter varchar(4000),
+ presentation_type varchar(100)
+ constraint forums_presentation_type_nn
+ not null
+ constraint forums_presentation_type_ck
+ check (presentation_type in ('flat','threaded')),
+ posting_policy varchar(100)
+ constraint forums_posting_policy_nn
+ not null
+ constraint forums_posting_policy_ck
+ check (posting_policy in ('open','moderated','closed')),
+ max_child_sortkey raw(100),
+ enabled_p char(1)
+ default 't'
+ constraint forums_enabled_p_nn
+ not null
+ constraint forums_enabled_p_ck
+ check (enabled_p in ('t','f')),
+ package_id integer
+ constraint forums_package_id_nn
+ not null,
+ thread_count integer default 0,
+ approved_thread_count integer default 0,
+ last_post date
+);
+
+create view forums_forums_enabled
+as
+ select *
+ from forums_forums
+ where enabled_p = 't';
+
+declare
+begin
+ acs_object_type.create_type(
+ supertype => 'acs_object',
+ object_type => 'forums_forum',
+ pretty_name => 'Forums Forum',
+ pretty_plural => 'Forums Forums',
+ table_name => 'forums_forums',
+ id_column => 'forum_id',
+ package_name => 'forums_forum',
+ name_method => 'forums_forum.name'
+ );
+end;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/forums-forums-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-forums-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-forums-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,62 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs.
+--
+
+-- privileges
+declare
+begin
+
+ delete from acs_permissions where privilege in ('forum_moderate');
+
+ -- remove children
+ acs_privilege.remove_child('admin','forum_moderate');
+ acs_privilege.remove_child('forum_moderate','create');
+ acs_privilege.remove_child('forum_moderate','delete');
+ acs_privilege.remove_child('forum_moderate','read');
+ acs_privilege.remove_child('forum_moderate','write');
+
+ acs_privilege.drop_privilege('forum_moderate');
+end;
+/
+show errors
+
+
+--
+-- The Data Model
+--
+
+drop view forums_forums_enabled;
+
+drop table forums_forums;
+
+--
+-- Object Type
+--
+
+declare
+ v_object_id integer;
+begin
+
+ select MAX(object_id) into v_object_id from acs_objects where object_type='forums_forum';
+ While (v_object_id > 0) loop
+ delete from ncanotes where object_id=v_object_id;
+ acs_object.del(
+ v_object_id -- object_id
+ );
+ select MAX(object_id) into v_object_id from acs_objects where object_type='forums_forum';
+ End loop;
+
+ acs_object_type.drop_type (
+ object_type => 'forums_forum'
+ );
+
+end;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/forums-forums-package-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-forums-package-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-forums-package-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,105 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- The Package
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+
+create or replace package forums_forum
+as
+
+ function new (
+ forum_id in forums_forums.forum_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_forum',
+ name in forums_forums.name%TYPE,
+ charter in forums_forums.charter%TYPE default null,
+ presentation_type in forums_forums.presentation_type%TYPE,
+ posting_policy in forums_forums.posting_policy%TYPE,
+ package_id in forums_forums.package_id%TYPE,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_forums.forum_id%TYPE;
+
+ function name (
+ forum_id in forums_forums.forum_id%TYPE
+ ) return varchar;
+
+ procedure del (
+ forum_id in forums_forums.forum_id%TYPE
+ );
+
+end forums_forum;
+/
+show errors
+
+create or replace package body forums_forum
+as
+
+ function new (
+ forum_id in forums_forums.forum_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_forum',
+ name in forums_forums.name%TYPE,
+ charter in forums_forums.charter%TYPE default null,
+ presentation_type in forums_forums.presentation_type%TYPE,
+ posting_policy in forums_forums.posting_policy%TYPE,
+ package_id in forums_forums.package_id%TYPE,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_forums.forum_id%TYPE
+ is
+ v_forum_id forums_forums.forum_id%TYPE;
+ begin
+ v_forum_id := acs_object.new(
+ object_id => forum_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, package_id),
+ package_id => forums_forum.new.package_id,
+ title => name
+ );
+
+ insert into forums_forums
+ (forum_id, name, charter, presentation_type, posting_policy, package_id)
+ values
+ (v_forum_id, name, charter, presentation_type, posting_policy, package_id);
+
+ return v_forum_id;
+ end new;
+
+ function name (
+ forum_id in forums_forums.forum_id%TYPE
+ ) return varchar
+ is
+ v_name forums_forums.name%TYPE;
+ begin
+ select name
+ into v_name
+ from forums_forums
+ where forum_id = name.forum_id;
+
+ return v_name;
+ end name;
+
+ procedure del (
+ forum_id in forums_forums.forum_id%TYPE
+ )
+ is
+ begin
+ acs_object.del(forum_id);
+ end del;
+
+end forums_forum;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/forums-forums-package-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-forums-package-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-forums-package-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,15 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- The Package
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+-- drop script
+
+drop package forums_forum;
Index: dotlrn_packages/packages/forums/sql/oracle/forums-messages-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-messages-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-messages-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,95 @@
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert. Thanks Orchard Labs!
+--
+
+create table forums_messages (
+ message_id integer
+ constraint forums_message_id_fk
+ references acs_objects (object_id)
+ constraint forums_messages_pk
+ primary key,
+ forum_id integer
+ constraint forums_mess_forum_id_fk
+ references forums_forums (forum_id),
+ subject varchar(200),
+ content clob,
+ user_id integer
+ constraint forums_mess_user_id_fk
+ references users(user_id)
+ constraint forums_mess_user_id_nn
+ not null,
+ posting_date date
+ default sysdate
+ constraint forum_mess_post_date_nn
+ not null,
+ state varchar(100)
+ constraint forum_mess_state_ck
+ check (state in ('pending','approved','rejected')),
+ format varchar2(30)
+ default 'text/plain',
+ -- Hierarchy of messages
+ parent_id integer
+ constraint forum_mess_parent_id_fk
+ references forums_messages (message_id),
+ open_p char(1)
+ default 't'
+ constraint forum_mess_open_p_nn
+ not null
+ constraint forum_mess_open_p_ck
+ check (open_p in ('t','f')),
+ tree_sortkey raw(240),
+ max_child_sortkey raw(100),
+ last_child_post date,
+ reply_count integer default 0
+ constraint forums_mess_reply_count_ck
+ check (reply_count >= 0),
+ approved_reply_count integer default 0
+ constraint forums_mess_app_rep_count_ck
+ check (approved_reply_count >= 0),
+ last_poster integer
+ constraint forums_mess_last_poster_fk
+ references users(user_id),
+ constraint forums_mess_sk_forum_un
+ unique (tree_sortkey, forum_id)
+);
+
+-- We do a some big queries on forum_id (thread count on index.tcl) so create a second index
+-- ordered so it's useful for them
+create unique index forums_mess_forum_sk_un on forums_messages(forum_id, tree_sortkey);
+-- Need these for RI checks
+create index forums_messages_user_id_idx on forums_messages(user_id);
+create index forums_messages_parent_id_idx on forums_messages(parent_id);
+create index forum_messages_date_idx on forums_messages (forum_id, posting_date) compress 1;
+
+
+create view forums_messages_approved as
+ select *
+ from forums_messages
+ where state = 'approved';
+
+create view forums_messages_pending as
+ select *
+ from forums_messages
+ where state = 'pending';
+
+declare
+begin
+ acs_object_type.create_type (
+ supertype => 'acs_object',
+ object_type => 'forums_message',
+ pretty_name => 'Forums Message',
+ pretty_plural => 'Forums Messages',
+ table_name => 'forums_messages',
+ id_column => 'message_id',
+ package_name => 'forums_message',
+ name_method => 'forums_message.name'
+ );
+end;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/forums-messages-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-messages-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-messages-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,36 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert. Thanks Orchard Labs!
+--
+
+-- privileges
+-- NO PRIVILEGES FOR MESSAGES
+-- we don't individually permission messages
+
+--
+-- The Data Model
+--
+
+drop table forums_messages;
+
+--
+-- Object Type
+--
+
+declare
+begin
+ acs_object_type.drop_type (
+ object_type => 'forums_message'
+ );
+end;
+/
+show errors
+
+drop view forums_messages_pending;
+drop view forums_messages_approved;
\ No newline at end of file
Index: dotlrn_packages/packages/forums/sql/oracle/forums-messages-package-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-messages-package-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-messages-package-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,384 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- The Package for Messages
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+
+create or replace package forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ format in forums_messages.format%TYPE default 'text/plain',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure set_state(
+ message_id in forums_messages.message_id%TYPE,
+ state in forums_messages.state%TYPE
+ );
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar;
+
+end forums_message;
+/
+show errors
+
+create or replace package body forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ format in forums_messages.format%TYPE default 'text/plain',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id acs_objects.object_id%TYPE;
+ v_package_id acs_objects.package_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ begin
+ select package_id into v_package_id from forums_forums where forum_id = new.forum_id;
+
+ v_message_id := acs_object.new(
+ object_id => message_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, forum_id),
+ title => subject,
+ package_id => v_package_id
+ );
+
+ if state is null
+ then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id= new.forum_id;
+
+ if v_forum_policy = 'moderated' then
+ v_state := 'pending';
+ else
+ v_state := 'approved';
+ end if;
+ else
+ v_state := state;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, format, user_id, posting_date, last_child_post, parent_id, state, last_poster)
+ values
+ (v_message_id, forum_id, subject, content, format, user_id, posting_date, posting_date, parent_id, v_state, user_id);
+
+ select tree_sortkey into v_sortkey
+ from forums_messages
+ where message_id = v_message_id;
+
+ update forums_forums
+ set last_post = forums_message.new.posting_date
+ where forum_id = forums_message.new.forum_id;
+
+ -- DRB: Can't use root_message_id() here because it triggers a "mutating table" error
+
+ if parent_id is null then
+ if v_state = 'approved' then
+ update forums_forums
+ set thread_count = thread_count + 1,
+ approved_thread_count = approved_thread_count + 1
+ where forum_id = forums_message.new.forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count + 1
+ where forum_id=forums_message.new.forum_id;
+ end if;
+ else
+ if v_state = 'approved' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1,
+ reply_count = reply_count + 1,
+ last_poster = forums_message.new.user_id,
+ last_child_post = forums_message.new.posting_date
+ where forum_id = forums_message.new.forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+ else
+ update forums_messages
+ set reply_count = reply_count + 1
+ where forum_id = forums_message.new.forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+ end if;
+ end if;
+
+ return v_message_id;
+
+ end new;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id forums_messages.message_id%TYPE;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = root_message_id.message_id;
+
+ select message_id
+ into v_message_id
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end root_message_id;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_open.message_id;
+
+ update forums_messages
+ set open_p = 't'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 't'
+ where message_id = thread_open.message_id;
+ end thread_open;
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_close.message_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where message_id = thread_close.message_id;
+ end thread_close;
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_cur forums_messages%ROWTYPE;
+ begin
+
+ -- Maintain the forum thread counts
+
+ select * into v_cur
+ from forums_messages
+ where message_id = forums_message.del.message_id;
+
+ if v_cur.parent_id is null then
+ if v_cur.state = 'approved' then
+ update forums_forums
+ set thread_count = thread_count - 1,
+ approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ elsif v_cur.state = 'approved' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1,
+ reply_count = reply_count - 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ else
+ update forums_messages
+ set reply_count = reply_count - 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ end if;
+
+ acs_object.del(message_id);
+
+ end del;
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_message forums_messages%ROWTYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = delete_thread.message_id;
+
+ -- if it's already deleted
+ if SQL%NOTFOUND then
+ return;
+ end if;
+
+ -- delete all children
+ -- order by tree_sortkey desc to guarantee
+ -- that we never delete a parent before its child
+ -- sortkeys are beautiful
+ for v_message in (select *
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ order by tree_sortkey desc)
+ loop
+ forums_message.del(v_message.message_id);
+ end loop;
+
+ -- delete the message itself
+ forums_message.del(delete_thread.message_id);
+ end delete_thread;
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar
+ is
+ v_name forums_messages.subject%TYPE;
+ begin
+ select subject
+ into v_name
+ from forums_messages
+ where message_id = forums_message.name.message_id;
+
+ return v_name;
+ end name;
+
+ procedure set_state(
+ message_id in forums_messages.message_id%TYPE,
+ state in forums_messages.state%TYPE
+ )
+ is
+ v_cur forums_messages%ROWTYPE;
+ v_last_child_post forums_messages.last_child_post%TYPE;
+ begin
+
+ select * into v_cur
+ from forums_messages
+ where message_id = forums_message.set_state.message_id;
+
+ if v_cur.parent_id is null then
+ if state = 'approved' and v_cur.state <> 'approved' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count + 1
+ where forum_id=v_cur.forum_id;
+ elsif state <> 'approved' and v_cur.state = 'approved' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ else
+ if state = 'approved' and v_cur.state <> 'approved' then
+ select last_child_post into v_last_child_post
+ from forums_messages
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ if v_cur.posting_date > v_last_child_post then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1,
+ last_poster = v_cur.user_id,
+ last_child_post = v_cur.posting_date
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ else
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ end if;
+ elsif state <> 'approved' and v_cur.state = 'approved' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ end if;
+ end if;
+
+ update forums_messages
+ set state = forums_message.set_state.state
+ where message_id = forums_message.set_state.message_id;
+
+ end set_state;
+
+end forums_message;
+/
+show errors
+
Index: dotlrn_packages/packages/forums/sql/oracle/forums-messages-package-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-messages-package-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-messages-package-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,14 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- The Package for Messages
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+
+drop package forums_message;
Index: dotlrn_packages/packages/forums/sql/oracle/forums-notifications-init.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-notifications-init.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-notifications-init.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,118 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert's UBB forums. Thanks Orchard Labs.
+--
+
+-- the integration with Notifications
+
+declare
+ impl_id integer;
+ v_foo integer;
+begin
+ -- the notification type impl
+ impl_id := acs_sc_impl.new (
+ impl_contract_name => 'NotificationType',
+ impl_name => 'forums_forum_notif_type',
+ impl_pretty_name => 'forums_forum_notif_type',
+ impl_owner_name => 'forums'
+ );
+
+ v_foo := acs_sc_impl.new_alias (
+ 'NotificationType',
+ 'forums_forum_notif_type',
+ 'GetURL',
+ 'forum::notification::get_url',
+ 'TCL'
+ );
+
+ v_foo := acs_sc_impl.new_alias (
+ 'NotificationType',
+ 'forums_forum_notif_type',
+ 'ProcessReply',
+ 'forum::notification::process_reply',
+ 'TCL'
+ );
+
+ acs_sc_binding.new (
+ contract_name => 'NotificationType',
+ impl_name => 'forums_forum_notif_type'
+ );
+
+ v_foo:= notification_type.new (
+ short_name => 'forums_forum_notif',
+ sc_impl_id => impl_id,
+ pretty_name => 'Forum Notification',
+ description => 'Notifications for Entire Forums',
+ creation_user => NULL,
+ creation_ip => NULL
+ );
+
+ -- enable the various intervals and delivery methods
+ insert into notification_types_intervals
+ (type_id, interval_id)
+ select v_foo, interval_id
+ from notification_intervals where name in ('instant','hourly','daily');
+
+ insert into notification_types_del_methods
+ (type_id, delivery_method_id)
+ select v_foo, delivery_method_id
+ from notification_delivery_methods where short_name in ('email');
+
+ -- the notification type impl
+ impl_id := acs_sc_impl.new (
+ impl_contract_name => 'NotificationType',
+ impl_name => 'forums_message_notif_type',
+ impl_pretty_name => 'forums_message_notif_type',
+ impl_owner_name => 'forums'
+ );
+
+ v_foo := acs_sc_impl.new_alias (
+ 'NotificationType',
+ 'forums_message_notif_type',
+ 'GetURL',
+ 'forum::notification::get_url',
+ 'TCL'
+ );
+
+ v_foo := acs_sc_impl.new_alias (
+ 'NotificationType',
+ 'forums_message_notif_type',
+ 'ProcessReply',
+ 'forum::notification::process_reply',
+ 'TCL'
+ );
+
+ acs_sc_binding.new (
+ contract_name => 'NotificationType',
+ impl_name => 'forums_message_notif_type'
+ );
+
+ v_foo:= notification_type.new (
+ short_name => 'forums_message_notif',
+ sc_impl_id => impl_id,
+ pretty_name => 'Message Notification',
+ description => 'Notifications for Message Thread',
+ creation_user => NULL,
+ creation_ip => NULL
+ );
+
+ -- enable the various intervals and delivery methods
+ insert into notification_types_intervals
+ (type_id, interval_id)
+ select v_foo, interval_id
+ from notification_intervals where name in ('instant','hourly','daily');
+
+ insert into notification_types_del_methods
+ (type_id, delivery_method_id)
+ select v_foo, delivery_method_id
+ from notification_delivery_methods where short_name in ('email');
+
+end;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/forums-notifications-sanitize.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-notifications-sanitize.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-notifications-sanitize.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,128 @@
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert's UBB forums. Thanks Orchard Labs.
+--
+
+declare
+ v_foo integer;
+ v_impl_id integer;
+begin
+ -- forums_forum
+ v_impl_id := acs_sc_impl.get_id (
+ 'NotificationType', -- impl_contract_name
+ 'forums_forum_notif_type' -- impl_name
+ );
+
+ select type_id into v_foo from notification_types
+ where sc_impl_id = v_impl_id and short_name = 'forums_forum_notif';
+
+ delete from notification_types_intervals
+ where type_id = v_foo
+ and interval_id in (
+ select interval_id
+ from notification_intervals
+ where name in ('instant','hourly','daily')
+ );
+
+ delete from notification_types_del_methods
+ where type_id = v_foo
+ and delivery_method_id in (
+ select delivery_method_id
+ from notification_delivery_methods
+ where short_name in ('email')
+ );
+
+ for row in (select type_id
+ from notification_types
+ where short_name in ('forums_forum_notif'))
+ loop
+ notification_type.del(row.type_id);
+ end loop;
+
+ acs_sc_binding.del(
+ contract_name => 'NotificationType',
+ impl_name => 'forums_forum_notif_type'
+ );
+
+ v_foo := acs_sc_impl.delete_alias(
+ 'NotificationType',
+ 'forums_forum_notif_type',
+ 'GetURL'
+ );
+
+ v_foo := acs_sc_impl.delete_alias(
+ 'NotificationType',
+ 'forums_forum_notif_type',
+ 'ProcessReply'
+ );
+
+ acs_sc_impl.del(
+ 'NotificationType',
+ 'forums_forum_notif_type'
+ );
+
+ -- forums_message
+ v_impl_id := acs_sc_impl.get_id (
+ 'NotificationType', -- impl_contract_name
+ 'forums_message_notif_type' -- impl_name
+ );
+
+ select type_id into v_foo from notification_types
+ where sc_impl_id = v_impl_id and short_name = 'forums_message_notif';
+
+ delete from notification_types_intervals
+ where type_id = v_foo
+ and interval_id in (
+ select interval_id
+ from notification_intervals
+ where name in ('instant','hourly','daily')
+ );
+
+ delete from notification_types_del_methods
+ where type_id = v_foo
+ and delivery_method_id in (
+ select delivery_method_id
+ from notification_delivery_methods
+ where short_name in ('email')
+ );
+
+ for row in (select type_id
+ from notification_types
+ where short_name in ('forums_message_notif'))
+ loop
+ notification_type.del(row.type_id);
+ end loop;
+
+ acs_sc_binding.del(
+ contract_name => 'NotificationType',
+ impl_name => 'forums_message_notif_type'
+ );
+
+ v_foo := acs_sc_impl.delete_alias(
+ 'NotificationType',
+ 'forums_message_notif_type',
+ 'GetURL'
+ );
+
+ v_foo := acs_sc_impl.delete_alias(
+ 'NotificationType',
+ 'forums_message_notif_type',
+ 'ProcessReply'
+ );
+
+ acs_sc_impl.del(
+ 'NotificationType',
+ 'forums_message_notif_type'
+ );
+end;
+/
+show errors
+
+
+
+
Index: dotlrn_packages/packages/forums/sql/oracle/forums-reading-info-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-reading-info-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-reading-info-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,50 @@
+--
+-- The Forums Package
+--
+-- @author David Arroyo darroyo@innova.uned.es
+-- @creation-date 01-06-2007
+-- @version $Id$
+--
+-- This is free software distributed under the terms of the GNU Public
+-- License version 2 or later. Full text of the license is available from the GNU Project:
+-- http://www.fsf.org/copyleft/gpl.html
+
+
+-- Tables to reading information
+
+
+create table forums_reading_info (
+ root_message_id integer
+ constraint forums_read_i_parent_id_fk
+ references forums_messages (message_id)
+ on delete cascade,
+ user_id integer
+ constraint forums_read_i_user_id_fk
+ references users(user_id)
+ constraint forums_read_i_user_id_nn
+ not null,
+ reading_date date
+ default sysdate
+ constraint forums_read_i_datetime_nn
+ not null,
+ constraint forums_reading_info_pk primary key (root_message_id,user_id)
+);
+create index forums_reading_info_user_index on forums_reading_info (user_id);
+create index forums_reading_info_forum_idx on forums_reading_info (root_message_id);
+
+create table forums_reading_info_user (
+ forum_id integer
+ constraint forums_read_iu_forum_id_fk
+ references forums_forums (forum_id) on delete cascade,
+ user_id integer
+ constraint forums_read_iu_user_id_fk
+ references users(user_id) on delete cascade
+ constraint forums_read_iu_user_id_nn
+ not null,
+ threads_read integer
+ default 0
+ not null,
+ constraint forums_reading_info_user_pk primary key (forum_id,user_id)
+);
+
+
Index: dotlrn_packages/packages/forums/sql/oracle/forums-reading-info-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-reading-info-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-reading-info-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,18 @@
+--
+-- The Forums Package
+--
+-- @author David Arroyo darroyo@innova.uned.es
+-- @creation-date 01-06-2007
+-- @version $Id$
+--
+-- This is free software distributed under the terms of the GNU Public
+-- License version 2 or later. Full text of the license is available from the GNU Project:
+-- http://www.fsf.org/copyleft/gpl.html
+
+
+-- Tables to reading information
+
+drop table forums_reading_info_user;
+drop index forums_reading_info_forum_idx;
+drop index forums_reading_info_user_index;
+drop table forums_reading_info;
\ No newline at end of file
Index: dotlrn_packages/packages/forums/sql/oracle/forums-reading-info-package-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-reading-info-package-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-reading-info-package-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,213 @@
+
+--
+-- The Forums Package
+--
+-- @author David Arroyo Menéndez darroyo@innova.uned.es
+-- @creation-date 2007-05-30
+--
+-- The Package for Reading Info
+--
+--
+
+create or replace package forum_reading_info
+as
+-- remove reading_info for thread (upon new message, upon message deletion, or state change)
+ procedure remove_msg (
+ p_message_id in forums_messages.message_id%TYPE
+ );
+
+-- mark_all_read
+ procedure user_add_forum (
+ p_forum_id in forums_forums.forum_id%TYPE,
+ p_user_id in users.user_id%TYPE
+ );
+
+-- mark message read for user
+ procedure user_add_msg (
+ p_root_message_id in forums_messages.message_id%TYPE,
+ p_user_id in users.user_id%TYPE
+ );
+
+-- move thread to other forum
+ procedure move_update (
+ p_message_id in forums_messages.message_id%TYPE,
+ p_old_forum_id in forums_forums.forum_id%TYPE,
+ p_new_forum_id in forums_forums.forum_id%TYPE
+ );
+
+-- move thread to other thread
+ procedure move_thread_th_update (
+ p_source_message_id in forums_messages.message_id%TYPE,
+ p_source_forum_id in forums_forums.forum_id%TYPE,
+ p_target_message_id in forums_messages.message_id%TYPE
+ );
+
+-- move message to other thread
+ procedure move_thread_update (
+ p_source_message_id in forums_messages.message_id%TYPE,
+ p_source_old_root_message_id in forums_messages.message_id%TYPE,
+ p_target_message_id in forums_messages.message_id%TYPE
+ );
+
+-- recount reading_info_user from reading_info
+-- procedure repair_reading_info ();
+
+end forum_reading_info;
+/
+show errors
+
+
+
+create or replace package body forum_reading_info
+as
+-- remove reading_info for thread (upon new message, upon message deletion, or state change)
+ procedure remove_msg (
+ p_message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id integer;
+ cursor c_reading is select user_id from forums_reading_info where root_message_id = p_message_id;
+ begin
+ select forum_id into v_forum_id from forums_messages where message_id = p_message_id;
+ for v_reading in c_reading
+ loop
+ delete from forums_reading_info
+ where root_message_id = p_message_id and
+ user_id = v_reading.user_id;
+ update forums_reading_info_user set threads_read=threads_read-1 where forum_id=v_forum_id and user_id=v_reading.user_id;
+ end loop;
+ end remove_msg;
+
+-- mark_all_read:
+ procedure user_add_forum (
+ p_forum_id in forums_forums.forum_id%TYPE,
+ p_user_id in users.user_id%TYPE
+ )
+ is
+ v_message forums_messages_approved%ROWTYPE;
+ v_read_p forums_reading_info%ROWTYPE;
+ begin
+ for v_message in (select message_id
+ from forums_messages_approved
+ where forum_id = p_forum_id
+ and parent_id is null)
+ loop
+ begin
+ select * into v_read_p from forums_reading_info where user_id = p_user_id and root_message_id = v_message.message_id;
+ exception
+ when others then
+ if sql%notfound then -- check for 'no data found'
+ insert into forums_reading_info
+ (root_message_id,user_id)
+ values
+ (v_message.message_id,p_user_id);
+ end if;
+ end;
+ end loop;
+ end user_add_forum;
+
+-- mark message read for user
+ procedure user_add_msg (
+ p_root_message_id in forums_messages.message_id%TYPE,
+ p_user_id in users.user_id%TYPE
+ )
+ is
+ v_forum_id integer;
+ v_read_p varchar(1);
+ v_exists varchar(1);
+ begin
+ select forum_id into v_forum_id from forums_messages where message_id = p_root_message_id;
+ begin
+ select 1 into v_read_p from forums_reading_info where user_id = p_user_id and root_message_id = p_root_message_id;
+ insert into forums_reading_info (root_message_id,user_id) values (p_root_message_id,p_user_id);
+ exception
+ when others then
+ if sql%notfound then -- check for 'no data found'
+ insert into forums_reading_info (root_message_id,user_id) values (p_root_message_id,p_user_id);
+ begin
+ INSERT INTO forums_reading_info_user(forum_id,user_id,threads_read) VALUES (v_forum_id,p_user_id,1);
+ SELECT 1 into v_exists FROM forums_reading_info_user WHERE forum_id=v_forum_id AND user_id=p_user_id;
+ exception
+ when others then
+ if sql%notfound then -- check for 'no data found'
+ UPDATE forums_reading_info_user SET threads_read=threads_read+1 WHERE forum_id=v_forum_id AND user_id=p_user_id;
+ end if;
+ end;
+ end if;
+ end;
+ end user_add_msg;
+
+-- move thread to other forum
+ procedure move_update (
+ p_message_id in forums_messages.message_id%TYPE,
+ p_old_forum_id in forums_forums.forum_id%TYPE,
+ p_new_forum_id in forums_forums.forum_id%TYPE
+ ) is
+ v_users forums_reading_info%ROWTYPE;
+ v_threads integer;
+ begin
+ for v_users in (select user_id from forums_reading_info where root_message_id = p_message_id)
+ loop
+ -- down the number of threads read in old forum
+ update forums_reading_info_user set threads_read=threads_read-1 where forum_id=p_old_forum_id and user_id=v_users.user_id;
+ -- up the number of thread read in new forum
+ select count(*) into v_threads from forums_reading_info_user where forum_id = p_new_forum_id and user_id = v_users.user_id;
+ if v_threads = 0 then
+ insert into forums_reading_info_user (forum_id,user_id,threads_read)
+ values (p_new_forum_id,v_users.user_id,1);
+ else
+ update forums_reading_info_user set threads_read = threads_read + 1
+ where forum_id = p_new_forum_id and user_id = v_users.user_id;
+ end if;
+
+ end loop;
+ end move_update;
+
+-- move thread to other thread
+ procedure move_thread_th_update (
+ p_source_message_id in forums_messages.message_id%TYPE,
+ p_source_forum_id in forums_forums.forum_id%TYPE,
+ p_target_message_id in forums_messages.message_id%TYPE
+ ) is
+ v_target_forum_id forums_forums.forum_id%TYPE;
+ v_users forums_reading_info%ROWTYPE;
+ begin
+ select forum_id into v_target_forum_id from forums_messages where message_id = p_target_message_id;
+ -- for all users that have read target, but not the source, remove target_info
+ for v_users in (select user_id from forums_reading_info fri where root_message_id = p_target_message_id and not exists (select 1 from forums_reading_info where root_message_id = p_source_message_id and user_id = fri.user_id))
+ loop
+ delete from forums_reading_info where root_message_id = p_target_message_id and user_id = v_users.user_id;
+ -- down the number of threads read in target forum
+ update forums_reading_info_user set threads_read=threads_read-1 where forum_id = v_target_forum_id and user_id = v_users.user_id;
+ end loop;
+ -- for all users that have read source, down the nummber of thread in source forum and remove reading info four source message since it no longer is root_message_id
+ for v_users in (select user_id from forums_reading_info where root_message_id = p_source_message_id)
+ loop
+ delete from forums_reading_info where root_message_id=p_source_message_id and user_id=v_users.user_id;
+ update forums_reading_info_user set threads_read=threads_read-1 where forum_id = p_source_forum_id and user_id = v_users.user_id;
+ end loop;
+ end move_thread_th_update;
+
+-- move message to other thread
+ procedure move_thread_update (
+ p_source_message_id in forums_messages.message_id%TYPE,
+ p_source_old_root_message_id in forums_messages.message_id%TYPE,
+ p_target_message_id in forums_messages.message_id%TYPE
+ ) is
+ v_target_forum_id forums_forums.forum_id%TYPE;
+ v_users forums_reading_info%ROWTYPE;
+ begin
+ select forum_id from forums_messages where message_id = p_target_message_id into v_target_forum_id;
+ for v_users in (select user_id from forums_reading_info fri where root_message_id = p_target_message_id and not exists(select 1 from forums_reading_info where root_message_id = p_source_old_root_message_id and user_id = fri.user_id))
+ loop
+ delete from forums_reading_info where root_message_id = p_target_message_id and user_id = v_users.user_id;
+ -- down the number of threads read in target forum
+ update forums_reading_info_user set threads_read = threads_read-1
+ where forum_id = v_target_forum_id and user_id = v_users.user_id;
+ end loop;
+
+ end move_thread_update;
+
+end forum_reading_info;
+/
+show errors
\ No newline at end of file
Index: dotlrn_packages/packages/forums/sql/oracle/forums-search-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-search-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-search-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,273 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- Support for searching of forum messages
+--
+-- @author yon@openforce.net
+-- @creation-date 2002-07-01
+-- @version $Id$
+--
+
+
+
+-- Call this script like this:
+--
+-- sqlplus /nolog @forums-search-create.sql
+--
+-- &1 = ctxsys password
+-- &2 = OpenACS database user
+-- &3 = OpenACS database password
+
+
+connect &2/&3;
+
+-- as normal user
+create or replace procedure index_message (
+ rid in rowid,
+ tlob in out NOCOPY clob
+)
+is
+ offset number := 1;
+begin
+
+ for row in (select forums_messages.subject,
+ forums_messages.content,
+ persons.first_names,
+ persons.last_name
+ from forums_messages,
+ persons
+ where forums_messages.rowid = rid
+ and forums_messages.user_id = persons.person_id)
+ loop
+ dbms_lob.writeappend(tlob, length(row.subject) + 1, ' ' || row.subject);
+ dbms_lob.append(tlob, row.content);
+ dbms_lob.writeappend(tlob, length(row.first_names) + 1, ' ' || row.first_names);
+ dbms_lob.writeappend(tlob, length(row.last_name) + 1, ' ' || row.last_name);
+ end loop;
+
+end;
+/
+show errors
+
+-- as ctxsys
+connect ctxsys/&1;
+
+create or replace procedure s_index_message (
+ rid in rowid,
+ tlob in out NOCOPY clob
+)
+is
+begin
+ &2..index_message(rid, tlob);
+end;
+/
+show errors
+
+grant execute on s_index_message to &2;
+grant execute on ctx_ddl to &2;
+
+-- as normal user
+connect &2/&3;
+
+execute ctx_ddl.create_preference('forums_user_datastore', 'user_datastore');
+execute ctx_ddl.set_attribute('forums_user_datastore', 'procedure', 's_index_message');
+
+create index forums_content_idx
+ on forums_messages (content)
+ indextype is ctxsys.context
+ parameters ('datastore forums_user_datastore');
+
+declare
+ v_job number;
+begin
+ dbms_job.submit(
+ job => v_job,
+ what => 'ctxsys.ctx_ddl.sync_index(''forums_content_idx'');',
+ interval => 'sysdate + 1/24'
+ );
+end;
+/
+show errors
+
+-- ripped off from site-wide-search
+
+-- if we pass in a very long string to im_convert, we will end up with internal
+-- strings that are too long. Because this is relatively hard to debug,
+-- we wrote im_convert_length_check to throw a more appropriate error message
+-- Note that we raise an exception because passing such a long query to
+-- interMedia is pretty slow. Alternative to the application error are to
+-- 1. return the string as is
+-- 2. increase the max length from 256 to 1024
+-- mbryzek@arsdigita.com, 7/6/2000
+create or replace procedure im_convert_length_check (
+ p_string in varchar2,
+ p_number_chars_to_append in number,
+ p_max_length in number,
+ p_variable_name in varchar2
+)
+is
+begin
+ if nvl(length(p_string),0) + p_number_chars_to_append > p_max_length
+ then
+ raise_application_error(-20000, 'Variable "' || p_variable_name || '" exceeds ' || p_max_length || ' character declaration');
+ end if;
+end;
+/
+show errors;
+
+-- this proc takes user supplied free text and transforms it into an interMedia
+-- friendly query string. (provided by oracle).
+create or replace function im_convert (
+ query in varchar2 default null
+) return varchar2
+is
+ i number := 0;
+ len number := 0;
+ char varchar2(1);
+ minusString varchar2(256) := '';
+ plusString varchar2(256) := '';
+ mainString varchar2(256) := '';
+ mainAboutString varchar2(500) := '';
+ finalString varchar2(500) := '';
+ hasMain number := 0;
+ hasPlus number := 0;
+ hasMinus number := 0;
+ token varchar2(256);
+ tokenStart number := 1;
+ tokenFinish number := 0;
+ inPhrase number := 0;
+ inPlus number := 0;
+ inWord number := 0;
+ inMinus number := 0;
+ completePhrase number := 0;
+ completeWord number := 0;
+ code number := 0;
+begin
+
+ len := length(query);
+
+ -- we iterate over the string to find special web operators
+ for i in 1..len loop
+ char := substr(query,i,1);
+ if(char = '"') then
+ if(inPhrase = 0) then
+ inPhrase := 1;
+ tokenStart := i;
+ else
+ inPhrase := 0;
+ completePhrase := 1;
+ tokenFinish := i-1;
+ end if;
+ elsif(char = ' ') then
+ if(inPhrase = 0) then
+ completeWord := 1;
+ tokenFinish := i-1;
+ end if;
+ elsif(char = '+') then
+ inPlus := 1;
+ tokenStart := i+1;
+ elsif((char = '-') and (i = tokenStart)) then
+ inMinus :=1;
+ tokenStart := i+1;
+ end if;
+
+ if(completeWord=1) then
+ token := '{ '||substr(query,tokenStart,tokenFinish-tokenStart+1)||' }';
+ if(inPlus=1) then
+ im_convert_length_check(plusString, 4+length(token), 256, 'plusString');
+ plusString := plusString||','||token||'*10';
+ hasPlus :=1;
+ elsif(inMinus=1) then
+ im_convert_length_check(minusString, 4+length(token), 256, 'minusString');
+ minusString := minusString||'OR '||token||' ';
+ hasMinus :=1;
+ else
+ im_convert_length_check(mainString, 6+length(token), 256, 'mainString');
+ mainString := mainString||' NEAR '||token;
+ im_convert_length_check(mainAboutString, 1+length(token), 500, 'mainAboutString');
+ mainAboutString := mainAboutString||' '||token;
+ hasMain :=1;
+ end if;
+ tokenStart :=i+1;
+ tokenFinish :=0;
+ inPlus := 0;
+ inMinus :=0;
+ end if;
+ completePhrase := 0;
+ completeWord :=0;
+ end loop;
+
+ -- find the last token
+ token := '{ '||substr(query,tokenStart,len-tokenStart+1)||' }';
+ if(inPlus=1) then
+ im_convert_length_check(plusString, 4+length(token), 256, 'plusString');
+ plusString := plusString||','||token||'*10';
+ hasPlus :=1;
+ elsif(inMinus=1) then
+ im_convert_length_check(minusString, 4+length(token), 256, 'minusString');
+ minusString := minusString||'OR '||token||' ';
+ hasMinus :=1;
+ else
+ im_convert_length_check(mainString, 6+length(token), 256, 'mainString');
+ mainString := mainString||' NEAR '||token;
+ im_convert_length_check(mainAboutString, 1+length(token), 500, 'mainAboutString');
+ mainAboutString := mainAboutString||' '||token;
+ hasMain :=1;
+ end if;
+
+ mainString := substr(mainString,6,length(mainString)-5);
+ mainAboutString := replace(mainAboutString,'{',' ');
+ mainAboutString := replace(mainAboutString,'}',' ');
+ mainAboutString := replace(mainAboutString,')',' ');
+ mainAboutString := replace(mainAboutString,'(',' ');
+ plusString := substr(plusString,2,length(plusString)-1);
+ minusString := substr(minusString,4,length(minusString)-4);
+
+ -- let's just check once for the length of finalString... note this uses the
+ -- longest possible string that is created in the rest of this function
+ im_convert_length_check(finalString, nvl(length(mainString),0) + nvl(length(mainAboutString),0) + nvl(length(minusString),0) + nvl(length(plusString),0) + 30, 500, 'finalString');
+
+ -- we find the components present and then process them based on the specific combinations
+ code := hasMain*4+hasPlus*2+hasMinus;
+ if(code = 7) then
+ finalString := '('||plusString||','||mainString||'*2.0,about('||mainAboutString||')*0.5) NOT ('||minusString||')';
+ elsif (code = 6) then
+ finalString := plusString||','||mainString||'*2.0'||',about('||mainAboutString||')*0.5';
+ elsif (code = 5) then
+ finalString := '('||mainString||',about('||mainAboutString||')) NOT ('||minusString||')';
+ elsif (code = 4) then
+ finalString := mainString;
+ finalString := replace(finalString,'*1,',NULL);
+ finalString := '('||finalString||')*2.0,about('||mainAboutString||')';
+ elsif (code = 3) then
+ finalString := '('||plusString||') NOT ('||minusString||')';
+ elsif (code = 2) then
+ finalString := plusString;
+ elsif (code = 1) then
+ -- not is a binary operator for intermedia text
+ finalString := 'totallyImpossibleString'||' NOT ('||minusString||')';
+ elsif (code = 0) then
+ finalString := '';
+ end if;
+
+ return finalString;
+end;
+/
+show errors;
+
+exit
+
Index: dotlrn_packages/packages/forums/sql/oracle/forums-search-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-search-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-search-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,66 @@
+--
+-- Copyright (C) 2001, 2002 MIT
+--
+-- This file is part of dotLRN.
+--
+-- dotLRN is free software; you can redistribute it and/or modify it under the
+-- terms of the GNU General Public License as published by the Free Software
+-- Foundation; either version 2 of the License, or (at your option) any later
+-- version.
+--
+-- dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+-- WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+-- FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+-- details.
+--
+
+--
+-- Support for searching of forum messages
+--
+-- @author yon@openforce.net
+-- @creation-date 2002-07-01
+-- @version $Id$
+--
+
+-- Call this script like this:
+--
+-- sqlplus /nolog @forums-search-create.sql
+--
+-- &1 = ctxsys password
+-- &2 = OpenACS database user
+-- &3 = OpenACS database password
+
+
+connect &2/&3;
+
+drop function im_convert;
+drop procedure im_convert_length_check;
+
+declare
+begin
+ for row in (select job
+ from user_jobs
+ where what like '%&2..forums_content_idx%')
+ loop
+ dbms_job.remove(job => row.job);
+ end loop;
+end;
+/
+show errors
+
+drop index forums_content_idx;
+
+execute ctx_ddl.unset_attribute('forums_user_datastore', 'procedure');
+execute ctx_ddl.drop_preference('forums_user_datastore');
+
+-- as ctxsys
+connect ctxsys/&1;
+
+drop procedure s_index_message;
+
+-- as normal user
+connect &2/&3;
+
+drop procedure index_message;
+
+exit
Index: dotlrn_packages/packages/forums/sql/oracle/forums-tree-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-tree-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-tree-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,59 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert. Thanks Orchard Labs!
+--
+
+--
+-- This is the sortkey code
+--
+
+create or replace trigger forums_mess_insert_tr
+before insert on forums_messages
+for each row
+declare
+ v_max_child_sortkey forums_messages.max_child_sortkey%TYPE;
+ v_parent_sortkey forums_messages.tree_sortkey%TYPE;
+begin
+
+ if :new.parent_id is null
+ then
+
+ select '', max_child_sortkey
+ into v_parent_sortkey, v_max_child_sortkey
+ from forums_forums
+ where forum_id = :new.forum_id
+ for update of max_child_sortkey;
+
+ v_max_child_sortkey := tree.increment_key(v_max_child_sortkey);
+
+ update forums_forums
+ set max_child_sortkey = v_max_child_sortkey
+ where forum_id = :new.forum_id;
+
+ else
+
+ select nvl(tree_sortkey, ''), max_child_sortkey
+ into v_parent_sortkey, v_max_child_sortkey
+ from forums_messages
+ where message_id = :new.parent_id
+ for update of max_child_sortkey;
+
+ v_max_child_sortkey := tree.increment_key(v_max_child_sortkey);
+
+ update forums_messages
+ set max_child_sortkey = v_max_child_sortkey
+ where message_id = :new.parent_id;
+
+ end if;
+
+ :new.tree_sortkey := v_parent_sortkey || v_max_child_sortkey;
+
+end forums_mess_insert_tr;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/forums-tree-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/forums-tree-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/forums-tree-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,12 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert. Thanks Orchard Labs!
+--
+
+drop trigger forums_mess_insert_tr;
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-0.1d-0.2d.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-0.1d-0.2d.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-0.1d-0.2d.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,328 @@
+alter table forums_forums add (last_post date);
+alter table forums_messages add (last_child_post date);
+
+declare
+ v_date date;
+begin
+
+ for row in (select forum_id
+ from forums_forums)
+ loop
+
+ select last_modified into v_date
+ from acs_objects
+ where object_id = row.forum_id;
+
+ update forums_forums
+ set last_post = v_date
+ where forum_id = row.forum_id;
+
+ end loop;
+
+ for row in (select message_id
+ from forums_messages
+ where parent_id is null)
+ loop
+
+ -- forums 0.1d did not properly set the last_modified field of the object
+ -- row associated with the root message of a thread, so we need to calculate
+ -- it here.
+
+ select max(o.last_modified) into v_date
+ from acs_objects o, forums_messages fm
+ where forums_message.root_message_id(fm.message_id) = row.message_id
+ and object_id = fm.message_id;
+
+ update forums_messages
+ set last_child_post = v_date
+ where message_id = row.message_id;
+
+ end loop;
+
+end;
+/
+show errors;
+
+drop view forums_messages_approved;
+create view forums_messages_approved
+as
+ select *
+ from forums_messages
+ where state = 'approved';
+
+drop view forums_messages_pending;
+create view forums_messages_pending
+as
+ select *
+ from forums_messages
+ where state= 'pending';
+
+drop view forums_forums_enabled;
+create view forums_forums_enabled
+as
+ select *
+ from forums_forums
+ where enabled_p = 't';
+
+create or replace package body forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ html_p in forums_messages.html_p%TYPE default 'f',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id acs_objects.object_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ begin
+
+ v_message_id := acs_object.new(
+ object_id => message_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, forum_id)
+ );
+
+ if state is null
+ then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id= new.forum_id;
+
+ if v_forum_policy = 'moderated' then
+ v_state := 'pending';
+ else
+ v_state := 'approved';
+ end if;
+ else
+ v_state := state;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, state)
+ values
+ (v_message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, v_state);
+
+ -- DRB: Can't use root_message_id() here because it triggers a "mutating table" error
+
+ select tree_sortkey into v_sortkey
+ from forums_messages
+ where message_id = v_message_id;
+
+ update forums_forums
+ set last_post = posting_date
+ where forum_id = forums_message.new.forum_id;
+
+ update forums_messages
+ set last_child_post = posting_date
+ where forum_id = forums_message.new.forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end new;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id forums_messages.message_id%TYPE;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = root_message_id.message_id;
+
+ select message_id
+ into v_message_id
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end root_message_id;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_open.message_id;
+
+ update forums_messages
+ set open_p = 't'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 't'
+ where message_id = thread_open.message_id;
+ end thread_open;
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_close.message_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where message_id = thread_close.message_id;
+ end thread_close;
+
+ procedure delete (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ begin
+ acs_object.delete(message_id);
+ end delete;
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_message forums_messages%ROWTYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = delete_thread.message_id;
+
+ -- if it's already deleted
+ if SQL%NOTFOUND then
+ return;
+ end if;
+
+ -- delete all children
+ -- order by tree_sortkey desc to guarantee
+ -- that we never delete a parent before its child
+ -- sortkeys are beautiful
+ for v_message in (select *
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ order by tree_sortkey desc)
+ loop
+ forums_message.delete(v_message.message_id);
+ end loop;
+
+ -- delete the message itself
+ forums_message.delete(delete_thread.message_id);
+ end delete_thread;
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar
+ is
+ v_name forums_messages.subject%TYPE;
+ begin
+ select subject
+ into v_name
+ from forums_messages
+ where message_id = forums_message.name.message_id;
+
+ return v_name;
+ end name;
+
+end forums_message;
+/
+show errors
+
+create or replace package body forums_forum
+as
+
+ function new (
+ forum_id in forums_forums.forum_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_forum',
+ name in forums_forums.name%TYPE,
+ charter in forums_forums.charter%TYPE default null,
+ presentation_type in forums_forums.presentation_type%TYPE,
+ posting_policy in forums_forums.posting_policy%TYPE,
+ package_id in forums_forums.package_id%TYPE,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_forums.forum_id%TYPE
+ is
+ v_forum_id forums_forums.forum_id%TYPE;
+ begin
+ v_forum_id := acs_object.new(
+ object_id => forum_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, package_id)
+ );
+
+ insert into forums_forums
+ (forum_id, name, charter, presentation_type, posting_policy, package_id)
+ values
+ (v_forum_id, name, charter, presentation_type, posting_policy, package_id);
+
+ return v_forum_id;
+ end new;
+
+ function name (
+ forum_id in forums_forums.forum_id%TYPE
+ ) return varchar
+ is
+ v_name forums_forums.name%TYPE;
+ begin
+ select name
+ into v_name
+ from forums_forums
+ where forum_id = name.forum_id;
+
+ return v_name;
+ end name;
+
+ procedure delete (
+ forum_id in forums_forums.forum_id%TYPE
+ )
+ is
+ begin
+ acs_object.delete(forum_id);
+ end delete;
+
+end forums_forum;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-0.2d-0.3d.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-0.2d-0.3d.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-0.2d-0.3d.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,6 @@
+-- forums/sql/oracle/upgrade-0.2d-0.3d.sql
+--
+-- Changes for scalability davis@xarg.net
+
+create unique index forums_mess_forum_sk_un on forums_messages(forum_id, tree_sortkey);
+
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-0.3d-0.4d.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-0.3d-0.4d.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-0.3d-0.4d.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,3 @@
+-- Need these two for RI checks
+create index forums_messages_user_id_idx ON forums_messages(user_id);
+create index forums_messages_parent_id_idx ON forums_messages(parent_id);
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0.6-1.0.7d.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0.6-1.0.7d.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0.6-1.0.7d.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,492 @@
+alter table forums_forums add (thread_count integer default 0);
+alter table forums_forums add (approved_thread_count integer default 0);
+
+alter table forums_messages add (reply_count integer default 0);
+alter table forums_messages add (approved_reply_count integer default 0);
+
+create or replace view forums_forums_enabled
+as
+ select *
+ from forums_forums
+ where enabled_p = 't';
+
+create or replace view forums_messages_approved
+as
+ select *
+ from forums_messages
+ where state = 'approved';
+
+create or replace view forums_messages_pending
+as
+ select *
+ from forums_messages
+ where state= 'pending';
+
+update forums_forums
+set approved_thread_count = (select count(message_id)
+ from forums_messages_approved fm
+ where fm.forum_id=forums_forums.forum_id
+ and fm.parent_id is null),
+ thread_count = (select count(message_id)
+ from forums_messages fm
+ where fm.forum_id=forums_forums.forum_id
+ and fm.parent_id is null);
+
+update forums_messages
+set approved_reply_count = (select count(*)
+ from forums_messages_approved fm1
+ where fm1.tree_sortkey
+ between tree.left(forums_messages.tree_sortkey)
+ and tree.right(forums_messages.tree_sortkey)
+ and forums_messages.forum_id = fm1.forum_id),
+ reply_count = (select count(*)
+ from forums_messages fm1
+ where fm1.tree_sortkey
+ between tree.left(forums_messages.tree_sortkey)
+ and tree.right(forums_messages.tree_sortkey)
+ and forums_messages.forum_id = fm1.forum_id)
+where parent_id is null;
+
+create or replace package forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ format in forums_messages.format%TYPE default 'text/plain',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure set_state(
+ message_id in forums_messages.message_id%TYPE,
+ state in forums_messages.state%TYPE
+ );
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar;
+
+end forums_message;
+/
+show errors
+
+create or replace package body forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ format in forums_messages.format%TYPE default 'text/plain',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id acs_objects.object_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ begin
+
+ v_message_id := acs_object.new(
+ object_id => message_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, forum_id)
+ );
+
+ if state is null
+ then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id= new.forum_id;
+
+ if v_forum_policy = 'moderated' then
+ v_state := 'pending';
+ else
+ v_state := 'approved';
+ end if;
+ else
+ v_state := state;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, format, user_id, posting_date, last_child_post, parent_id, state)
+ values
+ (v_message_id, forum_id, subject, content, format, user_id, posting_date, posting_date, parent_id, v_state);
+
+ select tree_sortkey into v_sortkey
+ from forums_messages
+ where message_id = v_message_id;
+
+ update forums_forums
+ set last_post = forums_message.new.posting_date
+ where forum_id = forums_message.new.forum_id;
+
+ -- DRB: Can't use root_message_id() here because it triggers a "mutating table" error
+
+ if parent_id is null then
+ if v_state = 'approved' then
+ update forums_forums
+ set thread_count = thread_count + 1,
+ approved_thread_count = approved_thread_count + 1
+ where forum_id = forums_message.new.forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count + 1
+ where forum_id=forums_message.new.forum_id;
+ end if;
+ else
+ if v_state = 'approved' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1,
+ reply_count = reply_count + 1,
+ last_child_post = sysdate
+ where forum_id = forums_message.new.forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+ else
+ update forums_messages
+ set reply_count = reply_count + 1,
+ last_child_post = sysdate
+ where forum_id = forums_message.new.forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+ end if;
+ end if;
+
+ return v_message_id;
+
+ end new;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id forums_messages.message_id%TYPE;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = root_message_id.message_id;
+
+ select message_id
+ into v_message_id
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end root_message_id;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_open.message_id;
+
+ update forums_messages
+ set open_p = 't'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 't'
+ where message_id = thread_open.message_id;
+ end thread_open;
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_close.message_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where message_id = thread_close.message_id;
+ end thread_close;
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_cur forums_messages%ROWTYPE;
+ begin
+
+ -- Maintain the forum thread counts
+
+ select * into v_cur
+ from forums_messages
+ where message_id = forums_message.del.message_id;
+
+ if v_cur.parent_id is null then
+ if v_cur.state = 'approved' then
+ update forums_forums
+ set thread_count = thread_count - 1,
+ approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ elsif v_cur.state = 'approved' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1,
+ reply_count = reply_count - 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ else
+ update forums_messages
+ set reply_count = reply_count - 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ end if;
+
+ acs_object.del(message_id);
+
+ end del;
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_message forums_messages%ROWTYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = delete_thread.message_id;
+
+ -- if it's already deleted
+ if SQL%NOTFOUND then
+ return;
+ end if;
+
+ -- delete all children
+ -- order by tree_sortkey desc to guarantee
+ -- that we never delete a parent before its child
+ -- sortkeys are beautiful
+ for v_message in (select *
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ order by tree_sortkey desc)
+ loop
+ forums_message.del(v_message.message_id);
+ end loop;
+
+ -- delete the message itself
+ forums_message.del(delete_thread.message_id);
+ end delete_thread;
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar
+ is
+ v_name forums_messages.subject%TYPE;
+ begin
+ select subject
+ into v_name
+ from forums_messages
+ where message_id = forums_message.name.message_id;
+
+ return v_name;
+ end name;
+
+ procedure set_state(
+ message_id in forums_messages.message_id%TYPE,
+ state in forums_messages.state%TYPE
+ )
+ is
+ v_cur forums_messages%ROWTYPE;
+ begin
+
+ select * into v_cur
+ from forums_messages
+ where message_id = forums_message.set_state.message_id;
+
+ if v_cur.parent_id is null then
+ if state = 'approved' and v_cur.state <> 'approved' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count + 1
+ where forum_id=v_cur.forum_id;
+ elsif state <> 'approved' and v_cur.state = 'approved' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ else
+ if state = 'approved' and v_cur.state <> 'approved' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ elsif state <> 'approved' and v_cur.state = 'approved' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ end if;
+ end if;
+
+ update forums_messages
+ set state = forums_message.set_state.state
+ where message_id = forums_message.set_state.message_id;
+
+ end set_state;
+
+end forums_message;
+/
+show errors
+
+create or replace package forums_forum
+as
+
+ function new (
+ forum_id in forums_forums.forum_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_forum',
+ name in forums_forums.name%TYPE,
+ charter in forums_forums.charter%TYPE default null,
+ presentation_type in forums_forums.presentation_type%TYPE,
+ posting_policy in forums_forums.posting_policy%TYPE,
+ package_id in forums_forums.package_id%TYPE,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_forums.forum_id%TYPE;
+
+ function name (
+ forum_id in forums_forums.forum_id%TYPE
+ ) return varchar;
+
+ procedure del (
+ forum_id in forums_forums.forum_id%TYPE
+ );
+
+end forums_forum;
+/
+show errors
+
+create or replace package body forums_forum
+as
+
+ function new (
+ forum_id in forums_forums.forum_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_forum',
+ name in forums_forums.name%TYPE,
+ charter in forums_forums.charter%TYPE default null,
+ presentation_type in forums_forums.presentation_type%TYPE,
+ posting_policy in forums_forums.posting_policy%TYPE,
+ package_id in forums_forums.package_id%TYPE,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_forums.forum_id%TYPE
+ is
+ v_forum_id forums_forums.forum_id%TYPE;
+ begin
+ v_forum_id := acs_object.new(
+ object_id => forum_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, package_id)
+ );
+
+ insert into forums_forums
+ (forum_id, name, charter, presentation_type, posting_policy, package_id)
+ values
+ (v_forum_id, name, charter, presentation_type, posting_policy, package_id);
+
+ return v_forum_id;
+ end new;
+
+ function name (
+ forum_id in forums_forums.forum_id%TYPE
+ ) return varchar
+ is
+ v_name forums_forums.name%TYPE;
+ begin
+ select name
+ into v_name
+ from forums_forums
+ where forum_id = name.forum_id;
+
+ return v_name;
+ end name;
+
+ procedure del (
+ forum_id in forums_forums.forum_id%TYPE
+ )
+ is
+ begin
+ acs_object.del(forum_id);
+ end del;
+
+end forums_forum;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0d2-1.0d3.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0d2-1.0d3.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0d2-1.0d3.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,260 @@
+
+--
+-- Upgrade script for oracle 1.0d2 - 1.0d3
+--
+-- @author Lars Pind (lars@collaboraid.biz)
+-- @creation-date 2003-10-3
+--
+-- The forums_message.new function updated the thread's last post date to the posting date
+-- of the first post (!), because the code inadvertedly referred to the posting_date
+-- column instead of the posting_date parameter.
+--
+
+create or replace package forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ html_p in forums_messages.html_p%TYPE default 'f',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar;
+
+end forums_message;
+/
+show errors
+
+create or replace package body forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ html_p in forums_messages.html_p%TYPE default 'f',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id acs_objects.object_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ begin
+
+ v_message_id := acs_object.new(
+ object_id => message_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, forum_id)
+ );
+
+ if state is null
+ then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id= new.forum_id;
+
+ if v_forum_policy = 'moderated' then
+ v_state := 'pending';
+ else
+ v_state := 'approved';
+ end if;
+ else
+ v_state := state;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, state)
+ values
+ (v_message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, v_state);
+
+ -- DRB: Can't use root_message_id() here because it triggers a "mutating table" error
+
+ select tree_sortkey into v_sortkey
+ from forums_messages
+ where message_id = v_message_id;
+
+ update forums_forums
+ set last_post = forums_message.new.posting_date
+ where forum_id = forums_message.new.forum_id;
+
+ update forums_messages
+ set last_child_post = forums_message.new.posting_date
+ where forum_id = forums_message.new.forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end new;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id forums_messages.message_id%TYPE;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = root_message_id.message_id;
+
+ select message_id
+ into v_message_id
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end root_message_id;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_open.message_id;
+
+ update forums_messages
+ set open_p = 't'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 't'
+ where message_id = thread_open.message_id;
+ end thread_open;
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_close.message_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where message_id = thread_close.message_id;
+ end thread_close;
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ begin
+ acs_object.del(message_id);
+ end del;
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_message forums_messages%ROWTYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = delete_thread.message_id;
+
+ -- if it's already deleted
+ if SQL%NOTFOUND then
+ return;
+ end if;
+
+ -- delete all children
+ -- order by tree_sortkey desc to guarantee
+ -- that we never delete a parent before its child
+ -- sortkeys are beautiful
+ for v_message in (select *
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ order by tree_sortkey desc)
+ loop
+ forums_message.del(v_message.message_id);
+ end loop;
+
+ -- delete the message itself
+ forums_message.del(delete_thread.message_id);
+ end delete_thread;
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar
+ is
+ v_name forums_messages.subject%TYPE;
+ begin
+ select subject
+ into v_name
+ from forums_messages
+ where message_id = forums_message.name.message_id;
+
+ return v_name;
+ end name;
+
+end forums_message;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0d3-1.0d4.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0d3-1.0d4.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0d3-1.0d4.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,364 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- The Package
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+
+create or replace package forums_forum
+as
+
+ function new (
+ forum_id in forums_forums.forum_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_forum',
+ name in forums_forums.name%TYPE,
+ charter in forums_forums.charter%TYPE default null,
+ presentation_type in forums_forums.presentation_type%TYPE,
+ posting_policy in forums_forums.posting_policy%TYPE,
+ package_id in forums_forums.package_id%TYPE,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_forums.forum_id%TYPE;
+
+ function name (
+ forum_id in forums_forums.forum_id%TYPE
+ ) return varchar;
+
+ procedure del (
+ forum_id in forums_forums.forum_id%TYPE
+ );
+
+end forums_forum;
+/
+show errors
+
+create or replace package body forums_forum
+as
+
+ function new (
+ forum_id in forums_forums.forum_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_forum',
+ name in forums_forums.name%TYPE,
+ charter in forums_forums.charter%TYPE default null,
+ presentation_type in forums_forums.presentation_type%TYPE,
+ posting_policy in forums_forums.posting_policy%TYPE,
+ package_id in forums_forums.package_id%TYPE,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_forums.forum_id%TYPE
+ is
+ v_forum_id forums_forums.forum_id%TYPE;
+ begin
+ v_forum_id := acs_object.new(
+ object_id => forum_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, package_id)
+ );
+
+ insert into forums_forums
+ (forum_id, name, charter, presentation_type, posting_policy, package_id)
+ values
+ (v_forum_id, name, charter, presentation_type, posting_policy, package_id);
+
+ return v_forum_id;
+ end new;
+
+ function name (
+ forum_id in forums_forums.forum_id%TYPE
+ ) return varchar
+ is
+ v_name forums_forums.name%TYPE;
+ begin
+ select name
+ into v_name
+ from forums_forums
+ where forum_id = name.forum_id;
+
+ return v_name;
+ end name;
+
+ procedure del (
+ forum_id in forums_forums.forum_id%TYPE
+ )
+ is
+ begin
+ acs_object.del(forum_id);
+ end del;
+
+end forums_forum;
+/
+show errors
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- The Package for Messages
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+
+create or replace package forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ html_p in forums_messages.html_p%TYPE default 'f',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar;
+
+end forums_message;
+/
+show errors
+
+create or replace package body forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ html_p in forums_messages.html_p%TYPE default 'f',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id acs_objects.object_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ begin
+
+ v_message_id := acs_object.new(
+ object_id => message_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, forum_id)
+ );
+
+ if state is null
+ then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id= new.forum_id;
+
+ if v_forum_policy = 'moderated' then
+ v_state := 'pending';
+ else
+ v_state := 'approved';
+ end if;
+ else
+ v_state := state;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, state)
+ values
+ (v_message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, v_state);
+
+ -- DRB: Can't use root_message_id() here because it triggers a "mutating table" error
+
+ select tree_sortkey into v_sortkey
+ from forums_messages
+ where message_id = v_message_id;
+
+ update forums_forums
+ set last_post = posting_date
+ where forum_id = forums_message.new.forum_id;
+
+ update forums_messages
+ set last_child_post = posting_date
+ where forum_id = forums_message.new.forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end new;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id forums_messages.message_id%TYPE;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = root_message_id.message_id;
+
+ select message_id
+ into v_message_id
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end root_message_id;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_open.message_id;
+
+ update forums_messages
+ set open_p = 't'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 't'
+ where message_id = thread_open.message_id;
+ end thread_open;
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_close.message_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where message_id = thread_close.message_id;
+ end thread_close;
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ begin
+ acs_object.del(message_id);
+ end del;
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_message forums_messages%ROWTYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = delete_thread.message_id;
+
+ -- if it's already deleted
+ if SQL%NOTFOUND then
+ return;
+ end if;
+
+ -- delete all children
+ -- order by tree_sortkey desc to guarantee
+ -- that we never delete a parent before its child
+ -- sortkeys are beautiful
+ for v_message in (select *
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ order by tree_sortkey desc)
+ loop
+ forums_message.del(v_message.message_id);
+ end loop;
+
+ -- delete the message itself
+ forums_message.del(delete_thread.message_id);
+ end delete_thread;
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar
+ is
+ v_name forums_messages.subject%TYPE;
+ begin
+ select subject
+ into v_name
+ from forums_messages
+ where message_id = forums_message.name.message_id;
+
+ return v_name;
+ end name;
+
+end forums_message;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0d4-1.0.1d2.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0d4-1.0.1d2.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.0d4-1.0.1d2.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,285 @@
+alter table forums_messages add format varchar2(30) default 'text/plain';
+
+update forums_messages
+set format = 'text/html'
+where html_p = 't';
+update forums_messages
+set format = 'text/plain'
+where html_p = 'f';
+
+alter table forums_messages add constraint forums_mess_format_ck check (format in ('text/enhanced', 'text/plain', 'text/fixed-width', 'text/html'));
+alter table forums_messages drop column html_p;
+
+-- forums-messages-package-create.sql
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- The Package for Messages
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+
+create or replace package forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ format in forums_messages.format%TYPE default 'text/plain',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar;
+
+end forums_message;
+/
+show errors
+
+create or replace package body forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ format in forums_messages.format%TYPE default 'text/plain',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id acs_objects.object_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ begin
+
+ v_message_id := acs_object.new(
+ object_id => message_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, forum_id)
+ );
+
+ if state is null
+ then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id= new.forum_id;
+
+ if v_forum_policy = 'moderated' then
+ v_state := 'pending';
+ else
+ v_state := 'approved';
+ end if;
+ else
+ v_state := state;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, format, user_id, posting_date, parent_id, state)
+ values
+ (v_message_id, forum_id, subject, content, format, user_id, posting_date, parent_id, v_state);
+
+ -- DRB: Can't use root_message_id() here because it triggers a "mutating table" error
+
+ select tree_sortkey into v_sortkey
+ from forums_messages
+ where message_id = v_message_id;
+
+ update forums_forums
+ set last_post = forums_message.new.posting_date
+ where forum_id = forums_message.new.forum_id;
+
+ update forums_messages
+ set last_child_post = forums_message.new.posting_date
+ where forum_id = forums_message.new.forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end new;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id forums_messages.message_id%TYPE;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = root_message_id.message_id;
+
+ select message_id
+ into v_message_id
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end root_message_id;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_open.message_id;
+
+ update forums_messages
+ set open_p = 't'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 't'
+ where message_id = thread_open.message_id;
+ end thread_open;
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_close.message_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where message_id = thread_close.message_id;
+ end thread_close;
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ begin
+ acs_object.del(message_id);
+ end del;
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_message forums_messages%ROWTYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = delete_thread.message_id;
+
+ -- if it's already deleted
+ if SQL%NOTFOUND then
+ return;
+ end if;
+
+ -- delete all children
+ -- order by tree_sortkey desc to guarantee
+ -- that we never delete a parent before its child
+ -- sortkeys are beautiful
+ for v_message in (select *
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ order by tree_sortkey desc)
+ loop
+ forums_message.del(v_message.message_id);
+ end loop;
+
+ -- delete the message itself
+ forums_message.del(delete_thread.message_id);
+ end delete_thread;
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar
+ is
+ v_name forums_messages.subject%TYPE;
+ begin
+ select subject
+ into v_name
+ from forums_messages
+ where message_id = forums_message.name.message_id;
+
+ return v_name;
+ end name;
+
+end forums_message;
+/
+show errors
+
+
+create or replace view forums_messages_approved as
+ select *
+ from forums_messages
+ where state = 'approved';
+
+create or replace view forums_messages_pending as
+ select *
+ from forums_messages
+ where state = 'pending';
+
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.1.1-1.1.2d1.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.1.1-1.1.2d1.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.1.1-1.1.2d1.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,35 @@
+update acs_permissions
+ set privilege = 'read'
+ where privilege = 'forum_read'
+ and not exists (select 1
+ from acs_permissions p1
+ where p1.object_id = acs_permissions.object_id
+ and p1.grantee_id = acs_permissions.grantee_id
+ and p1.privilege = 'read');
+
+delete from acs_permissions
+ where privilege = 'forum_read';
+
+update acs_permissions
+ set privilege = 'write'
+ where privilege = 'forum_write'
+ and not exists (select 1
+ from acs_permissions p1
+ where p1.object_id = acs_permissions.object_id
+ and p1.grantee_id = acs_permissions.grantee_id
+ and p1.privilege = 'write');
+
+delete from acs_permissions
+ where privilege = 'forum_write';
+
+update acs_permissions
+ set privilege = 'create'
+ where privilege = 'forum_create'
+ and not exists (select 1
+ from acs_permissions p1
+ where p1.object_id = acs_permissions.object_id
+ and p1.grantee_id = acs_permissions.grantee_id
+ and p1.privilege = 'create');
+
+delete from acs_permissions
+ where privilege = 'forum_create';
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.1.2d4-1.1.2d5.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.1.2d4-1.1.2d5.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.1.2d4-1.1.2d5.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,48 @@
+--
+-- Most of the forum_* privileges are now deprecated. A notable exception is
+-- forum_moderate, which is little used but provides a way to grant moderation
+-- privileges without granting full admin privileges.
+--
+-- This script, plus accompanying changes in other parts of this package,
+-- finishes that job started in upgrade-1.1.1-1.1.2d1.sql.
+--
+
+update acs_permissions
+set privilege = 'read'
+where privilege = 'forum_read';
+
+update acs_permissions
+set privilege = 'write'
+where privilege = 'forum_write';
+
+update acs_permissions
+set privilege = 'create'
+where privilege = 'forum_create';
+
+update acs_permissions
+set privilege = 'delete'
+where privilege = 'forum_delete';
+
+-- As best as we can tell this is never used even though it's granted
+-- by dotlrn-forums.
+
+delete from acs_permissions where privilege = 'forum_post';
+
+begin
+ acs_privilege.remove_child('read','forum_read');
+ acs_privilege.remove_child('create','forum_create');
+ acs_privilege.remove_child('write','forum_write');
+ acs_privilege.remove_child('delete','forum_delete');
+ acs_privilege.remove_child('forum_moderate','forum_read');
+ acs_privilege.remove_child('forum_moderate','forum_post');
+ acs_privilege.remove_child('forum_write','forum_read');
+ acs_privilege.remove_child('forum_write','forum_post');
+
+ acs_privilege.drop_privilege('forum_read');
+ acs_privilege.drop_privilege('forum_create');
+ acs_privilege.drop_privilege('forum_write');
+ acs_privilege.drop_privilege('forum_post');
+ acs_privilege.drop_privilege('forum_delete');
+end;
+/
+show errors;
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.1d1-1.1d2.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.1d1-1.1d2.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.1d1-1.1d2.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,2 @@
+@@ ../forums-messages-package-create.sql
+@@ ../forums-forums-package-create.sql
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.2.0d3-1.2.0d4.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.2.0d3-1.2.0d4.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.2.0d3-1.2.0d4.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,12 @@
+--
+-- packages/forums/sql/oracle/upgrade/upgrade-1.2.0d3-1.2.0d4.sql
+--
+-- @author Deds Castillo (deds@i-manila.com.ph)
+-- @creation-date 2006-05-10
+-- @arch-tag: 0584c03b-94d4-4356-93bd-593b737805a2
+-- @cvs-id $Id$
+--
+
+-- increase charter to 4000 chars
+
+alter table forums_forums modify charter varchar(4000);
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.2.0d4-1.3d1.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.2.0d4-1.3d1.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.2.0d4-1.3d1.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,11 @@
+-- Update the package ids for projects
+declare
+ cursor ct is
+ select package_id, forum_id from forums_forums;
+begin
+ for v_ct in ct loop
+ update acs_objects set package_id = v_ct.package_id where object_id = v_ct.forum_id;
+ end loop;
+end;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.2d1-1.2d2.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.2d1-1.2d2.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.2d1-1.2d2.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,408 @@
+-- @author Jeff Davis davis@xarg.net
+--
+-- bug 1807 last_poster rather than first poster should be shown in forums index page
+-- add a last_poster to support this and update triggers to support it.
+
+alter table forums_messages add last_poster integer
+ constraint forums_mess_last_poster_fk
+ references users(user_id);
+
+-- Now populate the new column
+update forums_messages
+set last_poster = (select fm1.user_id
+from forums_messages fm1
+where fm1.message_id = (select max(fm2.message_id)
+ from forums_messages fm2
+ connect by prior fm2.message_id=fm2.parent_id
+ start with fm2.message_id = forums_messages.message_id))
+where forums_messages.parent_id is null;
+
+create or replace view forums_messages_approved
+as
+ select *
+ from forums_messages
+ where state = 'approved';
+
+create or replace view forums_messages_pending
+as
+ select *
+ from forums_messages
+ where state= 'pending';
+
+
+
+--
+-- Replace the procs which manipulate state and new message to save last_poster.
+--
+
+create or replace package forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ format in forums_messages.format%TYPE default 'text/plain',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ );
+
+ procedure set_state(
+ message_id in forums_messages.message_id%TYPE,
+ state in forums_messages.state%TYPE
+ );
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar;
+
+end forums_message;
+/
+show errors
+
+create or replace package body forums_message
+as
+
+ function new (
+ message_id in forums_messages.message_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_message',
+ forum_id in forums_messages.forum_id%TYPE,
+ subject in forums_messages.subject%TYPE,
+ content in varchar,
+ format in forums_messages.format%TYPE default 'text/plain',
+ user_id in forums_messages.user_id%TYPE,
+ posting_date in forums_messages.posting_date%TYPE default sysdate,
+ state in forums_messages.state%TYPE default null,
+ parent_id in forums_messages.parent_id%TYPE default null,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id acs_objects.object_id%TYPE;
+ v_package_id acs_objects.package_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ begin
+ select package_id into v_package_id from forums_forums where forum_id = new.forum_id;
+
+ v_message_id := acs_object.new(
+ object_id => message_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, forum_id),
+ title => subject,
+ package_id => v_package_id
+ );
+
+ if state is null
+ then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id= new.forum_id;
+
+ if v_forum_policy = 'moderated' then
+ v_state := 'pending';
+ else
+ v_state := 'approved';
+ end if;
+ else
+ v_state := state;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, format, user_id, posting_date, last_child_post, parent_id, state, last_poster)
+ values
+ (v_message_id, forum_id, subject, content, format, user_id, posting_date, posting_date, parent_id, v_state, user_id);
+
+ select tree_sortkey into v_sortkey
+ from forums_messages
+ where message_id = v_message_id;
+
+ update forums_forums
+ set last_post = forums_message.new.posting_date
+ where forum_id = forums_message.new.forum_id;
+
+ -- DRB: Can't use root_message_id() here because it triggers a "mutating table" error
+
+ if parent_id is null then
+ if v_state = 'approved' then
+ update forums_forums
+ set thread_count = thread_count + 1,
+ approved_thread_count = approved_thread_count + 1
+ where forum_id = forums_message.new.forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count + 1
+ where forum_id=forums_message.new.forum_id;
+ end if;
+ else
+ if v_state = 'approved' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1,
+ reply_count = reply_count + 1,
+ last_poster = forums_message.new.user_id,
+ last_child_post = forums_message.new.posting_date
+ where forum_id = forums_message.new.forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+ else
+ update forums_messages
+ set reply_count = reply_count + 1
+ where forum_id = forums_message.new.forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+ end if;
+ end if;
+
+ return v_message_id;
+
+ end new;
+
+ function root_message_id (
+ message_id in forums_messages.message_id%TYPE
+ ) return forums_messages.message_id%TYPE
+ is
+ v_message_id forums_messages.message_id%TYPE;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = root_message_id.message_id;
+
+ select message_id
+ into v_message_id
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey = tree.ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+ end root_message_id;
+
+ procedure thread_open (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_open.message_id;
+
+ update forums_messages
+ set open_p = 't'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 't'
+ where message_id = thread_open.message_id;
+ end thread_open;
+
+ procedure thread_close (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = thread_close.message_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = 'f'
+ where message_id = thread_close.message_id;
+ end thread_close;
+
+ procedure del (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_cur forums_messages%ROWTYPE;
+ begin
+
+ -- Maintain the forum thread counts
+
+ select * into v_cur
+ from forums_messages
+ where message_id = forums_message.del.message_id;
+
+ if v_cur.parent_id is null then
+ if v_cur.state = 'approved' then
+ update forums_forums
+ set thread_count = thread_count - 1,
+ approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ elsif v_cur.state = 'approved' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1,
+ reply_count = reply_count - 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ else
+ update forums_messages
+ set reply_count = reply_count - 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ end if;
+
+ acs_object.del(message_id);
+
+ end del;
+
+ procedure delete_thread (
+ message_id in forums_messages.message_id%TYPE
+ )
+ is
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_message forums_messages%ROWTYPE;
+ begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = delete_thread.message_id;
+
+ -- if it's already deleted
+ if SQL%NOTFOUND then
+ return;
+ end if;
+
+ -- delete all children
+ -- order by tree_sortkey desc to guarantee
+ -- that we never delete a parent before its child
+ -- sortkeys are beautiful
+ for v_message in (select *
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey)
+ order by tree_sortkey desc)
+ loop
+ forums_message.del(v_message.message_id);
+ end loop;
+
+ -- delete the message itself
+ forums_message.del(delete_thread.message_id);
+ end delete_thread;
+
+ function name (
+ message_id in forums_messages.message_id%TYPE
+ ) return varchar
+ is
+ v_name forums_messages.subject%TYPE;
+ begin
+ select subject
+ into v_name
+ from forums_messages
+ where message_id = forums_message.name.message_id;
+
+ return v_name;
+ end name;
+
+ procedure set_state(
+ message_id in forums_messages.message_id%TYPE,
+ state in forums_messages.state%TYPE
+ )
+ is
+ v_cur forums_messages%ROWTYPE;
+ v_last_child_post forums_messages.last_child_post%TYPE;
+ begin
+
+ select * into v_cur
+ from forums_messages
+ where message_id = forums_message.set_state.message_id;
+
+ if v_cur.parent_id is null then
+ if state = 'approved' and v_cur.state <> 'approved' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count + 1
+ where forum_id=v_cur.forum_id;
+ elsif state <> 'approved' and v_cur.state = 'approved' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ else
+ if state = 'approved' and v_cur.state <> 'approved' then
+ select last_child_post into v_last_child_post
+ from forums_messages
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ if v_cur.posting_date > v_last_child_post then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1,
+ last_poster = v_cur.user_id,
+ last_child_post = v_cur.posting_date
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ else
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ end if;
+ elsif state <> 'approved' and v_cur.state = 'approved' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1
+ where forum_id = v_cur.forum_id
+ and tree_sortkey = tree.ancestor_key(v_cur.tree_sortkey, 1);
+ end if;
+ end if;
+
+ update forums_messages
+ set state = forums_message.set_state.state
+ where message_id = forums_message.set_state.message_id;
+
+ end set_state;
+
+end forums_message;
+/
+show errors
+
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.3d3-1.3d4.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.3d3-1.3d4.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.3d3-1.3d4.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,96 @@
+-- Make sure that forums actually have the package_id set.
+update acs_objects set package_id = context_id where object_type = 'forums_forum';
+
+
+create or replace package forums_forum
+as
+
+ function new (
+ forum_id in forums_forums.forum_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_forum',
+ name in forums_forums.name%TYPE,
+ charter in forums_forums.charter%TYPE default null,
+ presentation_type in forums_forums.presentation_type%TYPE,
+ posting_policy in forums_forums.posting_policy%TYPE,
+ package_id in forums_forums.package_id%TYPE,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_forums.forum_id%TYPE;
+
+ function name (
+ forum_id in forums_forums.forum_id%TYPE
+ ) return varchar;
+
+ procedure del (
+ forum_id in forums_forums.forum_id%TYPE
+ );
+
+end forums_forum;
+/
+show errors
+
+create or replace package body forums_forum
+as
+
+ function new (
+ forum_id in forums_forums.forum_id%TYPE default null,
+ object_type in acs_objects.object_type%TYPE default 'forums_forum',
+ name in forums_forums.name%TYPE,
+ charter in forums_forums.charter%TYPE default null,
+ presentation_type in forums_forums.presentation_type%TYPE,
+ posting_policy in forums_forums.posting_policy%TYPE,
+ package_id in forums_forums.package_id%TYPE,
+ creation_date in acs_objects.creation_date%TYPE default sysdate,
+ creation_user in acs_objects.creation_user%TYPE,
+ creation_ip in acs_objects.creation_ip%TYPE,
+ context_id in acs_objects.context_id%TYPE default null
+ ) return forums_forums.forum_id%TYPE
+ is
+ v_forum_id forums_forums.forum_id%TYPE;
+ begin
+ v_forum_id := acs_object.new(
+ object_id => forum_id,
+ object_type => object_type,
+ creation_date => creation_date,
+ creation_user => creation_user,
+ creation_ip => creation_ip,
+ context_id => nvl(context_id, package_id),
+ package_id => forums_forum.new.package_id,
+ title => name
+ );
+
+ insert into forums_forums
+ (forum_id, name, charter, presentation_type, posting_policy, package_id)
+ values
+ (v_forum_id, name, charter, presentation_type, posting_policy, package_id);
+
+ return v_forum_id;
+ end new;
+
+ function name (
+ forum_id in forums_forums.forum_id%TYPE
+ ) return varchar
+ is
+ v_name forums_forums.name%TYPE;
+ begin
+ select name
+ into v_name
+ from forums_forums
+ where forum_id = name.forum_id;
+
+ return v_name;
+ end name;
+
+ procedure del (
+ forum_id in forums_forums.forum_id%TYPE
+ )
+ is
+ begin
+ acs_object.del(forum_id);
+ end del;
+
+end forums_forum;
+/
+show errors
Index: dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.3d5-1.3d6.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.3d5-1.3d6.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/oracle/upgrade/upgrade-1.3d5-1.3d6.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,2 @@
+@forums-reading-info-create.sql
+@forums-reading-info-package-create.sql
\ No newline at end of file
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,31 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert's UBB forums. Thanks Orchard Labs.
+--
+
+-- The basic forum constructs
+\i forums-forums-create.sql
+\i forums-forums-package-create.sql
+
+-- The messages
+\i forums-messages-create.sql
+\i forums-messages-package-create.sql
+
+-- tree stuff
+\i forums-tree-create.sql
+
+-- notifications
+\i forums-notifications-init.sql
+
+-- Search
+\i forums-sc-create.sql
+
+-- Reading info
+\i forums-reading-info-create.sql
+
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,29 @@
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert's UBB forums. Thanks Orchard Labs.
+--
+
+-- Reading info
+\i forums-reading-info-drop.sql
+
+-- Search
+\i forums-sc-drop.sql
+
+-- notifications
+\i forums-notifications-sanitize.sql
+
+-- tree stuff
+\i forums-tree-drop.sql
+
+-- the messages
+\i forums-messages-package-drop.sql
+\i forums-messages-drop.sql
+
+-- The basic forum constructs
+\i forums-forums-package-drop.sql
+\i forums-forums-drop.sql
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-forums-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-forums-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-forums-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,101 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs.
+--
+
+-- privileges
+begin;
+ -- The standard privilege 'admin' on a package allows a user to
+ -- create forums (enforced by URL).
+ -- The standard privilege 'create' on a forum allows a user to
+ -- create new threads.
+ -- The standard privilege 'write' on a message allows a user to
+ -- post a follow up message.
+
+ -- forum_moderate lets us grant moderation without granting full admin
+ select acs_privilege__create_privilege('forum_moderate',null,null);
+ select acs_privilege__add_child('admin','forum_moderate');
+ select acs_privilege__add_child('forum_moderate','create');
+ select acs_privilege__add_child('forum_moderate','delete');
+ select acs_privilege__add_child('forum_moderate','read');
+ select acs_privilege__add_child('forum_moderate','write');
+
+ --return null;
+end;
+
+create table forums_forums (
+ forum_id integer
+ constraint forums_forum_id_nn
+ not null
+ constraint forums_forum_id_fk
+ references acs_objects (object_id)
+ constraint forums_forum_id_pk
+ primary key,
+ name varchar(200)
+ constraint forums_name_nn
+ not null,
+ charter varchar(4000),
+ presentation_type varchar(100)
+ constraint forums_presentation_type_nn
+ not null
+ constraint forums_presentation_type_ck
+ check (presentation_type in ('flat','threaded')),
+ posting_policy varchar(100)
+ constraint forums_posting_policy_nn
+ not null
+ constraint forums_posting_policy_ck
+ check (posting_policy in ('open','moderated','closed')),
+ max_child_sortkey varbit,
+ enabled_p char(1)
+ default 't'
+ constraint forums_enabled_p_nn
+ not null
+ constraint forums_enabled_p_ck
+ check (enabled_p in ('t','f')),
+ package_id integer
+ constraint forums_package_id_nn
+ not null,
+ thread_count integer default 0,
+ approved_thread_count integer default 0,
+ forums_forums integer default 0,
+ last_post timestamptz
+);
+
+CREATE INDEX forums_forums_pkg_enable_idx
+ ON forums_forums
+ USING btree
+ (package_id, enabled_p);
+
+create view forums_forums_enabled
+as
+ select *
+ from forums_forums
+ where enabled_p = 't';
+
+create function inline_0 ()
+returns integer as'
+begin
+ perform acs_object_type__create_type(
+ ''forums_forum'',
+ ''Forums Forum'',
+ ''Forums Forums'',
+ ''acs_object'',
+ ''forums_forums'',
+ ''forum_id'',
+ ''forums_forum'',
+ ''f'',
+ null,
+ ''forums_forum__name''
+ );
+
+ return null;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-forums-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-forums-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-forums-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,49 @@
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs.
+--
+
+-- privileges
+
+create function inline_0 ()
+returns integer as '
+begin
+
+ delete from acs_permissions where privilege in (''forum_moderate'');
+
+ -- remove children
+ perform acs_privilege__remove_child(''admin'',''forum_moderate'');
+ perform acs_privilege__remove_child(''forum_moderate'',''create'');
+ perform acs_privilege__remove_child(''forum_moderate'',''delete'');
+ perform acs_privilege__remove_child(''forum_moderate'',''read'');
+ perform acs_privilege__remove_child(''forum_moderate'',''write'');
+
+ perform acs_privilege__drop_privilege(''forum_moderate'');
+
+ return null;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0 ();
+
+DROP INDEX forums_forums_pkg_enable_idx;
+drop view forums_forums_enabled;
+drop table forums_forums;
+
+create function inline_0 ()
+returns integer as '
+begin
+ perform acs_object_type__drop_type (
+ ''forums_forum'', ''f''
+ );
+
+ return null;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0 ();
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-forums-package-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-forums-package-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-forums-package-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,74 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- The Package
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+
+select define_function_args('forums_forum__new','forum_id,object_type;forums_forum,name,charter,presentation_type,posting_policy,package_id,creation_date,creation_user,creation_ip,context_id');
+
+create or replace function forums_forum__new (integer,varchar,varchar,varchar,varchar,varchar,integer,timestamptz,integer,varchar,integer)
+returns integer as '
+declare
+ p_forum_id alias for $1;
+ p_object_type alias for $2;
+ p_name alias for $3;
+ p_charter alias for $4;
+ p_presentation_type alias for $5;
+ p_posting_policy alias for $6;
+ p_package_id alias for $7;
+ p_creation_date alias for $8;
+ p_creation_user alias for $9;
+ p_creation_ip alias for $10;
+ p_context_id alias for $11;
+ v_forum_id integer;
+begin
+ v_forum_id:= acs_object__new(
+ p_forum_id,
+ p_object_type,
+ p_creation_date,
+ p_creation_user,
+ p_creation_ip,
+ coalesce(p_context_id, p_package_id),
+ ''t'',
+ p_name,
+ p_package_id
+ );
+
+ insert into forums_forums
+ (forum_id, name, charter, presentation_type, posting_policy, package_id)
+ values
+ (v_forum_id, p_name, p_charter, p_presentation_type, p_posting_policy, p_package_id);
+
+ return v_forum_id;
+end;
+' language 'plpgsql';
+
+select define_function_args('forums_forum__name','forum_id');
+
+create or replace function forums_forum__name(integer)
+returns varchar as '
+declare
+ p_forum_id alias for $1;
+begin
+ return name from forums_forums where forum_id = p_forum_id;
+end;
+' language 'plpgsql';
+
+select define_function_args('forums_forum__delete','forum_id');
+
+create or replace function forums_forum__delete(integer)
+returns integer as '
+declare
+ p_forum_id alias for $1;
+begin
+ perform acs_object__delete(p_forum_id);
+ return 0;
+end;
+' language 'plpgsql';
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-forums-package-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-forums-package-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-forums-package-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,18 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- The Package
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+
+drop function forums_forum__new (integer,varchar,varchar,varchar,varchar,varchar,integer,timestamptz,integer,varchar,integer);
+
+drop function forums_forum__name(integer);
+
+drop function forums_forum__delete(integer);
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-messages-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-messages-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-messages-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,102 @@
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert. Thanks Orchard Labs!
+--
+
+create table forums_messages (
+ message_id integer
+ constraint forums_message_id_fk
+ references acs_objects (object_id)
+ constraint forums_messages_pk
+ primary key,
+ forum_id integer
+ constraint forums_mess_forum_id_fk
+ references forums_forums (forum_id),
+ subject varchar(200),
+ content text,
+ user_id integer
+ constraint forums_mess_user_id_fk
+ references users(user_id)
+ constraint forums_mess_user_id_nn
+ not null,
+ posting_date timestamptz
+ default current_timestamp
+ constraint forum_mess_post_date_nn
+ not null,
+ state varchar(100)
+ constraint forum_mess_state_ck
+ check (state in ('pending','approved','rejected')),
+ format varchar(30)
+ default 'text/plain',
+ -- Hierarchy of messages
+ parent_id integer
+ constraint forum_mess_parent_id_fk
+ references forums_messages (message_id),
+ open_p char(1)
+ default 't'
+ constraint forum_mess_open_p_nn
+ not null
+ constraint forum_mess_open_p_ck
+ check (open_p in ('t','f')),
+ tree_sortkey varbit,
+ max_child_sortkey varbit,
+ last_child_post timestamptz,
+ reply_count integer
+ constraint forums_mess_reply_count_ck
+ check (reply_count >= 0) default 0,
+ approved_reply_count integer
+ constraint forums_mess_app_rep_count_ck
+ check (approved_reply_count >= 0) default 0,
+ last_poster integer
+ constraint forums_mess_last_poster_fk
+ references users(user_id),
+ constraint forums_mess_sk_forum_un
+ unique (tree_sortkey, forum_id)
+);
+
+-- We do a some big queries on forum_id (thread count on index.tcl) so create a second index
+-- ordered so it's useful for them
+create unique index forums_mess_forum_sk_un on forums_messages(forum_id, tree_sortkey);
+-- Need these two for RI checks
+create index forums_messages_user_id_idx on forums_messages(user_id);
+create index forums_messages_parent_id_idx on forums_messages(parent_id);
+create index forum_messages_date_idx on forums_messages (forum_id, posting_date);
+
+create or replace view forums_messages_approved
+as
+ select *
+ from forums_messages
+ where state = 'approved';
+
+create or replace view forums_messages_pending
+as
+ select *
+ from forums_messages
+ where state= 'pending';
+
+create or replace function inline_0 ()
+returns integer as '
+begin
+ perform acs_object_type__create_type(
+ ''forums_message'',
+ ''Forums Message'',
+ ''Forums Messages'',
+ ''acs_object'',
+ ''forums_messages'',
+ ''message_id'',
+ ''forums_message'',
+ ''f'',
+ null,
+ ''forums_message__name''
+ );
+
+ return null;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0 ();
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-messages-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-messages-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-messages-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,26 @@
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert. Thanks Orchard Labs!
+--
+
+drop view forums_messages_pending;
+drop view forums_messages_approved;
+drop table forums_messages;
+
+create function inline_0 ()
+returns integer as '
+begin
+ perform acs_object_type__drop_type (
+ ''forums_message'', ''f''
+ );
+
+ return null;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0 ();
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-messages-package-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-messages-package-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-messages-package-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,330 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+-- @cvs-id $Id$
+--
+-- The Package for Messages
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+
+select define_function_args ('forums_message__new', 'message_id,object_type;forums_message,forum_id,subject,content,format,user_id,state,parent_id,creation_date,creation_user,creation_ip,context_id');
+
+-- Get rid of the old version so we'll throw an error if the admin forgets to reboot
+-- OpenACS after the upgrade (package_instantiate_object caches param lists)
+create or replace function forums_message__new (integer,varchar,integer,varchar,text,char,integer,varchar,integer,timestamptz,integer,varchar,integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ p_object_type alias for $2;
+ p_forum_id alias for $3;
+ p_subject alias for $4;
+ p_content alias for $5;
+ p_format alias for $6;
+ p_user_id alias for $7;
+ p_state alias for $8;
+ p_parent_id alias for $9;
+ p_creation_date alias for $10;
+ p_creation_user alias for $11;
+ p_creation_ip alias for $12;
+ p_context_id alias for $13;
+ v_message_id integer;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ v_posting_date forums_messages.posting_date%TYPE;
+ v_package_id acs_objects.package_id%TYPE;
+begin
+
+ select package_id into v_package_id from forums_forums where forum_id = p_forum_id;
+
+ if v_package_id is null then
+ raise exception ''forums_message__new: forum_id % not found'', p_forum_id;
+ end if;
+
+ v_message_id := acs_object__new(
+ p_message_id,
+ p_object_type,
+ p_creation_date,
+ p_creation_user,
+ p_creation_ip,
+ coalesce(p_context_id, p_forum_id),
+ ''t'',
+ p_subject,
+ v_package_id
+ );
+
+ if p_state is null then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id = p_forum_id;
+
+ if v_forum_policy = ''moderated''
+ then v_state := ''pending'';
+ else v_state := ''approved'';
+ end if;
+ else
+ v_state := p_state;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, format, user_id, parent_id, state, last_child_post, last_poster)
+ values
+ (v_message_id, p_forum_id, p_subject, p_content, p_format, p_user_id, p_parent_id,
+ v_state, current_timestamp, p_user_id);
+
+ update forums_forums
+ set last_post = current_timestamp
+ where forum_id = p_forum_id;
+
+ if p_parent_id is null then
+ if v_state = ''approved'' then
+ update forums_forums
+ set thread_count = thread_count + 1,
+ approved_thread_count = approved_thread_count + 1
+ where forum_id=p_forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count + 1
+ where forum_id=p_forum_id;
+ end if;
+ else
+ if v_state = ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1,
+ reply_count = reply_count + 1,
+ last_poster = p_user_id,
+ last_child_post = current_timestamp
+ where message_id = forums_message__root_message_id(v_message_id);
+ else
+ -- dont update last_poster, last_child_post when not approved
+ update forums_messages
+ set reply_count = reply_count + 1
+ where message_id = forums_message__root_message_id(v_message_id);
+ end if;
+ end if;
+
+ return v_message_id;
+
+end;' language 'plpgsql';
+
+select define_function_args ('forums_message__root_message_id', 'message_id');
+
+create or replace function forums_message__root_message_id (integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ v_message_id forums_messages.message_id%TYPE;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = p_message_id;
+
+ select message_id
+ into v_message_id
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey = tree_ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+end;
+' language 'plpgsql' stable strict;
+
+select define_function_args ('forums_message__thread_open', 'message_id');
+
+create or replace function forums_message__thread_open (integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = p_message_id;
+
+ update forums_messages
+ set open_p = ''t''
+ where tree_sortkey between tree_left(v_sortkey) and tree_right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = ''t''
+ where message_id = p_message_id;
+
+ return 0;
+end;
+' language 'plpgsql';
+
+select define_function_args ('forums_message__thread_close', 'message_id');
+
+create or replace function forums_message__thread_close (integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = p_message_id;
+
+ update forums_messages
+ set open_p = ''f''
+ where tree_sortkey between tree_left(v_sortkey) and tree_right(v_sortkey)
+ and forum_id = v_forum_id;
+
+ update forums_messages
+ set open_p = ''f''
+ where message_id = p_message_id;
+
+ return 0;
+end;
+' language 'plpgsql';
+
+select define_function_args ('forums_message__set_state', 'message_id,state');
+
+create or replace function forums_message__set_state(integer,varchar) returns integer as '
+declare
+ p_message_id alias for $1;
+ p_state alias for $2;
+ v_cur record;
+begin
+
+ select into v_cur *
+ from forums_messages
+ where message_id = p_message_id;
+
+ if v_cur.parent_id is null then
+ if p_state = ''approved'' and v_cur.state <> ''approved'' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count + 1
+ where forum_id=v_cur.forum_id;
+ elsif p_state <> ''approved'' and v_cur.state = ''approved'' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ else
+ if p_state = ''approved'' and v_cur.state <> ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1,
+ last_poster = (case when v_cur.posting_date > last_child_post then v_cur.user_id else last_poster end),
+ last_child_post = (case when v_cur.posting_date > last_child_post then v_cur.posting_date else last_child_post end)
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ elsif p_state <> ''approved'' and v_cur.state = ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ end if;
+ end if;
+
+ update forums_messages
+ set state = p_state
+ where message_id = p_message_id;
+
+ return 0;
+
+end;' language 'plpgsql';
+
+select define_function_args ('forums_message__delete', 'message_id');
+
+create or replace function forums_message__delete (integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ v_cur record;
+begin
+
+ -- Maintain the forum thread counts
+
+ select into v_cur *
+ from forums_messages
+ where message_id = p_message_id;
+
+ if v_cur.parent_id is null then
+ if v_cur.state = ''approved'' then
+ update forums_forums
+ set thread_count = thread_count - 1,
+ approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ elsif v_cur.state = ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1,
+ reply_count = reply_count - 1
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ else
+ update forums_messages
+ set reply_count = reply_count - 1
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ end if;
+
+ perform acs_object__delete(p_message_id);
+ return 0;
+end;' language 'plpgsql';
+
+select define_function_args ('forums_message__delete_thread', 'message_id');
+
+create or replace function forums_message__delete_thread (integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_message RECORD;
+begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = p_message_id;
+
+ -- if it is already deleted
+ if v_forum_id is null
+ then return 0;
+ end if;
+
+ -- delete all children
+ -- order by tree_sortkey desc to guarantee
+ -- that we never delete a parent before its child
+ -- sortkeys are beautiful
+ for v_message in select *
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey between tree_left(v_sortkey) and tree_right(v_sortkey)
+ order by tree_sortkey desc
+ loop
+ -- Avoid the count bookkeeping down in forums_message__delete
+ perform forums_message__delete(v_message.message_id);
+ end loop;
+
+ -- delete the message itself
+ perform forums_message__delete(p_message_id);
+
+ return 0;
+end;' language 'plpgsql';
+
+
+select define_function_args('forums_message__name','message_id');
+
+create or replace function forums_message__name (integer)
+returns varchar as '
+declare
+ p_message_id alias for $1;
+begin
+ return subject from forums_messages where message_id = p_message_id;
+end;
+' language 'plpgsql';
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-messages-package-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-messages-package-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-messages-package-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,26 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- The Package for Messages
+--
+-- This code is newly concocted by Ben, but with heavy concepts and heavy code
+-- chunks lifted from Gilbert. Thanks Orchard Labs!
+--
+
+drop function forums_message__new (integer,varchar,integer,varchar,text,char,integer,varchar,integer,timestamptz,integer,varchar,integer);
+
+drop function forums_message__root_message_id (integer);
+
+drop function forums_message__thread_open (integer);
+
+drop function forums_message__thread_close (integer);
+
+drop function forums_message__delete (integer);
+
+drop function forums_message__delete_thread (integer);
+
+drop function forums_message__name (integer);
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-notifications-init.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-notifications-init.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-notifications-init.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,126 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert's UBB forums. Thanks Orchard Labs.
+--
+
+-- the integration with Notifications
+
+create function inline_0() returns integer as '
+declare
+ impl_id integer;
+ v_foo integer;
+begin
+ -- the notification type impl
+ impl_id := acs_sc_impl__new (
+ ''NotificationType'',
+ ''forums_forum_notif_type'',
+ ''forums''
+ );
+
+ v_foo := acs_sc_impl_alias__new (
+ ''NotificationType'',
+ ''forums_forum_notif_type'',
+ ''GetURL'',
+ ''forum::notification::get_url'',
+ ''TCL''
+ );
+
+ v_foo := acs_sc_impl_alias__new (
+ ''NotificationType'',
+ ''forums_forum_notif_type'',
+ ''ProcessReply'',
+ ''forum::notification::process_reply'',
+ ''TCL''
+ );
+
+ PERFORM acs_sc_binding__new (
+ ''NotificationType'',
+ ''forums_forum_notif_type''
+ );
+
+ v_foo:= notification_type__new (
+ NULL,
+ impl_id,
+ ''forums_forum_notif'',
+ ''Forum Notification'',
+ ''Notifications for Entire Forums'',
+ now(),
+ NULL,
+ NULL,
+ NULL
+ );
+
+ -- enable the various intervals and delivery methods
+ insert into notification_types_intervals
+ (type_id, interval_id)
+ select v_foo, interval_id
+ from notification_intervals where name in (''instant'',''hourly'',''daily'');
+
+ insert into notification_types_del_methods
+ (type_id, delivery_method_id)
+ select v_foo, delivery_method_id
+ from notification_delivery_methods where short_name in (''email'');
+
+ -- the notification type impl
+ impl_id := acs_sc_impl__new (
+ ''NotificationType'',
+ ''forums_message_notif_type'',
+ ''forums''
+ );
+
+ v_foo := acs_sc_impl_alias__new (
+ ''NotificationType'',
+ ''forums_message_notif_type'',
+ ''GetURL'',
+ ''forum::notification::get_url'',
+ ''TCL''
+ );
+
+ v_foo := acs_sc_impl_alias__new (
+ ''NotificationType'',
+ ''forums_message_notif_type'',
+ ''ProcessReply'',
+ ''forum::notification::process_reply'',
+ ''TCL''
+ );
+
+ PERFORM acs_sc_binding__new (
+ ''NotificationType'',
+ ''forums_message_notif_type''
+ );
+
+ v_foo:= notification_type__new (
+ NULL,
+ impl_id,
+ ''forums_message_notif'',
+ ''Message Notification'',
+ ''Notifications for Message Thread'',
+ now(),
+ NULL,
+ NULL,
+ NULL
+ );
+
+ -- enable the various intervals and delivery methods
+ insert into notification_types_intervals
+ (type_id, interval_id)
+ select v_foo, interval_id
+ from notification_intervals where name in (''instant'',''hourly'',''daily'');
+
+ insert into notification_types_del_methods
+ (type_id, delivery_method_id)
+ select v_foo, delivery_method_id
+ from notification_delivery_methods where short_name in (''email'');
+
+ return (0);
+end;
+' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
\ No newline at end of file
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-notifications-sanitize.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-notifications-sanitize.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-notifications-sanitize.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,136 @@
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert's UBB forums. Thanks Orchard Labs.
+--
+
+create function inline_0 ()
+returns integer as '
+declare
+ row record;
+begin
+ for row in select nt.type_id
+ from notification_types nt
+ where nt.short_name in (''forums_forum_notif'', ''forums_message_notif'')
+ loop
+ perform notification_type__delete(row.type_id);
+ end loop;
+
+ return null;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0 ();
+
+--
+-- Service contract drop stuff was missing - Roberto Mello
+--
+
+create function inline_0() returns integer as '
+declare
+ impl_id integer;
+ v_foo integer;
+begin
+
+ -- the notification type impl
+ impl_id := acs_sc_impl__get_id (
+ ''NotificationType'', -- impl_contract_name
+ ''forums_forum_notif_type'' -- impl_name
+ );
+
+ PERFORM acs_sc_binding__delete (
+ ''NotificationType'',
+ ''forums_forum_notif_type''
+ );
+
+ v_foo := acs_sc_impl_alias__delete (
+ ''NotificationType'', -- impl_contract_name
+ ''forums_forum_notif_type'', -- impl_name
+ ''GetURL'' -- impl_operation_name
+ );
+
+ v_foo := acs_sc_impl_alias__delete (
+ ''NotificationType'', -- impl_contract_name
+ ''forums_forum_notif_type'', -- impl_name
+ ''ProcessReply'' -- impl_operation_name
+ );
+
+ select into v_foo type_id
+ from notification_types
+ where sc_impl_id = impl_id
+ and short_name = ''forums_forum_notif'';
+
+ perform notification_type__delete (v_foo);
+
+ delete from notification_types_intervals
+ where type_id = v_foo
+ and interval_id in (
+ select interval_id
+ from notification_intervals
+ where name in (''instant'',''hourly'',''daily'')
+ );
+
+ delete from notification_types_del_methods
+ where type_id = v_foo
+ and delivery_method_id in (
+ select delivery_method_id
+ from notification_delivery_methods
+ where short_name in (''email'')
+ );
+
+ -- the notification type impl
+ impl_id := acs_sc_impl__get_id (
+ ''NotificationType'',
+ ''forums_message_notif_type''
+ );
+
+ PERFORM acs_sc_binding__delete (
+ ''NotificationType'',
+ ''forums_message_notif_type''
+ );
+
+ v_foo := acs_sc_impl_alias__delete (
+ ''NotificationType'',
+ ''forums_message_notif_type'',
+ ''GetURL''
+ );
+
+ v_foo := acs_sc_impl_alias__delete (
+ ''NotificationType'',
+ ''forums_message_notif_type'',
+ ''ProcessReply''
+ );
+
+ select into v_foo type_id
+ from notification_types
+ where sc_impl_id = impl_id
+ and short_name = ''forums_message_notif'';
+
+ perform notification_type__delete (v_foo);
+
+ delete from notification_types_intervals
+ where type_id = v_foo
+ and interval_id in (
+ select interval_id
+ from notification_intervals
+ where name in (''instant'',''hourly'',''daily'')
+ );
+
+ delete from notification_types_del_methods
+ where type_id = v_foo
+ and delivery_method_id in (
+ select delivery_method_id
+ from notification_delivery_methods
+ where short_name in (''email'')
+ );
+
+ return (0);
+end;
+' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-reading-info-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-reading-info-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-reading-info-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,226 @@
+create table forums_reading_info (
+ root_message_id integer
+ constraint forum_read_parent_id_fk
+ references forums_messages (message_id)
+ on delete cascade,
+ user_id integer
+ constraint forums_read_user_id_fk
+ references users(user_id)
+ constraint forums_read_user_id_nn
+ not null,
+ reading_date timestamp
+ default current_timestamp
+ constraint forum_read_datetime_nn
+ not null,
+ constraint forums_reading_info_pk primary key (root_message_id,user_id)
+);
+
+create index forums_reading_info_user_index on forums_reading_info (user_id);
+create index forums_reading_info_forum_message_index on forums_reading_info (root_message_id);
+
+create table forums_reading_info_user (
+ forum_id integer
+ constraint forums_read_forum_id_fk
+ references forums_forums (forum_id) on delete cascade,
+ user_id integer
+ constraint forums_read_user_id_fk
+ references users(user_id) on delete cascade
+ constraint forums_read_user_id_nn
+ not null,
+ threads_read integer
+ default 0
+ not null,
+ constraint forums_reading_info_user_pk primary key (forum_id,user_id)
+);
+
+
+-- remove reading_info for thread (upon new message, upon message deletion, or state change)
+create or replace function forums_reading_info__remove_msg (integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ v_forum_id integer;
+ v_reading RECORD;
+begin
+ select forum_id from forums_messages where message_id = p_message_id into v_forum_id;
+ for v_reading in select user_id
+ from forums_reading_info
+ where root_message_id = p_message_id
+ loop
+ delete from forums_reading_info
+ where root_message_id = p_message_id and
+ user_id = v_reading.user_id;
+ UPDATE forums_reading_info_user SET threads_read=threads_read-1 WHERE forum_id= v_forum_id and user_id = v_reading.user_id;
+ end loop;
+
+ return 0;
+end;
+' language 'plpgsql';
+
+
+-- mark_all_read:
+create or replace function forums_reading_info__user_add_forum (integer,integer)
+returns integer as '
+declare
+ p_forum_id alias for $1;
+ p_user_id alias for $2;
+ v_message RECORD;
+ v_read_p RECORD;
+begin
+ for v_message in select message_id
+ from forums_messages_approved
+ where forum_id = p_forum_id
+ and parent_id is null
+ loop
+ select into v_read_p * from forums_reading_info where user_id = p_user_id and root_message_id = v_message.message_id;
+ if NOT FOUND
+ then
+ insert into forums_reading_info
+ (root_message_id,user_id)
+ values
+ (v_message.message_id,p_user_id);
+ end if;
+ end loop;
+ delete from forums_reading_info_user where forum_id = p_forum_id and user_id = p_user_id;
+ insert into forums_reading_info_user (forum_id,user_id,threads_read) VALUES (p_forum_id,p_user_id,(select approved_thread_count from forums_forums where forum_id = p_forum_id));
+ return 0;
+end;
+' language 'plpgsql';
+
+-- mark message read for user
+create or replace function forums_reading_info__user_add_msg (integer,integer)
+returns integer as '
+declare
+ p_root_message_id alias for $1;
+ p_user_id alias for $2;
+ v_read_p RECORD;
+ v_forum_id integer;
+ v_exists boolean;
+begin
+ select forum_id from forums_messages where message_id = p_root_message_id into v_forum_id;
+ select into v_read_p * from forums_reading_info where user_id = p_user_id and root_message_id = p_root_message_id;
+ if NOT FOUND
+ then
+ insert into forums_reading_info
+ (root_message_id,user_id)
+ values
+ (p_root_message_id,p_user_id);
+ SELECT EXISTS(SELECT 1 FROM forums_reading_info_user WHERE forum_id=v_forum_id AND user_id=p_user_id) INTO v_exists;
+ if v_exists = true then
+ UPDATE forums_reading_info_user SET threads_read=threads_read+1 WHERE forum_id=v_forum_id AND user_id=p_user_id;
+ else
+ INSERT INTO forums_reading_info_user(forum_id,user_id,threads_read) VALUES (v_forum_id,p_user_id,1);
+ end if;
+ end if;
+
+ return 0;
+end;
+' language 'plpgsql';
+
+-- move thread to other forum
+create or replace function forums_message__move_update_reading_info (integer,integer,integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ p_old_forum_id alias for $2;
+ p_new_forum_id alias for $3;
+ v_message record;
+ v_users record;
+ v_read_p record;
+ v_threads integer;
+begin
+ raise notice ''updating for message %'', p_message_id;
+ for v_users in select user_id from forums_reading_info where root_message_id = p_message_id
+ loop
+ raise notice ''updating for user %'', v_users.user_id;
+ -- down the number of threads read in old forum
+ update forums_reading_info_user set threads_read = threads_read - 1
+ where forum_id = p_old_forum_id and user_id = v_users.user_id;
+ -- up the number of thread read in new forum
+ select count(*) into v_threads from forums_reading_info_user
+ where forum_id = p_new_forum_id and user_id = v_users.user_id;
+ if v_threads = 0 then
+ insert into forums_reading_info_user (forum_id,user_id,threads_read)
+ values (p_new_forum_id,v_users.user_id,1);
+ else
+ update forums_reading_info_user set threads_read = threads_read + 1
+ where forum_id = p_new_forum_id and user_id = v_users.user_id;
+ end if;
+ end loop;
+
+ return 1;
+
+end;' language 'plpgsql';
+
+
+-- move thread to other thread
+create or replace function forums_message__move_thread_thread_update_reading_info (integer,integer, integer)
+returns integer as '
+declare
+ p_source_message_id alias for $1;
+ p_source_forum_id alias for $2;
+ p_target_message_id alias for $3;
+ v_target_forum_id integer;
+ v_users record;
+begin
+ select forum_id from forums_messages where message_id = p_target_message_id into v_target_forum_id;
+ -- for all users that have read target, but not the source, remove target_info
+ for v_users in select user_id from forums_reading_info fri where root_message_id = p_target_message_id and not exists(select 1 from forums_reading_info where root_message_id = p_source_message_id and user_id = fri.user_id)
+ loop
+ delete from forums_reading_info where root_message_id = p_target_message_id and user_id = v_users.user_id;
+ -- down the number of threads read in target forum
+ update forums_reading_info_user set threads_read = threads_read - 1
+ where forum_id = v_target_forum_id and user_id = v_users.user_id;
+ end loop;
+ -- for all users that have read source, down the nummber of thread in source forum and remove reading info four source message since it no longer is root_message_id
+ for v_users in select user_id from forums_reading_info where root_message_id = p_source_message_id
+ loop
+ delete from forums_reading_info where root_message_id = p_source_message_id and user_id = v_users.user_id;
+ update forums_reading_info_user set threads_read = threads_read - 1
+ where forum_id = p_source_forum_id and user_id = v_users.user_id;
+ end loop;
+ return 1;
+
+end;' language 'plpgsql';
+
+-- move message to other thread
+create or replace function forums_message__move_thread_update_reading_info (integer,integer,integer)
+returns integer as '
+declare
+ p_source_message_id alias for $1;
+ p_source_old_root_message_id alias for $2;
+ p_target_message_id alias for $3;
+ v_target_forum_id integer;
+ v_users record;
+begin
+ select forum_id from forums_messages where message_id = p_target_message_id into v_target_forum_id;
+ raise notice ''v_target_forum_id %'', v_target_forum_id;
+ -- for all users that have read target, but not the source, remove target_info
+ for v_users in select user_id from forums_reading_info fri where root_message_id = p_target_message_id and not exists(select 1 from forums_reading_info where root_message_id = p_source_old_root_message_id and user_id = fri.user_id)
+ loop
+ delete from forums_reading_info where root_message_id = p_target_message_id and user_id = v_users.user_id;
+ -- down the number of threads read in target forum
+ update forums_reading_info_user set threads_read = threads_read - 1
+ where forum_id = v_target_forum_id and user_id = v_users.user_id;
+ end loop;
+ return 1;
+
+end;' language 'plpgsql';
+
+
+-- recount reading_info_user from reading_info
+create or replace function forums_message__repair_reading_info ()
+returns integer as '
+declare
+v_users record;
+begin
+delete from forums_reading_info_user;
+for v_users in
+select user_id,(select forum_id from forums_messages where message_id = root_message_id) as forum_id, count(root_message_id) as threads_read from forums_reading_info group by forum_id,user_id
+loop
+insert into forums_reading_info_user (forum_id,user_id,threads_read)
+values
+(v_users.forum_id,v_users.user_id,v_users.threads_read);
+end loop;
+return 1;
+end;' language 'plpgsql';
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-reading-info-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-reading-info-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-reading-info-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,22 @@
+--
+-- The Forums Package
+--
+-- @author David Arroyo darroyo@innova.uned.es
+-- @creation-date 01-06-2007
+-- @version $Id$
+--
+-- This is free software distributed under the terms of the GNU Public
+-- License version 2 or later. Full text of the license is available from the GNU Project:
+-- http://www.fsf.org/copyleft/gpl.html
+
+drop function forums_message__repair_reading_info ();
+drop function forums_message__move_thread_update_reading_info (integer,integer,integer);
+drop function forums_message__move_thread_thread_update_reading_info (integer,integer, integer);
+drop function forums_message__move_update_reading_info (integer,integer,integer);
+drop function forums_reading_info__user_add_msg (integer,integer);
+drop function forums_reading_info__user_add_forum (integer,integer);
+drop function forums_reading_info__remove_msg (integer);
+drop table forums_reading_info_user;
+drop index forums_reading_info_forum_message_index;
+drop index forums_reading_info_user_index ;
+drop table forums_reading_info;
\ No newline at end of file
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-sc-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-sc-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-sc-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,95 @@
+-- forums service contracts for Search package
+-- dave bauer
+-- August 7, 2002
+
+-- jcd: 2004-04-01 moved the sc create to the tcl callbacks, and added one for forum_forum objtype
+-- TODO-JCD: trigger for forums_forums
+
+-- til: only indexing full threads. changes to child messages will be treated as
+-- change to the thread.
+
+create or replace function forums_message_search__itrg ()
+returns trigger as '
+begin
+ if new.parent_id is null then
+ perform search_observer__enqueue(new.message_id,''INSERT'');
+ else
+ perform search_observer__enqueue(forums_message__root_message_id(new.parent_id),''UPDATE'');
+ end if;
+ return new;
+end;' language 'plpgsql';
+
+create or replace function forums_message_search__dtrg ()
+returns trigger as '
+declare
+ v_root_message_id forums_messages.message_id%TYPE;
+begin
+ -- if the deleted msg has a parent then its an UPDATE to a thread, otherwise a DELETE.
+
+ if old.parent_id is null then
+ perform search_observer__enqueue(old.message_id,''DELETE'');
+ else
+ v_root_message_id := forums_message__root_message_id(old.parent_id);
+ if not v_root_message_id is null then
+ perform search_observer__enqueue(v_root_message_id,''UPDATE'');
+ end if;
+ end if;
+
+ return old;
+end;' language 'plpgsql';
+
+create or replace function forums_message_search__utrg ()
+returns trigger as '
+begin
+ perform search_observer__enqueue(forums_message__root_message_id (old.message_id),''UPDATE'');
+ return old;
+end;' language 'plpgsql';
+
+
+create trigger forums_message_search__itrg after insert on forums_messages
+for each row execute procedure forums_message_search__itrg ();
+
+create trigger forums_message_search__dtrg after delete on forums_messages
+for each row execute procedure forums_message_search__dtrg ();
+
+create trigger forums_message_search__utrg after update on forums_messages
+for each row execute procedure forums_message_search__utrg ();
+
+
+
+-- forums_forums indexing trigger
+create or replace function forums_forums_search__itrg ()
+returns trigger as '
+begin
+ perform search_observer__enqueue(new.forum_id,''INSERT'');
+
+ return new;
+end;' language 'plpgsql';
+
+create or replace function forums_forums_search__utrg ()
+returns trigger as '
+begin
+ perform search_observer__enqueue(new.forum_id,''UPDATE'');
+
+ return new;
+end;' language 'plpgsql';
+
+create or replace function forums_forums_search__dtrg ()
+returns trigger as '
+begin
+ perform search_observer__enqueue(old.forum_id,''DELETE'');
+
+ return old;
+end;' language 'plpgsql';
+
+
+
+create trigger forums_forums_search__itrg after insert on forums_forums
+for each row execute procedure forums_forums_search__itrg ();
+
+create trigger forums_forums_search__utrg after update on forums_forums
+for each row execute procedure forums_forums_search__utrg ();
+
+create trigger forums_forums_search__dtrg after delete on forums_forums
+for each row execute procedure forums_forums_search__dtrg ();
+
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-sc-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-sc-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-sc-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,24 @@
+-- /packages/news/sql/news-sc-drop.sql
+--
+-- @author Robert Locke (rlocke@infiniteinfo.com)
+-- @created 2001-10-23
+-- @cvs-id $Id$
+--
+-- Removes search support from news module.
+--
+drop trigger forums_message_search__itrg on forums_messages;
+drop trigger forums_message_search__dtrg on forums_messages;
+drop trigger forums_message_search__utrg on forums_messages;
+
+drop function forums_message_search__itrg ();
+drop function forums_message_search__dtrg ();
+drop function forums_message_search__utrg ();
+
+drop trigger forums_forums_search__itrg on forums_forums;
+drop trigger forums_forums_search__dtrg on forums_forums;
+drop trigger forums_forums_search__utrg on forums_forums;
+
+drop function forums_forums_search__itrg ();
+drop function forums_forums_search__dtrg ();
+drop function forums_forums_search__utrg ();
+
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-tree-create.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-tree-create.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-tree-create.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,62 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert. Thanks Orchard Labs!
+--
+
+--
+-- This is the sortkey code
+--
+
+create function forums_mess_insert_tr ()
+returns opaque as '
+declare
+ v_max_child_sortkey forums_forums.max_child_sortkey%TYPE;
+ v_parent_sortkey forums_messages.tree_sortkey%TYPE;
+begin
+
+ if new.parent_id is null
+ then
+
+ select '''', max_child_sortkey
+ into v_parent_sortkey, v_max_child_sortkey
+ from forums_forums
+ where forum_id = new.forum_id
+ for update;
+
+ v_max_child_sortkey := tree_increment_key(v_max_child_sortkey);
+
+ update forums_forums
+ set max_child_sortkey = v_max_child_sortkey
+ where forum_id = new.forum_id;
+
+ else
+
+ select coalesce(tree_sortkey, ''''), max_child_sortkey
+ into v_parent_sortkey, v_max_child_sortkey
+ from forums_messages
+ where message_id = new.parent_id
+ for update;
+
+ v_max_child_sortkey := tree_increment_key(v_max_child_sortkey);
+
+ update forums_messages
+ set max_child_sortkey = v_max_child_sortkey
+ where message_id = new.parent_id;
+
+ end if;
+
+ new.tree_sortkey := v_parent_sortkey || v_max_child_sortkey;
+
+ return new;
+end;' language 'plpgsql';
+
+create trigger forums_mess_insert_tr
+before insert on forums_messages
+for each row
+execute procedure forums_mess_insert_tr();
Index: dotlrn_packages/packages/forums/sql/postgresql/forums-tree-drop.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/forums-tree-drop.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/forums-tree-drop.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,17 @@
+
+--
+-- The Forums Package
+--
+-- @author gwong@orchardlabs.com,ben@openforce.biz
+-- @creation-date 2002-05-16
+--
+-- This code is newly concocted by Ben, but with significant concepts and code
+-- lifted from Gilbert. Thanks Orchard Labs!
+--
+
+--
+-- This is the sortkey code
+--
+
+drop trigger forums_mess_insert_tr on forums_messages;
+drop function forums_mess_insert_tr ();
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-0.1d-0.2d.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-0.1d-0.2d.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-0.1d-0.2d.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,173 @@
+alter table forums_forums add column last_post timestamptz;
+alter table forums_messages add column last_child_post timestamptz;
+
+create or replace function t () returns integer as '
+declare
+ v_record record;
+ v_timestamp timestamptz;
+begin
+
+ for v_record in select forum_id
+ from forums_forums
+ loop
+
+ select last_modified into v_timestamp
+ from acs_objects
+ where object_id = v_record.forum_id;
+
+ update forums_forums
+ set last_post = v_timestamp
+ where forum_id = v_record.forum_id;
+
+ end loop;
+
+ for v_record in select message_id
+ from forums_messages
+ where parent_id is null
+ loop
+
+ -- forums 0.1d did not properly set the last_modified field of the object
+ -- row associated with the root message of a thread, so we need to calculate
+ -- it here.
+
+ select max(o.last_modified) into v_timestamp
+ from acs_objects o, forums_messages fm
+ where forums_message__root_message_id(fm.message_id) = v_record.message_id
+ and object_id = fm.message_id;
+
+ update forums_messages
+ set last_child_post = v_timestamp
+ where message_id = v_record.message_id;
+
+ end loop;
+
+ return 1;
+
+end;' language 'plpgsql';
+
+select t();
+
+drop view forums_messages_approved;
+create view forums_messages_approved
+as
+ select *
+ from forums_messages
+ where state = 'approved';
+
+drop view forums_messages_pending;
+create view forums_messages_pending
+as
+ select *
+ from forums_messages
+ where state= 'pending';
+
+drop view forums_forums_enabled;
+create view forums_forums_enabled
+as
+ select *
+ from forums_forums
+ where enabled_p = 't';
+
+create or replace function forums_message__new (integer,varchar,integer,varchar,text,char,integer,timestamptz,varchar,integer,timestamptz,integer,varchar,integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ p_object_type alias for $2;
+ p_forum_id alias for $3;
+ p_subject alias for $4;
+ p_content alias for $5;
+ p_html_p alias for $6;
+ p_user_id alias for $7;
+ p_posting_date alias for $8;
+ p_state alias for $9;
+ p_parent_id alias for $10;
+ p_creation_date alias for $11;
+ p_creation_user alias for $12;
+ p_creation_ip alias for $13;
+ p_context_id alias for $14;
+ v_message_id integer;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ v_posting_date forums_messages.posting_date%TYPE;
+begin
+ v_message_id := acs_object__new(
+ p_message_id,
+ p_object_type,
+ p_creation_date,
+ p_creation_user,
+ p_creation_ip,
+ coalesce(p_context_id, p_forum_id)
+ );
+
+ if p_state is null then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id = p_forum_id;
+
+ if v_forum_policy = ''moderated''
+ then v_state := ''pending'';
+ else v_state := ''approved'';
+ end if;
+ else
+ v_state := p_state;
+ end if;
+
+ if p_posting_date is null then
+ v_posting_date = now();
+ else
+ v_posting_date = p_posting_date;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, state)
+ values
+ (v_message_id, p_forum_id, p_subject, p_content, p_html_p, p_user_id, v_posting_date, p_parent_id, v_state);
+
+ update forums_forums
+ set last_post = v_posting_date
+ where forum_id = p_forum_id;
+
+ update forums_messages
+ set last_child_post = v_posting_date
+ where message_id = forums_message__root_message_id(v_message_id);
+
+ return v_message_id;
+
+end;
+' language 'plpgsql';
+
+create or replace function forums_forum__new (integer,varchar,varchar,varchar,varchar,varchar,integer,timestamptz,integer,varchar,integer)
+returns integer as '
+declare
+ p_forum_id alias for $1;
+ p_object_type alias for $2;
+ p_name alias for $3;
+ p_charter alias for $4;
+ p_presentation_type alias for $5;
+ p_posting_policy alias for $6;
+ p_package_id alias for $7;
+ p_creation_date alias for $8;
+ p_creation_user alias for $9;
+ p_creation_ip alias for $10;
+ p_context_id alias for $11;
+ v_forum_id integer;
+begin
+ v_forum_id:= acs_object__new(
+ p_forum_id,
+ p_object_type,
+ p_creation_date,
+ p_creation_user,
+ p_creation_ip,
+ coalesce(p_context_id, p_package_id)
+ );
+
+ insert into forums_forums
+ (forum_id, name, charter, presentation_type, posting_policy, package_id)
+ values
+ (v_forum_id, p_name, p_charter, p_presentation_type, p_posting_policy, p_package_id);
+
+ return v_forum_id;
+end;
+' language 'plpgsql';
+
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-0.2d-0.3d.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-0.2d-0.3d.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-0.2d-0.3d.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,28 @@
+-- forums/sql/postgresql/upgrade-0.2d-0.3d.sql
+--
+-- Changes for scalability davis@xarg.net
+
+create unique index forums_mess_forum_sk_un on forums_messages(forum_id, tree_sortkey);
+
+create or replace function forums_message__root_message_id (integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ v_message_id forums_messages.message_id%TYPE;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = p_message_id;
+
+ select message_id
+ into v_message_id
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey = tree_ancestor_key(v_sortkey, 1);
+
+ return v_message_id;
+end;
+' language 'plpgsql' with(isstrict,iscachable);
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-0.3d-0.4d.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-0.3d-0.4d.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-0.3d-0.4d.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,3 @@
+-- Need these two for RI checks
+create index forums_messages_user_id_idx ON forums_messages(user_id);
+create index forums_messages_parent_id_idx ON forums_messages(parent_id);
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.0.6-1.0.7d.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.0.6-1.0.7d.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.0.6-1.0.7d.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,274 @@
+alter table forums_forums add column thread_count integer;
+alter table forums_forums alter thread_count set default 0;
+
+alter table forums_forums add column approved_thread_count integer;
+alter table forums_forums alter approved_thread_count set default 0;
+
+update forums_forums
+set approved_thread_count = (select count(message_id)
+ from forums_messages_approved fm
+ where fm.forum_id=forums_forums.forum_id
+ and fm.parent_id is null),
+ thread_count = (select count(message_id)
+ from forums_messages fm
+ where fm.forum_id=forums_forums.forum_id
+ and fm.parent_id is null);
+
+alter table forums_messages add column reply_count integer;
+alter table forums_messages alter reply_count set default 0;
+
+alter table forums_messages add column approved_reply_count integer;
+alter table forums_messages alter approved_reply_count set default 0;
+
+-- Need to drop and recreate because Postgres doesn't allow one to change the
+-- number of columns in a view when you do a "replace".
+
+drop view forums_forums_enabled;
+create view forums_forums_enabled
+as
+ select *
+ from forums_forums
+ where enabled_p = 't';
+
+drop view forums_messages_approved;
+create or replace view forums_messages_approved
+as
+ select *
+ from forums_messages
+ where state = 'approved';
+
+drop view forums_messages_pending;
+create or replace view forums_messages_pending
+as
+ select *
+ from forums_messages
+ where state= 'pending';
+
+update forums_messages
+set approved_reply_count = (select count(*)
+ from forums_messages_approved fm1
+ where fm1.tree_sortkey
+ between tree_left(forums_messages.tree_sortkey)
+ and tree_right(forums_messages.tree_sortkey)
+ and forums_messages.forum_id = fm1.forum_id),
+ reply_count = (select count(*)
+ from forums_messages fm1
+ where fm1.tree_sortkey
+ between tree_left(forums_messages.tree_sortkey)
+ and tree_right(forums_messages.tree_sortkey)
+ and forums_messages.forum_id = fm1.forum_id)
+where parent_id is null;
+
+select define_function_args ('forums_message__new', 'message_id,object_type;forums_message,forum_id,subject,content,format,user_id,state,parent_id,creation_date,creation_user,creation_ip,context_id');
+
+-- Get rid of the old version so we'll throw an error if the admin forgets to reboot
+-- OpenACS after the upgrade (package_instantiate_object caches param lists)
+
+drop function forums_message__new (integer,varchar,integer,varchar,text,char,integer,timestamptz,varchar,integer,timestamptz,integer,varchar,integer);
+
+create or replace function forums_message__new (integer,varchar,integer,varchar,text,char,integer,varchar,integer,timestamptz,integer,varchar,integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ p_object_type alias for $2;
+ p_forum_id alias for $3;
+ p_subject alias for $4;
+ p_content alias for $5;
+ p_format alias for $6;
+ p_user_id alias for $7;
+ p_state alias for $8;
+ p_parent_id alias for $9;
+ p_creation_date alias for $10;
+ p_creation_user alias for $11;
+ p_creation_ip alias for $12;
+ p_context_id alias for $13;
+ v_message_id integer;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+begin
+ v_message_id := acs_object__new(
+ p_message_id,
+ p_object_type,
+ p_creation_date,
+ p_creation_user,
+ p_creation_ip,
+ coalesce(p_context_id, p_forum_id)
+ );
+
+ if p_state is null then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id = p_forum_id;
+
+ if v_forum_policy = ''moderated''
+ then v_state := ''pending'';
+ else v_state := ''approved'';
+ end if;
+ else
+ v_state := p_state;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, format, user_id, parent_id, state, last_child_post)
+ values
+ (v_message_id, p_forum_id, p_subject, p_content, p_format, p_user_id, p_parent_id,
+ v_state, current_timestamp);
+
+ update forums_forums
+ set last_post = current_timestamp
+ where forum_id = p_forum_id;
+
+ if p_parent_id is null then
+ if v_state = ''approved'' then
+ update forums_forums
+ set thread_count = thread_count + 1,
+ approved_thread_count = approved_thread_count + 1
+ where forum_id=p_forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count + 1
+ where forum_id=p_forum_id;
+ end if;
+ else
+ if v_state = ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1,
+ reply_count = reply_count + 1,
+ last_child_post = current_timestamp
+ where message_id = forums_message__root_message_id(v_message_id);
+ else
+ update forums_messages
+ set reply_count = reply_count + 1,
+ last_child_post = current_timestamp
+ where message_id = forums_message__root_message_id(v_message_id);
+ end if;
+ end if;
+
+ return v_message_id;
+
+end;' language 'plpgsql';
+
+select define_function_args ('forums_message__set_state', 'message_id,state');
+
+create or replace function forums_message__set_state(integer,varchar) returns integer as '
+declare
+ p_message_id alias for $1;
+ p_state alias for $2;
+ v_cur record;
+begin
+
+ select into v_cur *
+ from forums_messages
+ where message_id = p_message_id;
+
+ if v_cur.parent_id is null then
+ if p_state = ''approved'' and v_cur.state <> ''approved'' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count + 1
+ where forum_id=v_cur.forum_id;
+ elsif p_state <> ''approved'' and v_cur.state = ''approved'' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ else
+ if p_state = ''approved'' and v_cur.state <> ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ elsif p_state <> ''approved'' and v_cur.state = ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ end if;
+ end if;
+
+ update forums_messages
+ set state = p_state
+ where message_id = p_message_id;
+
+ return 0;
+
+end;' language 'plpgsql';
+
+create or replace function forums_message__delete (integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ v_cur record;
+begin
+
+ -- Maintain the forum thread counts
+
+ select into v_cur *
+ from forums_messages
+ where message_id = p_message_id;
+
+ if v_cur.parent_id is null then
+ if v_cur.state = ''approved'' then
+ update forums_forums
+ set thread_count = thread_count - 1,
+ approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ elsif v_cur.state = ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1,
+ reply_count = reply_count - 1
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ else
+ update forums_messages
+ set reply_count = reply_count - 1
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ end if;
+
+ perform acs_object__delete(p_message_id);
+ return 0;
+
+end;' language 'plpgsql';
+
+select define_function_args ('forums_message__delete_thread', 'message_id');
+
+create or replace function forums_message__delete_thread (integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ v_forum_id forums_messages.forum_id%TYPE;
+ v_sortkey forums_messages.tree_sortkey%TYPE;
+ v_message RECORD;
+begin
+ select forum_id, tree_sortkey
+ into v_forum_id, v_sortkey
+ from forums_messages
+ where message_id = p_message_id;
+
+ -- if it is already deleted
+ if v_forum_id is null
+ then return 0;
+ end if;
+
+ -- delete all children
+ -- order by tree_sortkey desc to guarantee
+ -- that we never delete a parent before its child
+ -- sortkeys are beautiful
+ for v_message in select *
+ from forums_messages
+ where forum_id = v_forum_id
+ and tree_sortkey between tree_left(v_sortkey) and tree_right(v_sortkey)
+ order by tree_sortkey desc
+ loop
+ -- Avoid the count bookkeeping down in forums_message__delete
+ perform forums_message__delete(v_message.message_id);
+ end loop;
+
+ -- delete the message itself
+ perform forums_message__delete(p_message_id);
+
+ return 0;
+end;' language 'plpgsql';
+
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.0d4-1.0.1d2.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.0d4-1.0.1d2.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.0d4-1.0.1d2.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,99 @@
+alter table forums_messages add format varchar(30);
+alter table forums_messages alter column format set default 'text/plain';
+alter table forums_messages add constraint forums_mess_format_ck check (format in ('text/enhanced', 'text/plain', 'text/fixed-width', 'text/html'));
+
+update forums_messages
+set format = 'text/html'
+where html_p = 't';
+update forums_messages
+set format = 'text/plain'
+where html_p = 'f';
+
+alter table forums_messages drop column html_p cascade;
+
+-- recreate the views
+create or replace view forums_messages_approved
+as
+ select *
+ from forums_messages
+ where state = 'approved';
+
+create or replace view forums_messages_pending
+as
+ select *
+ from forums_messages
+ where state= 'pending';
+
+
+-- taken from forums-messages-package-create.sql
+
+select define_function_args ('forums_message__new', 'message_id,object_type;forums_message,forum_id,subject,content,format,user_id,posting_date,state,parent_id,creation_date,creation_user,creation_ip,context_id');
+
+create or replace function forums_message__new (integer,varchar,integer,varchar,text,char,integer,timestamptz,varchar,integer,timestamptz,integer,varchar,integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ p_object_type alias for $2;
+ p_forum_id alias for $3;
+ p_subject alias for $4;
+ p_content alias for $5;
+ p_format alias for $6;
+ p_user_id alias for $7;
+ p_posting_date alias for $8;
+ p_state alias for $9;
+ p_parent_id alias for $10;
+ p_creation_date alias for $11;
+ p_creation_user alias for $12;
+ p_creation_ip alias for $13;
+ p_context_id alias for $14;
+ v_message_id integer;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ v_posting_date forums_messages.posting_date%TYPE;
+begin
+ v_message_id := acs_object__new(
+ p_message_id,
+ p_object_type,
+ p_creation_date,
+ p_creation_user,
+ p_creation_ip,
+ coalesce(p_context_id, p_forum_id)
+ );
+
+ if p_state is null then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id = p_forum_id;
+
+ if v_forum_policy = ''moderated''
+ then v_state := ''pending'';
+ else v_state := ''approved'';
+ end if;
+ else
+ v_state := p_state;
+ end if;
+
+ if p_posting_date is null then
+ v_posting_date = now();
+ else
+ v_posting_date = p_posting_date;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, format, user_id, posting_date, parent_id, state)
+ values
+ (v_message_id, p_forum_id, p_subject, p_content, p_format, p_user_id, v_posting_date, p_parent_id, v_state);
+
+ update forums_forums
+ set last_post = v_posting_date
+ where forum_id = p_forum_id;
+
+ update forums_messages
+ set last_child_post = v_posting_date
+ where message_id = forums_message__root_message_id(v_message_id);
+
+ return v_message_id;
+
+end;
+' language 'plpgsql';
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.1.1-1.1.2d1.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.1.1-1.1.2d1.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.1.1-1.1.2d1.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,35 @@
+update acs_permissions
+ set privilege = 'read'
+ where privilege = 'forum_read'
+ and not exists (select 1
+ from acs_permissions p1
+ where p1.object_id = acs_permissions.object_id
+ and p1.grantee_id = acs_permissions.grantee_id
+ and p1.privilege = 'read');
+
+delete from acs_permissions
+ where privilege = 'forum_read';
+
+update acs_permissions
+ set privilege = 'write'
+ where privilege = 'forum_write'
+ and not exists (select 1
+ from acs_permissions p1
+ where p1.object_id = acs_permissions.object_id
+ and p1.grantee_id = acs_permissions.grantee_id
+ and p1.privilege = 'write');
+
+delete from acs_permissions
+ where privilege = 'forum_write';
+
+update acs_permissions
+ set privilege = 'create'
+ where privilege = 'forum_create'
+ and not exists (select 1
+ from acs_permissions p1
+ where p1.object_id = acs_permissions.object_id
+ and p1.grantee_id = acs_permissions.grantee_id
+ and p1.privilege = 'create');
+
+delete from acs_permissions
+ where privilege = 'forum_create';
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.1.2d4-1.1.2d5.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.1.2d4-1.1.2d5.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.1.2d4-1.1.2d5.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,52 @@
+--
+-- Most of the forum_* privileges are now deprecated. A notable exception is
+-- forum_moderate, which is little used but provides a way to grant moderation
+-- privileges without granting full admin privileges.
+--
+
+update acs_permissions
+set privilege = 'read'
+where privilege = 'forum_read';
+
+update acs_permissions
+set privilege = 'write'
+where privilege = 'forum_write';
+
+update acs_permissions
+set privilege = 'create'
+where privilege = 'forum_create';
+
+update acs_permissions
+set privilege = 'delete'
+where privilege = 'forum_delete';
+
+-- As best as we can tell this is never used even though it's granted
+-- by dotlrn-forums.
+
+delete from acs_permissions where privilege = 'forum_post';
+
+create function inline_0 ()
+returns integer as'
+begin
+ perform acs_privilege__remove_child(''read'',''forum_read'');
+ perform acs_privilege__remove_child(''create'',''forum_create'');
+ perform acs_privilege__remove_child(''write'',''forum_write'');
+ perform acs_privilege__remove_child(''delete'',''forum_delete'');
+ perform acs_privilege__remove_child(''forum_moderate'',''forum_read'');
+ perform acs_privilege__remove_child(''forum_moderate'',''forum_post'');
+ perform acs_privilege__remove_child(''forum_write'',''forum_read'');
+ perform acs_privilege__remove_child(''forum_write'',''forum_post'');
+
+ perform acs_privilege__drop_privilege(''forum_read'');
+ perform acs_privilege__drop_privilege(''forum_create'');
+ perform acs_privilege__drop_privilege(''forum_write'');
+ perform acs_privilege__drop_privilege(''forum_post'');
+ perform acs_privilege__drop_privilege(''forum_delete'');
+
+ return null;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
+
+
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.1d1-1.1d2.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.1d1-1.1d2.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.1d1-1.1d2.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,119 @@
+-- replace new functions with ones that set acs_object.title, package_id
+
+create or replace function forums_forum__new (integer,varchar,varchar,varchar,varchar,varchar,integer,timestamptz,integer,varchar,integer)
+returns integer as '
+declare
+ p_forum_id alias for $1;
+ p_object_type alias for $2;
+ p_name alias for $3;
+ p_charter alias for $4;
+ p_presentation_type alias for $5;
+ p_posting_policy alias for $6;
+ p_package_id alias for $7;
+ p_creation_date alias for $8;
+ p_creation_user alias for $9;
+ p_creation_ip alias for $10;
+ p_context_id alias for $11;
+ v_forum_id integer;
+begin
+ v_forum_id:= acs_object__new(
+ p_forum_id,
+ p_object_type,
+ p_creation_date,
+ p_creation_user,
+ p_creation_ip,
+ coalesce(p_context_id, p_package_id),
+ ''t'',
+ p_name,
+ p_package_id
+ );
+
+ insert into forums_forums
+ (forum_id, name, charter, presentation_type, posting_policy, package_id)
+ values
+ (v_forum_id, p_name, p_charter, p_presentation_type, p_posting_policy, p_package_id);
+
+ return v_forum_id;
+end;
+' language 'plpgsql';
+
+
+create or replace function forums_message__new (integer,varchar,integer,varchar,text,char,integer,timestamptz,varchar,integer,timestamptz,integer,varchar,integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ p_object_type alias for $2;
+ p_forum_id alias for $3;
+ p_subject alias for $4;
+ p_content alias for $5;
+ p_html_p alias for $6;
+ p_user_id alias for $7;
+ p_posting_date alias for $8;
+ p_state alias for $9;
+ p_parent_id alias for $10;
+ p_creation_date alias for $11;
+ p_creation_user alias for $12;
+ p_creation_ip alias for $13;
+ p_context_id alias for $14;
+ v_message_id integer;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ v_posting_date forums_messages.posting_date%TYPE;
+ v_package_id acs_objects.package_id%TYPE;
+begin
+
+ select package_id into v_package_id from forums_forums where forum_id = p_forum_id;
+
+ if v_package_id is null then
+ raise exception ''forums_message__new: forum_id % not found'', p_forum_id;
+ end if;
+
+ v_message_id := acs_object__new(
+ p_message_id,
+ p_object_type,
+ p_creation_date,
+ p_creation_user,
+ p_creation_ip,
+ coalesce(p_context_id, p_forum_id),
+ ''t'',
+ p_subject,
+ v_package_id
+ );
+
+ if p_state is null then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id = p_forum_id;
+
+ if v_forum_policy = ''moderated''
+ then v_state := ''pending'';
+ else v_state := ''approved'';
+ end if;
+ else
+ v_state := p_state;
+ end if;
+
+ if p_posting_date is null then
+ v_posting_date = now();
+ else
+ v_posting_date = p_posting_date;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, state)
+ values
+ (v_message_id, p_forum_id, p_subject, p_content, p_html_p, p_user_id, v_posting_date, p_parent_id, v_state);
+
+ update forums_forums
+ set last_post = v_posting_date
+ where forum_id = p_forum_id;
+
+ update forums_messages
+ set last_child_post = v_posting_date
+ where message_id = forums_message__root_message_id(v_message_id);
+
+ return v_message_id;
+
+end;
+' language 'plpgsql';
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2.0d3-1.2.0d4.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2.0d3-1.2.0d4.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2.0d3-1.2.0d4.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,22 @@
+--
+-- packages/forums/sql/postgresql/upgrade/upgrade-1.2.0d3-1.2.0d4.sql
+--
+-- @author Deds Castillo (deds@i-manila.com.ph)
+-- @creation-date 2006-05-10
+-- @arch-tag: 3b12c94c-beed-4b92-a2bb-f07a2856154e
+-- @cvs-id $Id$
+--
+
+-- increase charter to 4000 chars
+
+alter table forums_forums add charter_temp varchar(4000);
+update forums_forums set charter_temp = charter;
+drop view forums_forums_enabled;
+alter table forums_forums drop charter;
+alter table forums_forums rename charter_temp to charter;
+
+create view forums_forums_enabled
+as
+ select *
+ from forums_forums
+ where enabled_p = 't';
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2.0d4-1.3d1.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2.0d4-1.3d1.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2.0d4-1.3d1.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,16 @@
+-- Update the package ids for projects
+create function inline_0 ()
+returns integer as '
+declare
+ ct RECORD;
+begin
+ for ct in select package_id, forum_id from forums_forums
+ loop
+ update acs_objects set package_id = ct.package_id where object_id = ct.forum_id;
+ end loop;
+
+ return null;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2d1-1.2d2.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2d1-1.2d2.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2d1-1.2d2.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,238 @@
+-- @author Jeff Davis davis@xarg.net
+--
+-- bug 1807 last_poster rather than first poster should be shown in forums index page
+-- add a last_poster to support this and update triggers to support it.
+
+alter table forums_messages add column last_poster integer
+ constraint forums_mess_last_poster_fk
+ references users(user_id);
+
+-- Now populate the new column
+-- this depends on last_child_post being properly set.
+-- use min(user_id) just in case there are two that have the same timestamp)
+
+update forums_messages set last_poster = (select min(user_id)
+ from forums_messages fm1
+ where fm1.posting_date = forums_messages.last_child_post
+ and forums_messages.forum_id = fm1.forum_id
+ and fm1.tree_sortkey
+ between tree_left(forums_messages.tree_sortkey)
+ and tree_right(forums_messages.tree_sortkey) )
+where parent_id is null;
+
+-- the better method above fails for some things (like notably openacs.org where
+-- the last_child_post may not exist in the child posts due to import and upgrade
+-- glitches. try this one which will give us a name no matter what.
+update forums_messages
+set last_poster = (select user_id
+ from forums_messages fm1
+ where fm1.message_id = (select max(message_id)
+ from forums_messages fm2
+ where forums_messages.forum_id = fm2.forum_id
+ and fm2.tree_sortkey
+ between tree_left(forums_messages.tree_sortkey)
+ and tree_right(forums_messages.tree_sortkey) ))
+where parent_id is null and last_poster is null;
+
+
+-- Need to drop and recreate because Postgres doesn't allow one to change the
+-- number of columns in a view when you do a "replace".
+drop view forums_messages_approved;
+create or replace view forums_messages_approved
+as
+ select *
+ from forums_messages
+ where state = 'approved';
+
+drop view forums_messages_pending;
+create or replace view forums_messages_pending
+as
+ select *
+ from forums_messages
+ where state= 'pending';
+
+
+--
+-- Replace the procs which manipulate state and new message to save last_poster.
+--
+create or replace function forums_message__new (integer,varchar,integer,varchar,text,char,integer,varchar,integer,timestamptz,integer,varchar,integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ p_object_type alias for $2;
+ p_forum_id alias for $3;
+ p_subject alias for $4;
+ p_content alias for $5;
+ p_format alias for $6;
+ p_user_id alias for $7;
+ p_state alias for $8;
+ p_parent_id alias for $9;
+ p_creation_date alias for $10;
+ p_creation_user alias for $11;
+ p_creation_ip alias for $12;
+ p_context_id alias for $13;
+ v_message_id integer;
+ v_forum_policy forums_forums.posting_policy%TYPE;
+ v_state forums_messages.state%TYPE;
+ v_posting_date forums_messages.posting_date%TYPE;
+ v_package_id acs_objects.package_id%TYPE;
+begin
+
+ select package_id into v_package_id from forums_forums where forum_id = p_forum_id;
+
+ if v_package_id is null then
+ raise exception ''forums_message__new: forum_id % not found'', p_forum_id;
+ end if;
+
+ v_message_id := acs_object__new(
+ p_message_id,
+ p_object_type,
+ p_creation_date,
+ p_creation_user,
+ p_creation_ip,
+ coalesce(p_context_id, p_forum_id),
+ ''t'',
+ p_subject,
+ v_package_id
+ );
+
+ if p_state is null then
+ select posting_policy
+ into v_forum_policy
+ from forums_forums
+ where forum_id = p_forum_id;
+
+ if v_forum_policy = ''moderated''
+ then v_state := ''pending'';
+ else v_state := ''approved'';
+ end if;
+ else
+ v_state := p_state;
+ end if;
+
+ insert into forums_messages
+ (message_id, forum_id, subject, content, format, user_id, parent_id, state, last_child_post, last_poster)
+ values
+ (v_message_id, p_forum_id, p_subject, p_content, p_format, p_user_id, p_parent_id,
+ v_state, current_timestamp, p_user_id);
+
+ update forums_forums
+ set last_post = current_timestamp
+ where forum_id = p_forum_id;
+
+ if p_parent_id is null then
+ if v_state = ''approved'' then
+ update forums_forums
+ set thread_count = thread_count + 1,
+ approved_thread_count = approved_thread_count + 1
+ where forum_id=p_forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count + 1
+ where forum_id=p_forum_id;
+ end if;
+ else
+ if v_state = ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1,
+ reply_count = reply_count + 1,
+ last_poster = p_user_id,
+ last_child_post = current_timestamp
+ where message_id = forums_message__root_message_id(v_message_id);
+ else
+ -- dont update last_poster, last_child_post when not approved
+ update forums_messages
+ set reply_count = reply_count + 1
+ where message_id = forums_message__root_message_id(v_message_id);
+ end if;
+ end if;
+
+ return v_message_id;
+
+end;' language 'plpgsql';
+
+select define_function_args ('forums_message__set_state', 'message_id,state');
+
+create or replace function forums_message__set_state(integer,varchar) returns integer as '
+declare
+ p_message_id alias for $1;
+ p_state alias for $2;
+ v_cur record;
+begin
+
+ select into v_cur *
+ from forums_messages
+ where message_id = p_message_id;
+
+ if v_cur.parent_id is null then
+ if p_state = ''approved'' and v_cur.state <> ''approved'' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count + 1
+ where forum_id=v_cur.forum_id;
+ elsif p_state <> ''approved'' and v_cur.state = ''approved'' then
+ update forums_forums
+ set approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ else
+ if p_state = ''approved'' and v_cur.state <> ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count + 1,
+ last_poster = (case when v_cur.posting_date > last_child_post then v_cur.user_id else last_poster end),
+ last_child_post = (case when v_cur.posting_date > last_child_post then v_cur.posting_date else last_child_post end)
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ elsif p_state <> ''approved'' and v_cur.state = ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ end if;
+ end if;
+
+ update forums_messages
+ set state = p_state
+ where message_id = p_message_id;
+
+ return 0;
+
+end;' language 'plpgsql';
+
+select define_function_args ('forums_message__delete', 'message_id');
+
+create or replace function forums_message__delete (integer)
+returns integer as '
+declare
+ p_message_id alias for $1;
+ v_cur record;
+begin
+
+ -- Maintain the forum thread counts
+
+ select into v_cur *
+ from forums_messages
+ where message_id = p_message_id;
+
+ if v_cur.parent_id is null then
+ if v_cur.state = ''approved'' then
+ update forums_forums
+ set thread_count = thread_count - 1,
+ approved_thread_count = approved_thread_count - 1
+ where forum_id=v_cur.forum_id;
+ else
+ update forums_forums
+ set thread_count = thread_count - 1
+ where forum_id=v_cur.forum_id;
+ end if;
+ elsif v_cur.state = ''approved'' then
+ update forums_messages
+ set approved_reply_count = approved_reply_count - 1,
+ reply_count = reply_count - 1
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ else
+ update forums_messages
+ set reply_count = reply_count - 1
+ where message_id = forums_message__root_message_id(v_cur.message_id);
+ end if;
+
+ perform acs_object__delete(p_message_id);
+ return 0;
+end;' language 'plpgsql';
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2d2-1.2d3.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2d2-1.2d3.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.2d2-1.2d3.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,4 @@
+CREATE INDEX forums_forums_pkg_enable_idx
+ ON forums_forums
+ USING btree
+ (package_id, enabled_p);
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.3d3-1.3d4.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.3d3-1.3d4.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.3d3-1.3d4.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,42 @@
+-- Make sure that forums actually have the package_id set.
+update acs_objects set package_id = context_id where object_type = 'forums_forum';
+
+-- And now rewrite the new function as old installations will not have this updated version that stores the package_id
+select define_function_args('forums_forum__new','forum_id,object_type;forums_forum,name,charter,presentation_type,posting_policy,package_id,creation_date,creation_user,creation_ip,context_id');
+
+create or replace function forums_forum__new (integer,varchar,varchar,varchar,varchar,varchar,integer,timestamptz,integer,varchar,integer)
+returns integer as '
+declare
+ p_forum_id alias for $1;
+ p_object_type alias for $2;
+ p_name alias for $3;
+ p_charter alias for $4;
+ p_presentation_type alias for $5;
+ p_posting_policy alias for $6;
+ p_package_id alias for $7;
+ p_creation_date alias for $8;
+ p_creation_user alias for $9;
+ p_creation_ip alias for $10;
+ p_context_id alias for $11;
+ v_forum_id integer;
+begin
+ v_forum_id:= acs_object__new(
+ p_forum_id,
+ p_object_type,
+ p_creation_date,
+ p_creation_user,
+ p_creation_ip,
+ coalesce(p_context_id, p_package_id),
+ ''t'',
+ p_name,
+ p_package_id
+ );
+
+ insert into forums_forums
+ (forum_id, name, charter, presentation_type, posting_policy, package_id)
+ values
+ (v_forum_id, p_name, p_charter, p_presentation_type, p_posting_policy, p_package_id);
+
+ return v_forum_id;
+end;
+' language 'plpgsql';
Index: dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.3d5-1.3d6.sql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.3d5-1.3d6.sql (revision 0)
+++ dotlrn_packages/packages/forums/sql/postgresql/upgrade/upgrade-1.3d5-1.3d6.sql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1 @@
+\i forums-reading-info-create.sql
\ No newline at end of file
Index: dotlrn_packages/packages/forums/tcl/form-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/form-procs.tcl (revision 0)
+++ dotlrn_packages/packages/forums/tcl/form-procs.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,182 @@
+ad_library {
+
+ Reusable forms in the forums package
+
+ @author lee@thaum.net
+ @creation-date 2003-11-12
+}
+
+namespace eval forums {}
+namespace eval forums::form {}
+
+ad_proc -public forums::form::message {
+ {-optional:boolean}
+ {-prefix {}}
+ form_name
+} {
+ adds form elements to form_name which represent the data held in a forum
+ message
+} {
+
+ ##############################
+ # Form definition
+ #
+
+ if { $optional_p } {
+ set optional_switch "-optional"
+ } else {
+ set optional_switch ""
+ }
+
+ template::element create $form_name ${prefix}subject \
+ -label [_ forums.Subject] \
+ -datatype text \
+ -widget text \
+ -html {size 60} \
+ $optional_switch
+
+ template::element create $form_name ${prefix}message_body \
+ -label [_ forums.Body] \
+ -datatype richtext \
+ -widget richtext \
+ -html {rows 20 cols 60 style {width:100%}} \
+ $optional_switch
+
+}
+
+ad_proc -public forums::form::post_message {
+ {-optional:boolean}
+ {-show_anonymous_p 1}
+ {-show_attachments_p 1}
+ {-prefix {}}
+ form_name
+} {
+ adds form elements to a form for the default post message form
+} {
+ template::element create $form_name ${prefix}forum_id \
+ -label [_ forums.forum_ID] \
+ -datatype integer \
+ -widget hidden
+
+ template::element create $form_name ${prefix}parent_id \
+ -label [_ forums.parent_ID] \
+ -datatype integer \
+ -widget hidden \
+ -optional
+
+ template::element create $form_name ${prefix}subscribe_p \
+ -label [_ forums.Subscribe] \
+ -datatype text \
+ -widget hidden \
+ -optional
+
+ set options [list [list [_ forums.post_anonymously] 1 ] ]
+
+ template::element create $form_name ${prefix}anonymous_p \
+ -label [_ forums.Anonymous] \
+ -datatype integer \
+ -widget [ad_decode $show_anonymous_p 0 "hidden" "checkbox"] \
+ -options $options \
+ -optional
+
+ set options [list [list [_ forums.No] 0] [list [_ forums.Yes] 1]]
+
+ template::element create $form_name ${prefix}attach_p \
+ -label [_ forums.Attach] \
+ -datatype text \
+ -widget [ad_decode $show_attachments_p 0 "hidden" "radio"] \
+ -options $options
+
+ if {$optional_p} {
+ template::element set_properties $form_name ${prefix}forum_id -optional
+ template::element set_properties $form_name ${prefix}attach_p -optional
+ }
+}
+
+ad_proc -public forums::form::forward_message {
+ {-prefix {}}
+ form_name
+} {
+ adds form elements to form_name to allow the user to enter the details
+ of a message they want to forward by email
+} {
+ template::element create $form_name ${prefix}to_email \
+ -label [_ forums.Email] \
+ -datatype email \
+ -widget text \
+ -html {size 60}
+
+ template::element create $form_name ${prefix}subject \
+ -label [_ forums.Subject] \
+ -datatype text \
+ -widget text \
+ -html {size 80}
+
+ template::element create $form_name ${prefix}pre_body \
+ -label [_ forums.Your_Note] \
+ -datatype text \
+ -widget textarea \
+ -html {cols 80 rows 10}
+}
+
+ad_proc -public forums::form::search {
+ {-prefix {}}
+ form_name
+} {
+ Constructs the elements of a form for searching for a term
+ optionally in a particular forum
+} {
+ template::element create $form_name ${prefix}search_text \
+ -label [_ forums.Search_1] \
+ -datatype text \
+ -widget text
+
+ template::element create $form_name ${prefix}forum_id \
+ -label [_ forums.ForumID] \
+ -datatype text \
+ -widget hidden \
+ -optional
+}
+
+ad_proc -public forums::form::forum {
+ {-prefix {}}
+ form_name
+} {
+ Constructs the elements of a form for creating/editing a forum
+} {
+ template::element create $form_name ${prefix}name \
+ -label [_ forums.Name] \
+ -datatype text \
+ -widget text \
+ -html {size 60} \
+ -validate { {expr ![empty_string_p [string trim $value]]} {Forum Name can not be blank} }
+
+ template::element create $form_name ${prefix}charter \
+ -label [_ forums.Charter] \
+ -datatype richtext \
+ -widget richtext \
+ -html {cols 60 rows 10} \
+ -validate { {expr [string length $value] <= 4000 } {#forums.charter_max_chars#} } \
+ -optional
+
+ template::element create $form_name ${prefix}presentation_type \
+ -label [_ forums.Presentation] \
+ -datatype text \
+ -widget select \
+ -help_text [_ forums.help_presentation] \
+ -options [list [list [_ forums.Flat] flat] [list [_ forums.Threaded] threaded]]
+
+ template::element create $form_name ${prefix}posting_policy \
+ -label [_ forums.Posting_Policy] \
+ -datatype text \
+ -widget select \
+ -help_text [_ forums.help_posting_policy] \
+ -options [list [list [_ forums.open] open] [list [_ forums.moderated] moderated] [list [_ forums.closed] closed] ]
+
+ template::element create $form_name ${prefix}new_threads_p \
+ -label [_ forums.lt_Users_Can_Create_New_] \
+ -datatype integer \
+ -widget radio \
+ -help_text [_ forums.help_new_threads] \
+ -options [list [list [_ forums.Yes] 1] [list [_ forums.No] 0] ]
+}
Index: dotlrn_packages/packages/forums/tcl/forum-message-reply-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forum-message-reply-procs.tcl (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forum-message-reply-procs.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,29 @@
+ad_library {
+
+ Forums Library - Reply Handling
+
+ @creation-date 2002-05-17
+ @author Ben Adida
+ @cvs-id $Id$
+
+}
+
+namespace eval forum::message::notification {
+
+ ad_proc -public get_url {
+ object_id
+ } {
+
+ }
+
+ ad_proc -public process_reply {
+ reply_id
+ } {
+
+ }
+
+
+}
+
+
+
Index: dotlrn_packages/packages/forums/tcl/forum-reply-procs-oracle.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forum-reply-procs-oracle.xql (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forum-reply-procs-oracle.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,26 @@
+
+
+ oracle 8.1.6
+
+ select site_node.url(node_id)
+ from site_nodes
+ where object_id = (select package_id
+ from forums_forums
+ where forums_forums.forum_id = :forum_id)
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: dotlrn_packages/packages/forums/tcl/forum-reply-procs-postgresql.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forum-reply-procs-postgresql.xql (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forum-reply-procs-postgresql.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,18 @@
+
+
+ postgresql 7.1
+
+ select site_node__url(node_id)
+ from site_nodes
+ where object_id = (select package_id
+ from forums_forums
+ where forums_forums.forum_id = :forum_id)
+
+
+
+
+
+
+
Index: dotlrn_packages/packages/forums/tcl/forum-reply-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forum-reply-procs.tcl (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forum-reply-procs.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,64 @@
+ad_library {
+
+ Forums Library - Reply Handling
+
+ @creation-date 2002-05-17
+ @author Ben Adida
+ @cvs-id $Id$
+
+}
+
+namespace eval forum::notification {
+
+ ad_proc -public get_url {
+ object_id
+ } {
+ returns a full url to the object_id.
+ handles messages and forums.
+ } {
+
+ set object_type [db_string select_object_type {}]
+
+ if {[string compare $object_type "forums_message"] == 0} {
+
+ # object is a message
+ set message_id $object_id
+ forum::message::get -message_id $message_id -array message
+ set forum_id $message(forum_id)
+ set forum_url "[ad_url][db_string select_forums_package_url {}]"
+ return ${forum_url}message-view?message_id=$message(root_message_id)
+
+ } else {
+
+ # object_type is a forum
+ set forum_id $object_id
+ set forum_url "[ad_url][db_string select_forums_package_url {}]"
+ return ${forum_url}forum-view?forum_id=$forum_id
+
+ }
+ }
+
+ ad_proc -public process_reply {
+ reply_id
+ } {
+ ns_log debug "forum::notification::process_reply: processing reply $reply_id"
+
+ # Get the data
+ notification::reply::get -reply_id $reply_id -array reply
+
+ # Get the message information
+ forum::message::get -message_id $reply(object_id) -array message
+
+ # Insert the message
+ forum::message::new -forum_id $message(forum_id) \
+ -parent_id $message(message_id) \
+ -subject $reply(subject) \
+ -content $reply(content) \
+ -user_id $reply(from_user)
+ }
+
+
+}
+
+
+
Index: dotlrn_packages/packages/forums/tcl/forum-reply-procs.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forum-reply-procs.xql (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forum-reply-procs.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,22 @@
+
+
+
+
+
+ select object_type
+ from acs_objects
+ where object_id = :object_id
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: dotlrn_packages/packages/forums/tcl/forums-callback-procs-oracle.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-callback-procs-oracle.xql (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-callback-procs-oracle.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,43 @@
+
+
+
+
+
+
+
+
+
+
+ oracle 8.1.6
+
+ select site_node.url(min(node_id))
+ from site_nodes
+ where object_id = (select package_id
+ from forums_forums
+ where forums_forums.forum_id = :forum_id)
+
+
+
+
+
+ select site_node.url(min(node_id))
+ from site_nodes
+ where object_id = (select package_id
+ from forums_forums
+ where forums_forums.forum_id = :forum_id)
+
+
+
+
+
+ select subject, content, format
+ from forums_messages
+ start with message_id=:message_id
+ connect by prior message_id = parent_id
+
+
+
+
Index: dotlrn_packages/packages/forums/tcl/forums-callback-procs-postgresql.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-callback-procs-postgresql.xql (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-callback-procs-postgresql.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,44 @@
+
+
+
+
+
+
+
+
+
+
+ postgresql 7.4
+
+ select site_node__url(min(node_id))
+ from site_nodes
+ where object_id = (select package_id
+ from forums_forums
+ where forums_forums.forum_id = :forum_id)
+
+
+
+
+
+ select site_node__url(min(node_id))
+ from site_nodes
+ where object_id = (select package_id
+ from forums_forums
+ where forums_forums.forum_id = :forum_id)
+
+
+
+
+
+ select subject, content, format
+ from forums_messages
+ where message_id=:message_id or (tree_sortkey between tree_left(:tree_sortkey) and tree_right(:tree_sortkey))
+ and forum_id=:forum_id
+ order by tree_sortkey
+
+
+
+
Index: dotlrn_packages/packages/forums/tcl/forums-callback-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-callback-procs.tcl (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-callback-procs.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,373 @@
+ad_library {
+ Forum callbacks.
+
+ Navigation callbacks.
+
+ @author Jeff Davis
+ @creation-date 2005-03-11
+ @cvs-id $Id$
+}
+
+ad_proc -public -callback navigation::package_admin -impl forums {} {
+ return the admin actions for the forum package.
+} {
+ set actions {}
+
+ # Check for admin on the package...
+ if {[permission::permission_p -object_id $package_id -privilege admin -party_id $user_id]} {
+ lappend actions [list LINK admin/ [_ acs-kernel.common_Administration] {} [_ forums.Admin_for_all]]
+
+ lappend actions [list LINK \
+ [export_vars -base admin/permissions {{object_id $package_id}}] \
+ [_ acs-kernel.common_Permissions] {} [_ forums.Permissions_for_all]]
+ lappend actions [list LINK admin/forum-new [_ forums.Create_a_New_Forum] {} {}]
+ }
+
+ # check for admin on the individual forums.
+ db_foreach forums {
+ select forum_id, name, enabled_p
+ from forums_forums
+ where package_id = :package_id
+ and exists (select 1 from acs_object_party_privilege_map pm
+ where pm.object_id = forum_id
+ and pm.party_id = :user_id
+ and pm.privilege = 'admin')
+ } {
+ lappend actions [list SECTION "Forum $name ([ad_decode $enabled_p t [_ forums.enabled] [_ forums.disabled]])" {}]
+
+ lappend actions [list LINK [export_vars -base admin/forum-edit forum_id] \
+ [_ forums.Edit_forum_name] {} {}]
+ lappend actions [list LINK [export_vars -base admin/permissions {{object_id $forum_id} return_url}] \
+ [_ forums.Permission_forum_name] {} {}]
+ }
+ return $actions
+}
+
+ad_proc -public -callback forum::forum_new {
+ {-package_id:required}
+ {-forum_id:required}
+} {
+}
+
+ad_proc -public -callback forum::forum_edit {
+ {-package_id:required}
+ {-forum_id:required}
+} {
+}
+
+ad_proc -public -callback forum::forum_delete {
+ {-package_id:required}
+ {-forum_id:required}
+} {
+}
+
+ad_proc -public -callback forum::message_new {
+ {-package_id:required}
+ {-message_id:required}
+} {
+}
+
+ad_proc -public -callback forum::message_edit {
+ {-package_id:required}
+ {-message_id:required}
+} {
+}
+
+ad_proc -public -callback forum::message_delete {
+ {-package_id:required}
+ {-message_id:required}
+} {
+}
+
+ad_proc -public -callback pm::project_new -impl forums {
+ {-package_id:required}
+ {-project_id:required}
+ {-data:required}
+} {
+ create a new forum for each new project
+} {
+ set pm_name [pm::project::name -project_item_id $project_id]
+
+ foreach forum_package_id [application_link::get_linked -from_package_id $package_id -to_package_key "forums"] {
+ set forum_id [forum::new \
+ -name $pm_name \
+ -package_id $forum_package_id \
+ -no_callback]
+
+ # Automatically allow new threads on this forum
+ forum::new_questions_allow -forum_id $forum_id
+
+ application_data_link::new -this_object_id $project_id -target_object_id $forum_id
+ }
+}
+
+ad_proc -public -callback search::datasource -impl forums_message {} {
+
+ @author dave@thedesignexperience.org
+ @creation_date 2005-06-07
+
+ returns a datasource for the search package
+ this is the content that will be indexed by the full text
+ search engine.
+
+ We expect message_id to be a root message of a thread only,
+ and return the text of all the messages below
+
+} {
+ set message_id $object_id
+ # If there is no connection than this proc is called from the
+ # search indexer. In that case we set the locale to the
+ # system-wide default locale, since locale is needed for some part
+ # of the message formatting.
+ if { ![ad_conn isconnected] } {
+ ad_conn -set locale [lang::system::site_wide_locale]
+ }
+
+ forum::message::get -message_id $message_id -array message
+
+ if { ![empty_string_p $message(parent_id)] } {
+ ns_log debug "forum::message::datasource was called with a message_id that has a parent - skipping: $message_id"
+ set empty(object_id) $message_id
+ set empty(title) ""
+ set empty(content) ""
+ set empty(keywords) ""
+ set empty(storage_type) "text"
+ set empty(mime) "text/plain"
+ return [array get empty]
+ }
+ set relevant_date $message(posting_date)
+ ns_log debug "DIRK1 -${message(posting_date)}-"
+
+ set tree_sortkey $message(tree_sortkey)
+ set forum_id $message(forum_id)
+ set combined_content ""
+ set subjects [list]
+ lappend subjects $message(subject)
+ array set forum [forum::get -forum_id $message(forum_id) -array forum]
+ set package_id $forum(package_id)
+ db_foreach messages "" {
+
+ # include the subject in the text if it is different from the thread's subject
+ set root_subject $message(subject)
+ regexp {^(?:Re: )+(.*)$} $subject match subject
+
+ if { [string compare $subject $root_subject] != 0 } {
+ # different subject
+ append combined_content "$subject\n\n"
+ }
+
+ append combined_content [ad_html_text_convert -from $format -to text/plain -- $content]
+
+ # In case this text is not only used for indexing but also for display, beautify it
+ append combined_content "\n\n"
+ set relevant_date $message(posting_date)
+ ns_log debug "DIRK2 -${message(posting_date)}-"
+ }
+
+ return [list object_id $message(message_id) \
+ title $message(subject) \
+ content $combined_content \
+ relevant_date $relevant_date \
+ community_id [db_null] \
+ keywords {} \
+ storage_type text \
+ mime text/plain \
+ package_id $package_id]
+}
+
+ad_proc -public -callback search::url -impl forums_message {} {
+
+ @author dave@thedesignexperience.org
+ @creation_date 2005-06-08
+
+ returns a url for a message to the search package
+
+} {
+ set message_id $object_id
+ forum::message::get -message_id $message_id -array message
+ set forum_id $message(forum_id)
+
+ return "[ad_url][db_string select_forums_package_url {}]message-view?message_id=$message_id"
+}
+
+ad_proc -callback application-track::getApplicationName -impl forums {} {
+ callback implementation
+ } {
+ return "forums"
+ }
+
+ ad_proc -callback application-track::getGeneralInfo -impl forums {} {
+ callback implementation
+ } {
+ db_1row my_query {
+ SELECT count(1) as result
+ from acs_objects o, forums_forums f, acs_objects o2, dotlrn_communities_full com
+ where f.forum_id=o.object_id
+ and com.community_id=:comm_id
+ and o.package_id= o2.object_id
+ and o2.context_id=com.package_id
+
+ }
+
+ return "$result"
+ }
+
+ ad_proc -callback application-track::getSpecificInfo -impl forums {} {
+ callback implementation
+ } {
+
+ upvar $query_name my_query
+ upvar $elements_name my_elements
+
+ set my_query {
+ SELECT f.name as name,f.thread_count as threads,
+ f.last_post,
+ to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+ from acs_objects o, forums_forums f, acs_objects o2, dotlrn_communities_full com
+ where f.forum_id=o.object_id
+ and com.community_id=:class_instance_id
+ and o.package_id= o2.object_id
+ and o2.context_id=com.package_id
+ }
+
+ set my_elements {
+ name {
+ label "Name"
+ display_col name
+ html {align center}
+
+ }
+ threads {
+ label "Threads"
+ display_col threads
+ html {align center}
+ }
+ creation_date {
+ label "creation_date"
+ display_col creation_date
+ html {align center}
+ }
+ last_post {
+ label "last_post"
+ display_col last_post
+ html {align center}
+ }
+
+
+ }
+
+ return "OK"
+ }
+
+ad_proc -callback merge::MergeShowUserInfo -impl forums {
+ -user_id:required
+} {
+ Merge the *forums* of two users.
+ The from_user_id is the user_id of the user
+ that will be deleted and all the *forums*
+ of this user will be mapped to the to_user_id.
+
+} {
+ set msg "Forums items of $user_id"
+ ns_log Notice $msg
+ set result [list $msg]
+
+ set last_poster [db_list_of_lists sel_poster {*SQL*} ]
+ set msg "Last Poster of $last_poster"
+ lappend result $msg
+
+ set poster [db_list_of_lists sel_user_id {*SQL*} ]
+ set msg "Poster of $poster"
+ lappend result $msg
+
+ return $result
+}
+
+ad_proc -callback merge::MergePackageUser -impl forums {
+ -from_user_id:required
+ -to_user_id:required
+} {
+ Merge the *forums* of two users.
+ The from_user_id is the user_id of the user
+ that will be deleted and all the *forums*
+ of this user will be mapped to the to_user_id.
+
+} {
+ set msg "Merging forums"
+ ns_log Notice $msg
+ set result [list $msg]
+
+ db_dml upd_poster { *SQL* }
+ db_dml upd_user_id { *SQL* }
+
+ lappend result "Merge of forums is done"
+
+ return $result
+}
+
+#Callbacks for application-track
+
+ad_proc -callback application-track::getApplicationName -impl forums {} {
+ callback implementation
+ } {
+ return "forums"
+ }
+
+ad_proc -callback application-track::getGeneralInfo -impl forums {} {
+ callback implementation
+ } {
+ db_1row my_query {
+ select count(f.forum_id) as result
+ FROM forums_forums f, dotlrn_communities_full com
+ WHERE com.community_id=:comm_id
+ and apm_package__parent_id(f.package_id) = com.package_id
+ }
+
+ return "$result"
+ }
+
+ad_proc -callback application-track::getSpecificInfo -impl forums {} {
+ callback implementation
+ } {
+
+ upvar $query_name my_query
+ upvar $elements_name my_elements
+
+ set my_query {
+ SELECT f.name as name,f.thread_count as threads,
+ f.last_post,
+ to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date
+ FROM forums_forums f,dotlrn_communities_full com,acs_objects o
+ WHERE com.community_id=:class_instance_id
+ and f.forum_id = o.object_id
+ and apm_package__parent_id(f.package_id) = com.package_id
+ }
+
+ set my_elements {
+ name {
+ label "Name"
+ display_col name
+ html {align center}
+
+ }
+ threads {
+ label "Threads"
+ display_col threads
+ html {align center}
+ }
+ creation_date {
+ label "creation_date"
+ display_col creation_date
+ html {align center}
+ }
+ last_post {
+ label "last_post"
+ display_col last_post
+ html {align center}
+ }
+
+
+ }
+
+ return "OK"
+ }
Index: dotlrn_packages/packages/forums/tcl/forums-callback-procs.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-callback-procs.xql (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-callback-procs.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,36 @@
+
+
+
+
+
+ update forums_messages
+ set last_poster = :to_user_id
+ where last_poster = :from_user_id
+
+
+
+
+
+ update forums_messages
+ set user_id = :to_user_id
+ where user_id = :from_user_id
+
+
+
+
+
+ select message_id, subject
+ from forums_messages
+ where user_id = :user_id
+
+
+
+
+
+ select message_id, subject
+ from forums_messages
+ where last_poster = :user_id
+
+
+
+
Index: dotlrn_packages/packages/forums/tcl/forums-email-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-email-procs.tcl (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-email-procs.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,42 @@
+ad_library {
+
+ Forums Library
+
+ @creation-date 2002-05-17
+ @author Ben Adida
+ @cvs-id $Id$
+
+}
+
+namespace eval forum { namespace eval email {} }
+
+ad_proc -public forum::email::create_forward_email {
+ {-pre_body:required}
+ message_passed
+} {
+ create email content to forward a message
+} {
+ # Get the message data array
+ upvar $message_passed message
+
+ # Variables for I18N message lookup:
+ set posting_date $message(posting_date_ansi)
+ set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
+ if {$useScreenNameP != 0} {
+ set user_name $message(screen_name)
+ } else {
+ set user_name $message(user_name)
+ }
+
+ # Set up the message body
+ set new_body "[ad_html_to_text -- $pre_body]"
+ append new_body "\n\n===================================\n\n"
+ append new_body "[_ forums.email_alert_body_header]
+[_ forums.Forum_1] $message(forum_name)
+Thread: $message(root_subject)\n\n"
+ append new_body [ad_html_text_convert -from $message(format) -to text/plain -- $message(content)]
+
+ append new_body "\n\n-- \n[ad_url][ad_conn package_url]message-view?[export_vars -anchor $message(message_id) [list [list message_id $message(root_message_id)]]]\n"
+
+ return $new_body
+}
Index: dotlrn_packages/packages/forums/tcl/forums-install-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-install-procs.tcl (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-install-procs.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,66 @@
+ad_library {
+ Forums install callbacks
+
+ @creation-date 2004-04-01
+ @author Jeff Davis davis@xarg.net
+ @cvs-id $Id$
+}
+
+namespace eval forum::install {}
+
+ad_proc -private forum::install::package_install {} {
+ package install callback
+} {
+ forum::sc::register_implementations
+}
+
+ad_proc -private forum::install::package_uninstall {} {
+ package uninstall callback
+} {
+ forum::sc::unregister_implementations
+}
+
+ad_proc -private forum::install::package_upgrade {
+ {-from_version_name:required}
+ {-to_version_name:required}
+} {
+ Package before-upgrade callback
+} {
+ apm_upgrade_logic \
+ -from_version_name $from_version_name \
+ -to_version_name $to_version_name \
+ -spec {
+ 1.1d3 1.1d4 {
+ # just need to install the forum_forum callback
+ forum::sc::register_forum_fts_impl
+ }
+ }
+}
+
+ad_proc -private ::install::xml::action::forum-create { node } {
+ Create a forum instance from an install.xml file
+} {
+ set url [apm_required_attribute_value $node url]
+ set name [apm_required_attribute_value $node name]
+ set presentation [apm_attribute_value -default "flat" $node presentation]
+ set id [apm_attribute_value -default "" $node id]
+ set posting_policy [apm_attribute_value -default "open" $node posting-policy]
+
+
+ set charter_node [lindex [xml_node_get_children_by_name [lindex $node 0] charter] 0]
+ set charter [xml_node_get_content $charter_node]
+
+ set package_id [site_node::get_element -url $url -element package_id]
+
+ set forum_id [forum::new \
+ -name $name \
+ -charter $charter \
+ -presentation_type $presentation \
+ -posting_policy $posting_policy \
+ -package_id $package_id]
+
+ if {![string equal $id ""]} {
+ set ::install::xml::ids($id) $forum_id
+ }
+}
+
Index: dotlrn_packages/packages/forums/tcl/forums-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-procs.tcl (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-procs.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,172 @@
+ad_library {
+
+ Forums Library
+
+ @creation-date 2002-05-17
+ @author Ben Adida
+ @cvs-id $Id$
+
+}
+
+namespace eval forum {}
+
+
+ad_proc -public forum::new {
+ {-forum_id ""}
+ {-name:required}
+ {-charter ""}
+ {-presentation_type flat}
+ {-posting_policy open}
+ {-package_id:required}
+ -no_callback:boolean
+} {
+ create a new forum
+} {
+ set var_list [list \
+ [list forum_id $forum_id] \
+ [list name $name] \
+ [list charter $charter] \
+ [list presentation_type $presentation_type] \
+ [list posting_policy $posting_policy] \
+ [list package_id $package_id]]
+
+ set forum_id [package_instantiate_object -var_list $var_list forums_forum]
+
+ if {!$no_callback_p} {
+ callback forum::forum_new -package_id $package_id -forum_id $forum_id
+ }
+
+ return $forum_id
+}
+
+ad_proc -public forum::edit {
+ {-forum_id:required}
+ {-name:required}
+ {-charter ""}
+ {-presentation_type flat}
+ {-posting_policy open}
+ -no_callback:boolean
+} {
+ edit a forum
+} {
+ # This is a straight DB update
+ db_dml update_forum {}
+ db_dml update_forum_object {}
+
+ if {!$no_callback_p} {
+ callback forum::forum_edit -package_id [ad_conn package_id] -forum_id $forum_id
+ }
+}
+
+ad_proc -public forum::attachments_enabled_p {} {
+ if {[string eq forums [ad_conn package_key]]} {
+ set package_id [site_node_apm_integration::child_package_exists_p \
+ -package_key attachments
+ ]
+ } else {
+ return 0
+ }
+}
+
+ad_proc -public forum::list_forums {
+ {-package_id:required}
+} {
+ List all forums in a package
+} {
+ return [db_list_of_ns_sets select_forums {}]
+}
+
+ad_proc -public forum::get {
+ {-forum_id:required}
+ {-array:required}
+} {
+ get the fields for a forum
+
+ @return
+} {
+ # Select the info into the upvar'ed Tcl Array
+ upvar $array row
+ if {![db_0or1row select_forum {} -column_array row]} {
+ error "Forum $forum_id not found" {} NOT_FOUND
+ }
+}
+
+ad_proc -public forum::posting_policy_set {
+ {-posting_policy:required}
+ {-forum_id:required}
+} {
+ # JCD: this is potentially bad since we are
+ # just assuming registered_users is the
+ # right group to be granting write to.
+
+ if {![string equal closed $posting_policy]} {
+ permission::grant -object_id $forum_id \
+ -party_id [acs_magic_object registered_users] \
+ -privilege write
+ } else {
+ permission::revoke -object_id $forum_id \
+ -party_id [acs_magic_object registered_users] \
+ -privilege write
+ }
+
+}
+
+ad_proc -public forum::new_questions_allow {
+ {-forum_id:required}
+ {-party_id ""}
+} {
+ if { [empty_string_p $party_id] } {
+ set party_id [acs_magic_object registered_users]
+ }
+ # Give the public the right to ask new questions
+ permission::grant -object_id $forum_id \
+ -party_id $party_id \
+ -privilege create
+ util_memoize_flush_regexp $forum_id
+}
+
+ad_proc -public forum::new_questions_deny {
+ {-forum_id:required}
+ {-party_id ""}
+} {
+ if { [empty_string_p $party_id] } {
+ set party_id [acs_magic_object registered_users]
+ }
+ # Revoke the right from the public to ask new questions
+ permission::revoke -object_id $forum_id \
+ -party_id $party_id \
+ -privilege create
+ util_memoize_flush_regexp $forum_id
+}
+
+ad_proc -public forum::new_questions_allowed_p {
+ {-forum_id:required}
+ {-party_id ""}
+} {
+ if { [empty_string_p $party_id] } {
+ set party_id [acs_magic_object registered_users]
+ }
+ permission::permission_p -object_id $forum_id \
+ -party_id $party_id \
+ -privilege create
+}
+
+ad_proc -public forum::enable {
+ {-forum_id:required}
+} {
+ # Enable the forum, no big deal
+ db_dml update_forum_enabled_p {}
+}
+
+ad_proc -public forum::disable {
+ {-forum_id:required}
+} {
+ db_dml update_forum_disabled_p {}
+}
+
+ad_proc -public forum::use_ReadingInfo_p {} {
+ # this depends on site-wide package parameters implemented in openacs core
+ # http://openacs.org/bugtracker/openacs/patch?patch%5fnumber=845
+ # return [parameter::get_from_package_key -package_key forums -parameter UseReadingInfo]
+ return 0
+}
\ No newline at end of file
Index: dotlrn_packages/packages/forums/tcl/forums-procs.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-procs.xql (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-procs.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,59 @@
+
+
+
+
+
+ update forums_forums
+ set name= :name,
+ charter= :charter,
+ presentation_type= :presentation_type,
+ posting_policy= :posting_policy
+ where forum_id = :forum_id
+
+
+
+
+
+ update acs_objects
+ set title= :name
+ where object_id = :forum_id
+
+
+
+
+
+ select forum_id,
+ name,
+ posting_policy,
+ presentation_type
+ from forums_forums
+ where package_id = :package_id
+ order by name
+
+
+
+
+
+ select forums_forums.*
+ from forums_forums
+ where forums_forums.forum_id = :forum_id
+
+
+
+
+
+ update forums_forums
+ set enabled_p = 't'
+ where forum_id = :forum_id
+
+
+
+
+
+ update forums_forums
+ set enabled_p = 'f'
+ where forum_id = :forum_id
+
+
+
+
Index: dotlrn_packages/packages/forums/tcl/forums-sc-procs-postgresql.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-sc-procs-postgresql.xql (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-sc-procs-postgresql.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,46 @@
+
+
+
+ postgresql 7.1
+
+ select site_node__url(node_id)
+ from site_nodes
+ where object_id = (select package_id
+ from forums_forums
+ where forums_forums.forum_id = :forum_id)
+
+
+
+
+
+ select site_node__url(min(node_id))
+ from site_nodes
+ where object_id = (select package_id
+ from forums_forums
+ where forums_forums.forum_id = :forum_id)
+
+
+
+
+
+ select site_node__url(min(node_id))
+ from site_nodes
+ where object_id = (select package_id
+ from forums_forums
+ where forums_forums.forum_id = :forum_id)
+
+
+
+
+
+ select subject, content, format
+ from forums_messages
+ where message_id=:message_id or (tree_sortkey between tree_left(:tree_sortkey) and tree_right(:tree_sortkey))
+ and forum_id=:forum_id
+ order by tree_sortkey
+
+
+
+
Index: dotlrn_packages/packages/forums/tcl/forums-sc-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-sc-procs.tcl (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-sc-procs.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,179 @@
+ad_library {
+
+ Forums Library - Search Service Contracts
+
+ @creation-date 2002-08-07
+ @author Dave Bauer
+ @cvs-id $Id$
+}
+
+namespace eval forum::message {}
+
+ad_proc -private forum::message::datasource { message_id } {
+ @param message_id
+ @author dave@thedesignexperience.org
+ @creation_date 2002-08-07
+
+ returns a datasource for the search package
+ this is the content that will be indexed by the full text
+ search engine.
+
+ We expect message_id to be a root message of a thread only,
+ and return the text of all the messages below
+
+} {
+
+ # If there is no connection than this proc is called from the
+ # search indexer. In that case we set the locale to the
+ # system-wide default locale, since locale is needed for some part
+ # of the message formatting.
+ if { ![ad_conn isconnected] } {
+ ad_conn -set locale [lang::system::site_wide_locale]
+ }
+
+ forum::message::get -message_id $message_id -array message
+
+ if { ![empty_string_p $message(parent_id)] } {
+ ns_log Notice "forum::message::datasource was called with a message_id that has a parent - skipping: $message_id"
+ return {object_id {} name {} charter {} mime {} storage_type {}}
+ }
+
+ set tree_sortkey $message(tree_sortkey)
+ set forum_id $message(forum_id)
+ set combined_content ""
+ set subjects [list]
+ lappend subjects $message(subject)
+
+ db_foreach messages "" {
+
+ # include the subject in the text if it is different from the thread's subject
+ set root_subject $message(subject)
+ regexp {^(?:Re: )+(.*)$} $subject match subject
+
+ if { [string compare $subject $root_subject] != 0 } {
+ # different subject
+ append combined_content "$subject\n\n"
+ }
+
+ append combined_content [ad_html_text_convert -from $format -to text/plain -- $content]
+
+ # In case this text is not only used for indexing but also for display, beautify it
+ append combined_content "\n\n"
+ }
+
+ return [list object_id $message(message_id) \
+ title $message(subject) \
+ content $combined_content \
+ keywords {} \
+ storage_type text \
+ mime text/plain ]
+}
+
+ad_proc -private forum::message::url { message_id } {
+ @param message_id
+ @author dave@thedesignexperience.org
+ @creation_date 2002-08-07
+
+ returns a url for a message to the search package
+
+} {
+ forum::message::get -message_id $message_id -array message
+ set forum_id $message(forum_id)
+
+
+ return "[db_string select_forums_package_url {}]message-view?message_id=$message_id"
+}
+
+
+
+namespace eval forum::forum {}
+
+ad_proc -private forum::forum::datasource {
+ forum_id
+} {
+ Datasource for the FtsContentProvider contract.
+
+ @param forum_id
+
+ @author Jeff Davis davis@xarg.net
+ @creation_date 2004-04-01
+} {
+ if {![db_0or1row datasource {
+ select
+ forum_id as object_id,
+ name as title,
+ charter as content,
+ 'text/plain' as mime,
+ 'text' as storage_type,
+ '' as keywords
+ from forums_forums
+ where forum_id = :forum_id
+ } -column_array datasource]} {
+ return {object_id {} name {} charter {} mime {} storage_type {}}
+ }
+
+ return [array get datasource]
+}
+
+ad_proc -private forum::forum::url {
+ forum_id
+} {
+ url method for the FtsContentProvider contract
+
+ @param forum_id
+
+ @author Jeff Davis davis@xarg.net
+ @creation_date 2004-04-01
+} {
+
+ return "[db_string select_forums_package_url {}]forum-view?forum_id=$forum_id"
+}
+
+
+namespace eval forum::sc {}
+
+ad_proc -private forum::sc::register_implementations {} {
+ Register the forum_forum and forum_message content type fts contract
+} {
+ db_transaction {
+ forum::sc::register_forum_fts_impl
+ forum::sc::register_message_fts_impl
+ }
+}
+
+ad_proc -private forum::sc::unregister_implementations {} {
+ db_transaction {
+ acs_sc::impl::delete -contract_name FtsContentProvider -impl_name forum_message
+ acs_sc::impl::delete -contract_name FtsContentProvider -impl_name forum_forum
+ }
+}
+
+ad_proc -private forum::sc::register_forum_fts_impl {} {
+ set spec {
+ name "forums_forum"
+ aliases {
+ datasource forum::forum::datasource
+ url forum::forum::url
+ }
+ contract_name FtsContentProvider
+ owner forums
+ }
+
+ acs_sc::impl::new_from_spec -spec $spec
+}
+
+
+ad_proc -private forum::sc::register_message_fts_impl {} {
+ set spec {
+ name "forums_message"
+ aliases {
+ datasource forum::message::datasource
+ url forum::message::url
+ }
+ contract_name FtsContentProvider
+ owner forums
+ }
+
+ acs_sc::impl::new_from_spec -spec $spec
+}
+
Index: dotlrn_packages/packages/forums/tcl/forums-security-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/forums-security-procs.tcl (revision 0)
+++ dotlrn_packages/packages/forums/tcl/forums-security-procs.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,161 @@
+ad_library {
+
+ Forums Security Library
+
+ @creation-date 2002-05-25
+ @author Ben Adida
+ @cvs-id $Id$
+
+}
+
+namespace eval forum::security {
+
+ ad_proc -private do_abort {} {
+ do an abort if security violation
+ } {
+ if { [ad_conn user_id] == 0 } {
+ ad_redirect_for_registration
+ } else {
+ ad_returnredirect "not-allowed"
+ }
+ ad_script_abort
+ }
+
+ ad_proc -public can_read_forum_p {
+ {-user_id ""}
+ {-forum_id:required}
+ } {
+ return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege read]
+ }
+
+ ad_proc -public require_read_forum {
+ {-user_id ""}
+ {-forum_id:required}
+ } {
+ if {![can_read_forum_p -user_id $user_id -forum_id $forum_id]} {
+ do_abort
+ }
+ }
+
+ ad_proc -public can_read_message_p {
+ {-user_id ""}
+ {-message_id:required}
+ } {
+ # if the user is a guest, they can't see any forum messages at all
+ if { ![acs_privacy::user_can_read_private_data_p -user_id $user_id -object_id [ad_conn package_id]] } {
+ return 0
+ } else {
+ return [permission::permission_p -party_id $user_id -object_id $message_id -privilege read]
+ }
+ }
+
+ ad_proc -public require_read_message {
+ {-user_id ""}
+ {-message_id:required}
+ } {
+ if {![can_read_message_p -user_id $user_id -message_id $message_id]} {
+ do_abort
+ }
+ }
+
+ ad_proc -public can_post_forum_p {
+ {-user_id ""}
+ {-forum_id:required}
+ } {
+ return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege create]
+ }
+
+ ad_proc -public require_post_forum {
+ {-user_id ""}
+ {-forum_id:required}
+ } {
+ if {![can_post_forum_p -user_id $user_id -forum_id $forum_id]} {
+ do_abort
+ }
+ }
+
+ ad_proc -public can_post_message_p {
+ {-user_id ""}
+ {-message_id:required}
+ } {
+ return [permission::permission_p -party_id $user_id -object_id $message_id -privilege write]
+ }
+
+ ad_proc -public require_post_message {
+ {-user_id ""}
+ {-message_id:required}
+ } {
+ if {![can_post_message_p -user_id $user_id -message_id $message_id]} {
+ do_abort
+ }
+ }
+
+ ad_proc -public can_moderate_forum_p {
+ {-user_id ""}
+ {-forum_id:required}
+ } {
+ return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege forum_moderate]
+ }
+
+ ad_proc -public require_moderate_forum {
+ {-user_id ""}
+ {-forum_id:required}
+ } {
+ if {![can_moderate_forum_p -user_id $user_id -forum_id $forum_id]} {
+ do_abort
+ }
+ }
+
+ ad_proc -public can_moderate_message_p {
+ {-user_id ""}
+ {-message_id:required}
+ } {
+ return [permission::permission_p -party_id $user_id -object_id $message_id -privilege forum_moderate]
+ }
+
+ ad_proc -public require_moderate_message {
+ {-user_id ""}
+ {-message_id:required}
+ } {
+ if {![can_moderate_message_p -user_id $user_id -message_id $message_id]} {
+ do_abort
+ }
+ }
+
+ ad_proc -public can_admin_forum_p {
+ {-user_id ""}
+ {-forum_id:required}
+ } {
+ return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege forum_moderate]
+ }
+
+ ad_proc -public require_admin_forum {
+ {-user_id ""}
+ {-forum_id:required}
+ } {
+ if {![can_admin_forum_p -user_id $user_id -forum_id $forum_id]} {
+ do_abort
+ }
+ }
+
+ ad_proc -public permissions {
+ {-forum_id:required}
+ array_name
+ } {
+ upvar $array_name array
+
+ array set array [list admin_p [forum::security::can_admin_forum_p -forum_id $forum_id]]
+
+ if { !$array(admin_p) } {
+ array set array [list moderate_p [forum::security::can_moderate_forum_p -forum_id $forum_id]]
+ if { !$array(moderate_p) } {
+ array set array [list post_p [expr { [ad_conn user_id] == 0 || [forum::security::can_post_forum_p -forum_id $forum_id] }]]
+ } else {
+ array set array [list post_p 1]
+ }
+ } else {
+ array set array [list moderate_p 1]
+ array set array [list post_p 1]
+ }
+ }
+}
Index: dotlrn_packages/packages/forums/tcl/messages-format-procs.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/messages-format-procs.tcl (revision 0)
+++ dotlrn_packages/packages/forums/tcl/messages-format-procs.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,52 @@
+ad_library {
+ message formatting procs
+}
+
+namespace eval forum::format {
+
+ ad_proc -public reply_subject { parent_subject } {
+
+ Generates a subject string for a reply to an existing message.
+
+ } {
+ set subject "[_ forums.Re] $parent_subject"
+
+ # trim multiple leading Re:
+ regsub {^(\s*Re:\s*)*} $subject {Re: } subject
+
+ return $subject
+ }
+
+ ad_proc emoticons {
+ {-content:required}
+ } {
+ Convert smileys (emoticons) to img references. It constructs a relative
+ image reference to graphics/imagename.gif, so it will only work when
+ used from pages that are directly under the forums/www/ directory.
+
+
+
+
+ 
+ 
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ @message.number@:
+ @message.subject@
+
+
+
+
+
+@message.subject@
+
+
+
+
+@message.number@
+
+
+ (response to @message.parent_number@)
+
+
+ #forums.Posted_by# @message.user_name@ on @message.posting_date_pretty@
+
+
+
+
+
+
+
+
+
+
+ @message.content;noquote@
+
+
+
+
+
+
+
+
+
+
+
+
+
+@response_arrays_stub;noquote@
Index: dotlrn_packages/packages/forums/lib/message/thread-chunk.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/message/thread-chunk.tcl (revision 0)
+++ dotlrn_packages/packages/forums/lib/message/thread-chunk.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,153 @@
+ad_page_contract {
+
+ view a message (and its children)
+
+ @author Ben Adida (ben@openforce.net)
+ @creation-date 2002-05-25
+ @cvs-id $Id$
+
+}
+
+if {$forum(posting_policy) == "moderated"} {
+ set forum_moderated_p 1
+} else {
+ set forum_moderated_p 0
+}
+
+# get the colors from the params
+set table_border_color [parameter::get -parameter table_border_color]
+set table_bgcolor [parameter::get -parameter table_bgcolor]
+set table_other_bgcolor [parameter::get -parameter table_other_bgcolor]
+
+# Check preferences for user
+
+# Set some variables for easy SQL access
+set forum_id $message(forum_id)
+set tree_sortkey $message(tree_sortkey)
+
+if {[forum::attachments_enabled_p]} {
+ set query select_message_responses_attachments
+} else {
+ set query select_message_responses
+}
+
+# We set a Tcl variable for moderation now (Ben)
+if { $permissions(moderate_p) } {
+ set table_name "forums_messages"
+} else {
+ set table_name "forums_messages_approved"
+}
+
+#####
+#
+# Find ordering of messages
+#
+#####
+
+if { [string equal $forum(presentation_type) flat] } {
+ set order_by "fma.posting_date, fma.tree_sortkey"
+} else {
+ set order_by "fma.tree_sortkey"
+}
+
+set root_message_id $message(root_message_id)
+set message_id_list [db_list select_message_ordering {}]
+
+set direct_url_base [export_vars -base [ad_conn url] { { message_id $message(root_message_id) } }]
+set message(direct_url) "$direct_url_base\#msg_$message(message_id)"
+
+set message(number) [expr [lsearch $message_id_list $message(message_id)] + 1]
+set message(parent_number) {}
+set message(parent_direct_url) ""
+if { [exists_and_not_null message(parent_id)] } {
+ set message(parent_number) [expr [lsearch $message_id_list $message(parent_id)] + 1]
+ set message(parent_direct_url) "$direct_url_base\#msg_$message(parent_id)"
+ set message(parent_root_url) [export_vars -base [ad_conn url] { { message_id $message(parent_id) } }]
+}
+
+set message(open_p) "t"
+set message(reply_p) [expr [string equal $message(open_p) "t"] || [string equal $message(user_id) [ad_conn user_id]]]
+set message(tree_level) 0
+
+
+#####
+#
+# Find responses
+#
+#####
+
+# More Tcl vars (we might as well use them - Ben)
+if { [string equal $forum(presentation_type) flat] } {
+ set order_by "t.posting_date, tree_sortkey"
+} else {
+ set order_by "tree_sortkey"
+}
+
+set old_tree_level 0
+set old_message_id 0
+set message_ids {}
+
+db_multirow -extend { posting_date_pretty direct_url number parent_number parent_direct_url reply_p viewed_p open_p} responses $query {} {
+ set open_p t
+ set tree_level [min [expr {$tree_level - $message(tree_level)}] 10]
+ set posting_date_ansi [lc_time_system_to_conn $posting_date_ansi]
+ set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+ set direct_url "$direct_url_base\#msg_$message_id"
+ set number [expr [lsearch $message_id_list $message_id] + 1]
+ set parent_number [expr [lsearch $message_id_list $parent_id] + 1]
+ set parent_direct_url "$direct_url_base\#msg_$parent_id"
+ set parent_root_url [export_vars -base [ad_conn url] {{message_id $parent_id}}]
+ set reply_p [expr [string equal $open_p "t"] || [string equal $user_id [ad_conn user_id]]]
+
+ # DEDS: get the response ids the tcl way or else we need to hit
+ # the db for each response to count its children
+ if {$tree_level == 1} {
+ # leftmost so this is a new parent. truncate the list of ids.
+ set message_ids {}
+ } else {
+ if {$tree_level > $old_tree_level} {
+ # increase in level. previous id is a parent too.
+ lappend message_ids $old_message_id
+ foreach one_parent_id $message_ids {
+ lappend parent_message($one_parent_id) $message_id
+ }
+ } elseif {$tree_level < $old_tree_level} {
+ # decrease in level. let us pop the last id.
+ set message_ids_last [expr [llength $message_ids] - 1]
+ set message_ids [lreplace $message_ids $message_ids_last $message_ids_last]
+ } else {
+ foreach one_parent_id $message_ids {
+ lappend parent_message($one_parent_id) $message_id
+ }
+ }
+ }
+ # keep track of what level and message we are in
+ set old_tree_level $tree_level
+ set old_message_id $message_id
+
+ # make sure we also populate the original message id
+ lappend parent_message($message(message_id)) $message_id
+}
+
+set message(tree_level) 0
+
+if {[exists_and_not_null alt_template]} {
+ ad_return_template $alt_template
+}
+
+set response_arrays_stub "
+"
+
+set return_url [ad_return_url]
Index: dotlrn_packages/packages/forums/lib/message/threads-chunk-oracle.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/message/threads-chunk-oracle.xql (revision 0)
+++ dotlrn_packages/packages/forums/lib/message/threads-chunk-oracle.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,70 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: dotlrn_packages/packages/forums/lib/search/search-form.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/search/search-form.tcl (revision 0)
+++ dotlrn_packages/packages/forums/lib/search/search-form.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,14 @@
+# packages/forums/lib/search/search-form.tcl
+#
+# Form for search box
+#
+# @author Emmanuelle Raffenne (eraffenne@gmail.com)
+# @creation-date 2007-12-23
+# @cvs-id $Id$
+
+form create search -action search
+forums::form::search search
+
+if { [form is_request search] && [info exists forum_id] } {
+ element set_properties search forum_id -value $forum_id
+}
Index: dotlrn_packages/packages/forums/lib/user/post-history-chunk.adp
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/user/post-history-chunk.adp (revision 0)
+++ dotlrn_packages/packages/forums/lib/user/post-history-chunk.adp (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,17 @@
+
+
+
+
+
+
Index: dotlrn_packages/packages/forums/lib/user/post-history-chunk.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/user/post-history-chunk.tcl (revision 0)
+++ dotlrn_packages/packages/forums/lib/user/post-history-chunk.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,121 @@
+ad_page_contract {
+
+ Posting History for a User
+
+ @author Ben Adida (ben@openforce.net)
+ @creation-date 2002-05-29
+ @cvs-id $Id$
+
+} {
+ groupby:optional
+}
+
+set package_id [ad_conn package_id]
+
+# provide screen_name functionality
+set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
+set screen_name [db_string select_screen_name { select screen_name from users where user_id = :user_id}]
+set user_link [acs_community_member_link -user_id $user_id]
+
+# choosing the view
+set dimensional_list "
+ {
+ view \"[_ forums.View]:\" date {
+ {date \"[_ forums.by_Date]\" {}}
+ {forum \"[_ forums.by_Forum]\" {}}
+ }
+ }
+"
+
+set query select_messages
+if {[string equal $view forum]} {
+ set query select_messages_by_forum
+ template::list::create \
+ -html {style "width: 50%; text-align: center; margin: auto"} \
+ -name messages \
+ -multirow messages \
+ -no_data "#forums.No_Postings#" \
+ -key message_id \
+ -elements {
+ forum_name {
+ label "\#forums.Forum\#"
+ hide_p t
+ html {align left}
+ display_template {@messages.forum_name@}
+ }
+ subject {
+ label "\#forums.Subject\#"
+ html {align left}
+ display_template {@messages.subject@}
+ }
+ posting_date_pretty {
+ label "\#forums.Posted\#"
+ html {align right}
+ }
+ } -groupby {
+ label "\#forums.Forum\#"
+ values { "\#forums.Forum\#" {{groupby forum_name} {orderby forum_name,desc}}}
+ }
+} else {
+ template::list::create \
+ -html {style "width: 50%; text-align: center; margin: auto"} \
+ -name messages \
+ -multirow messages \
+ -no_data "#forums.No_Postings#" \
+ -key message_id \
+ -elements {
+ forum_name {
+ label "\#forums.Forum\#"
+ html {align left}
+ display_template {@messages.forum_name@}
+ }
+ subject {
+ label "\#forums.Subject\#"
+ html {align left}
+ display_template {@messages.subject@}
+ }
+ posting_date_pretty {
+ label "\#forums.Posted\#"
+ html {align right}
+ }
+ }
+}
+
+
+# Select the postings
+db_multirow -extend { posting_date_pretty } messages $query {} {
+ set posting_date_pretty [lc_time_fmt $posting_date_ansi "%x %X"]
+}
+
+template::list::create \
+ -name posts \
+ -html {style "width: 50%; text-align: center; margin: auto"} \
+ -multirow posts \
+ -no_data "#forums.No_Postings#" \
+ -key message_id \
+ -elements {
+ name {
+ label "\#forums.Forum\#"
+ html {align left}
+ display_template {@posts.name@}
+ }
+ num_msg {
+ label "\#forums.Number_of_Posts\#"
+ html {align left}
+ }
+ posting_date_pretty {
+ label "\#forums.Posted\#"
+ html {align right}
+ }
+ }
+
+# select number of post from this user
+db_multirow -extend { posting_date_pretty } posts select_num_post {} {
+ set posting_date_pretty [lc_time_fmt $last_post "%x %X"]
+}
+
+set dimensional_chunk [ad_dimensional $dimensional_list]
+
+if {[exists_and_not_null alt_template]} {
+ ad_return_template $alt_template
+}
Index: dotlrn_packages/packages/forums/lib/user/post-history-chunk.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/lib/user/post-history-chunk.xql (revision 0)
+++ dotlrn_packages/packages/forums/lib/user/post-history-chunk.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,66 @@
+
+
+
+ #forums.Posting_history_for#
+
+
@dimensional_chunk;noquote@
+#forums.Summary_Posting_history_for#
+
+
+ If you change the images make sure to also adapt the image sizes in
+ the img tag that gets constructed here.
+ } {
+ set emoticons_map [list]
+
+ # if you change this list, consider changing
+ # www/doc/emoticons.adp as well
+ foreach { emoticon image } {
+ ":-)" "smile"
+ ";-)" "wink"
+ ":-D" "bigsmile"
+ "8-)" "smile8"
+ ":-(" "sad"
+ ";-(" "cry"
+ ":-O" "scream"
+ ":-/" "think"
+ } {
+ lappend emoticons_map $emoticon
+ lappend emoticons_map " "
+
+ if {[llength $attachments] > 0} {
+ append html_version "Attachments:
+
+
+ ---$email---"
+
+ if {![util_email_valid_p $email]} {
+ set user_id ""
+ ns_write " Complete
+@notification_chunk;noquote@
+ #forums.lt_Email_a_copy_of_the_f# @notification_chunk;noquote@
+
+
+
+
+
+
+
+
+ ![\"$emoticon\"](\"/resources/forums/${image}.gif\")
"
+ }
+ return [string map $emoticons_map $content]
+ }
+
+}
Index: dotlrn_packages/packages/forums/tcl/messages-procs-oracle.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/messages-procs-oracle.xql (revision 0)
+++ dotlrn_packages/packages/forums/tcl/messages-procs-oracle.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,66 @@
+
+
+
\n"
+ append html_version "Thread: $message(root_subject)
\n"
+ if {$useScreenNameP == 0} {
+ append html_version "Author: $message(user_name)
\n"
+ } else {
+ append html_version "Author: $message(screen_name)
\n"
+ }
+ append html_version "Posted: $message(posting_date)
"
+ append html_version "\n
\n"
+ append html_version $message_html
+ append html_version " "
+
+ foreach attachment $attachments {
+ append html_version "
"
+
+ }
+
+ set html_version $html_version
+
+ set text_version ""
+ append text_version "
+Forum: $message(forum_name)
+Thread: $message(root_message_id)\n"
+ if {$useScreenNameP == 0} {
+ append text_version "Author: $message(user_name)"
+ } else {
+ append text_version "Author: $message(screen_name)"
+ }
+ append text_version "
+Posted: $message(posting_date)
+----------------------------------
+$message_text
+---------------------------------
+To post a reply to this email or view this message go to:
+${url}message-view?message_id=$message(root_message_id)
+
+To view Forum $message(forum_name) go to:
+${url}forum-view?forum_id=$message(forum_id)
+"
+ # 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(forum_name)\] $message(subject)" \
+ -notif_text $text_version \
+ -notif_html $html_version
+
+
+ # 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(forum_name)\] $message(subject)" \
+ -notif_text $text_version \
+ -notif_html $html_version
+}
+
+ad_proc -public forum::message::edit {
+ {-message_id:required}
+ {-subject:required}
+ {-content:required}
+ {-format:required}
+ -no_callback:boolean
+} {
+ Editing a message. There is no versioning here!
+ This means this function is for admins only!
+} {
+ # do the update
+ db_dml update_message {}
+ db_dml update_message_title {}
+
+ if {!$no_callback_p} {
+ callback forum::message_edit -package_id [ad_conn package_id] -message_id $message_id
+ }
+}
+
+ad_proc -public forum::message::set_format {
+ {-message_id:required}
+ {-format:required}
+} {
+ set whether a message is HTML or not
+} {
+ # Straight update to the DB
+ db_dml update_message_format
+}
+
+ad_proc -public forum::message::get {
+ {-message_id:required}
+ {-array:required}
+} {
+ get the fields for a message
+} {
+ # Select the info into the upvar'ed Tcl Array
+ upvar $array row
+
+ set query select_message
+
+ if {[ad_conn isconnected] && [forum::attachments_enabled_p]} {
+ set query select_message_with_attachment
+ }
+
+ if {![db_0or1row $query {} -column_array row]} {
+ if {[array exists row]} {
+ array unset row
+ }
+ } else {
+ # Convert to user's date/time format
+ set row(posting_date_ansi) [lc_time_system_to_conn $row(posting_date_ansi)]
+ set row(posting_date_pretty) [lc_time_fmt $row(posting_date_ansi) "%x %X"]
+ }
+}
+
+ad_proc -private forum::message::set_state {
+ {-message_id:required}
+ {-state:required}
+} {
+ Set the new state for a message
+ Usually used for approval
+} {
+ set var_list [list \
+ [list message_id $message_id] \
+ [list state $state]]
+ package_exec_plsql -var_list $var_list forums_message set_state
+}
+
+ad_proc -public forum::message::reject {
+ {-message_id:required}
+} {
+ Reject a message
+} {
+ set_state -message_id $message_id -state rejected
+}
+
+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 forum::message::delete {
+ {-message_id:required}
+ -no_callback:boolean
+} {
+ delete a message and obviously all of its descendents
+} {
+ db_transaction {
+ if {!$no_callback_p} {
+ callback forum::message_delete -package_id [ad_conn package_id] -message_id $message_id
+ }
+
+ if { [forum::use_ReadingInfo_p] && [expr { [db_string is_root "select parent_id from forums_messages where message_id = :message_id"] == "" } ] } {
+ set db_antwort [db_string forums_reading_info__remove_msg {
+ select forums_reading_info__remove_msg (
+ :message_id
+ );
+ }]
+ }
+
+
+ # Remove the notifications
+ notification::request::delete_all -object_id $message_id
+
+ # Remove the message
+ set var_list [list [list message_id $message_id]]
+ package_exec_plsql -var_list $var_list forums_message delete_thread
+ }
+}
+
+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 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 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]
+ }
+
+ return [attachments::get_attachments -object_id $message_id]
+}
+
+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.
+
+ @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]
+
+ 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
+}
+
+ad_proc -public forum::message::initial_message {
+ {-forum_id {}}
+ {-parent {}}
+ {-message:required}
+} {
+ Create an array with values initialised for a new message.
+} {
+ upvar $message init_msg
+
+ if { [empty_string_p $forum_id] && [empty_string_p $parent] } {
+ return -code error [_ forums.lt_You_either_have_to]
+ }
+
+ if { ![empty_string_p $parent] } {
+ upvar $parent parent_msg
+
+ set init_msg(parent_id) $parent_msg(message_id)
+ set init_msg(forum_id) $parent_msg(forum_id)
+ set init_msg(subject) \
+ [forum::format::reply_subject $parent_msg(subject)]
+ } else {
+ set init_msg(forum_id) $forum_id
+ set init_msg(parent_id) ""
+ }
+}
Index: dotlrn_packages/packages/forums/tcl/messages-procs.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/tcl/messages-procs.xql (revision 0)
+++ dotlrn_packages/packages/forums/tcl/messages-procs.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,38 @@
+
+
"
+ notification::request::new \
+ -type_id $type_id \
+ -user_id $subscriber_id \
+ -object_id $forum_id \
+ -interval_id $interval \
+ -delivery_method_id $delivery_method
+ }
+
+ foreach line $lines {
+
+ set rows [split $line ","]
+ set length [llength $rows]
+
+ set email [lindex $rows 0]
+ if {$length > 1} {
+ set fname [lindex $rows 1]
+ } else {
+ set fname "(no first name)"
+ }
+
+ if {$length > 2} {
+ set lname [lindex $rows 2]
+ } else {
+ set lname "(no last name)"
+ }
+
+ ns_write "
invalid email address"
+ } else {
+
+ if {[db_0or1row get_party_id {
+ select party_id, first_names as fname, last_name as lname
+ from cc_users
+ where lower(email) = lower(:email)
+ limit 1
+ }]} {
+ set user_id $party_id
+ ns_write "
account exists"
+ } else {
+ set user_id ""
+ }
+
+ }
+
+ ns_write "
Name:$fname $lname"
+
+
+ # user_id is blank if the account doesn't exist or if the
+ # email account looks invalid.
+
+ if {[empty_string_p $user_id]} {
+ # shall we create the new user?
+
+ if {[string is true $create_new_users_p]} {
+
+ if {[util_email_valid_p $email]} {
+ ns_write "creating new user: $fname $lname ($email)
"
+
+ # create new user
+ set user_exists_p [db_0or1row user_id "select party_id from parties where email = lower(:email) limit 1"]
+
+ if {[string is false $user_exists_p]} {
+ set password [ad_generate_random_string]
+
+ array set auth_status_array [auth::create_user -email $email -first_names $fname -last_name $lname -password $password]
+
+ set user_id $auth_status_array(user_id)
+ }
+ } else {
+ ns_write "
invalid email address: $email"
+ }
+ } else {
+ ns_write "
skipping user (not creating): $fname $lname ($email)"
+ }
+
+ }
+
+ if {![empty_string_p $user_id]} {
+
+ # Check if subscribed
+ set request_id [notification::request::get_request_id -type_id $type_id -object_id $forum_id -user_id $user_id]
+
+ if {![empty_string_p $request_id]} {
+ ns_write "
already subscribed ($fname $lname ($email)
"
+ } else {
+ ns_write "subscribing ($fname $lname ($email)
"
+ notification::request::new \
+ -type_id $type_id \
+ -user_id $user_id \
+ -object_id $forum_id \
+ -interval_id $interval \
+ -delivery_method_id $delivery_method
+ }
+ }
+
+ }
+}
+
+ns_write "
\n"
+}
+
+forum::get -forum_id $forum_id -array forum
+
+# Proper scoping?
+if {$package_id != $forum(package_id)} {
+ ns_log Error "Forum Administration: Bad Scoping of Forum #$forum_id in Forum Editing"
+ ad_returnredirect -message "Forum Administration: Bad Scoping of Forum #$forum_id in Forum Editing" "./"
+ ad_script_abort
+}
+
+set context [list [_ forums.Subscribe_others]]
+
+set type forums_forum_notif
+set type_id [notification::type::get_type_id -short_name $type]
+
+# Get the list for the members and the ones already subscribed
+set subscribed_members_list [notification::request::subscribers -type_id $type_id -object_id $forum_id]
+set member_ids [group::get_members -group_id $group_id]
+set member_ids [lsort -integer -unique [concat $subscribed_members_list $member_ids]]
+
+set member_html ""
+foreach member_id $member_ids {
+ if {[lsearch $subscribed_members_list $member_id] > -1} {
+ set checked_html "checked"
+ } else {
+ set checked_html ""
+ }
+
+ append member_html " [party::name -party_id $member_id]
\n"
+}
+
+
+set hidden_vars [export_vars -form {forum_id type_id}]
+
+set intervals [notification::get_intervals -type_id $type_id]
+set interval_html ""
+
+set delivery_methods [notification::get_delivery_methods -type_id $type_id]
+
+set delivery_html ""
+
+
Index: dotlrn_packages/packages/forums/www/doc/emoticons.adp
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/doc/emoticons.adp (revision 0)
+++ dotlrn_packages/packages/forums/www/doc/emoticons.adp (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,41 @@
+
+
+
+The listed smileys (e.g. ;-) ) will be automatically replaced with an
+image if the package parameter DisplayEmoticonsAsImagesP is set to 1
+(1 by default).
Index: dotlrn_packages/packages/forums/www/forum-view-statistic.adp
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/forum-view-statistic.adp (revision 0)
+++ dotlrn_packages/packages/forums/www/forum-view-statistic.adp (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,6 @@
+
+
+ :-) 
+
+ ;-)
+ 
+
+ :-D
+ 
+
+ 8-)
+ 
+
+ :-(
+ 
+
+ ;-(
+ 
+
+ :-O
+ 
+
+:-/
+ 
@page_title;noquote@
+
+
+
+ @page_title;noquote@
+
+
+ #forums.display_as#
+ #forums.expand#
+
+
+
+
+
+
+
Index: dotlrn_packages/packages/forums/www/messages-get.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/messages-get.tcl (revision 0)
+++ dotlrn_packages/packages/forums/www/messages-get.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,15 @@
+ad_page_contract {
+} {
+ cid:integer
+ {op noop}
+ {sid nosid}
+ {dynamicmode:integer}
+}
+
+if {$dynamicmode} {
+ forum::message::get -message_id $cid -array message
+ set message(content) [ad_html_text_convert -from $message(format) -to text/html -- $message(content)]
+} else {
+ set message(content) {}
+}
+
Index: dotlrn_packages/packages/forums/www/moderate/forum.adp
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/moderate/forum.adp (revision 0)
+++ dotlrn_packages/packages/forums/www/moderate/forum.adp (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,7 @@
+@message.content;noquote@#forums.Pending_Threads#
+
+
+
+ #forums.Move_thread_to_the_thread# @subject@ #forums.of_forum# @name@
+
+ #forums.Are_you_sure_you_want_to_move_this_message_and_obviously_all_of_its_descendents_lt#
+
Index: dotlrn_packages/packages/forums/www/moderate/move-thread-thread.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/moderate/move-thread-thread.tcl (revision 0)
+++ dotlrn_packages/packages/forums/www/moderate/move-thread-thread.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,91 @@
+ad_page_contract {
+
+ Move a thread to other thread of same forum or other forum.
+
+ @author Natalia P�rez (nperper@it.uc3m.es)
+ @creation-date 2005-03-29
+
+} {
+ msg_id:integer,notnull
+ selected_message:integer,notnull
+ {confirm_p 0}
+}
+
+set table_border_color [parameter::get -parameter table_border_color]
+
+# Check that the user can moderate the forum
+forum::security::require_moderate_message -message_id $msg_id
+
+# Select the stuff
+forum::message::get -message_id $msg_id -array message
+
+#form to confirm
+ad_form -name confirmed_move -mode {display} -actions [list [list [_ forums.Yes] yes] [list No no] ] -export { msg_id return_url selected_message} -html {enctype multipart/form-data} -form {
+ {data:text(hidden) {value 0}}
+}
+#get the clicked button
+set action [template::form::get_action confirmed_move]
+
+if {$action == "yes"} {
+ set confirm_p 1
+}
+if {$action == "no"} {
+ set confirm_p 2
+}
+
+set message_id $selected_message
+db_0or1row forums::move_thread_thread::get_forum_name { }
+
+# Confirmed
+if {$confirm_p == 1} {
+
+ #update the final message: increase reply_count, approved_reply_count and max_child_sortkey
+ db_dml forums::move_thread_thread::update_final_message {}
+
+ #get the tree_sortkey and max_child_sortkey of final message
+ db_0or1row forums::move_thread_thread::get_father_tree_sortkey {}
+
+ #get all descendents
+ db_foreach forums::move_thread_thread::get_all_child {} {
+ set join_tree_sortkey $father_tree_sortkey
+ append join_tree_sortkey $father_max_child_sortkey
+ append join_tree_sortkey $child_tree_sortkey
+ #update the children's initial message: update tree_sortkey
+ db_dml forums::move_thread_thread::update_child_thread_father {}
+ #update the final message: increase reply_count and approved_reply_count
+ db_dml forums::move_thread_thread::update_final_reply_count {}
+ }
+
+ #update the initial message
+ set join_tree_sortkey $father_tree_sortkey
+ append join_tree_sortkey $father_max_child_sortkey
+ db_dml forums::move_thread_thread::update_thread_father {}
+
+ #update last_child_post final father message
+ db_dml forums::move_thread_thread::update_last_child_post {}
+
+ #update the initial forum: decrease thread_count, approved_thread_count and max_child_sortkey
+ db_0or1row forums::move_thread_thread::select_data_forum_initial {}
+ db_dml forums::move_thread_thread::update_forum_initial {}
+
+
+ #update the final forum
+ db_dml forums::move_thread_thread::update_forums_final {}
+
+ # Redirect to the forum
+ ad_returnredirect "../forum-view?forum_id=$forum_id"
+ ad_script_abort
+}
+
+
+set msg_id $message(message_id)
+set return_url "../message-view"
+
+if {$confirm_p == 2} {
+ ad_returnredirect "../message-view?message_id=$message(message_id)"
+}
+set url_vars [export_url_vars msg_id return_url selected_message]
+
+if {[exists_and_not_null alt_template]} {
+ ad_return_template $alt_template
+}
Index: dotlrn_packages/packages/forums/www/moderate/move-thread-thread.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/moderate/move-thread-thread.xql (revision 0)
+++ dotlrn_packages/packages/forums/www/moderate/move-thread-thread.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,79 @@
+
+
+
+
+ @title;noquote@
+
+
+
+ #forums.Are_you_sure_you_want_to_move_this_message_and_obviously_all_of_its_descendents_lt#
+
Index: dotlrn_packages/packages/forums/www/moderate/move-thread.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/moderate/move-thread.tcl (revision 0)
+++ dotlrn_packages/packages/forums/www/moderate/move-thread.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,99 @@
+ad_page_contract {
+
+ Move a Message to other thread in the same forum.
+
+ @author Natalia P�rez (nperper@it.uc3m.es)
+ @creation-date 2005-03-14
+
+} {
+ msg_id:integer,notnull
+ selected_message:integer,notnull
+ {confirm_p 0}
+}
+
+set table_border_color [parameter::get -parameter table_border_color]
+
+# Check that the user can moderate the forum
+forum::security::require_moderate_message -message_id $msg_id
+
+# Select the stuff
+forum::message::get -message_id $msg_id -array message
+
+#form to confirm
+ad_form -name confirmed_move -mode {display} -actions [list [list [_ forums.Yes] yes] [list No no] ] -export { msg_id return_url selected_message} -html {enctype multipart/form-data} -form {
+ {data:text(hidden) {value 0}}
+}
+#get the clicked button
+set action [template::form::get_action confirmed_move]
+if {$action == "yes"} {
+ set confirm_p 1
+}
+if {$action == "no"} {
+ set confirm_p 2
+}
+
+#information about final message
+db_0or1row forums::move_thread::get_subject_message {}
+
+# Confirmed
+if {$confirm_p == 1} {
+
+ set message_id $selected_message
+
+ #update the final message: increase reply_count, approved_reply_count and max_child_sortkey
+ db_dml forums::move_thread::update_final_message {}
+
+ #get the tree_sortkey of final message
+ db_0or1row forums::move_thread::get_father_tree_sortkey {}
+
+ #update the initial message
+ db_0or1row forums::move_thread::get_final_tree_sortkey {}
+
+ #update the initial father message: decreasing reply_count and approved_reply_count
+ db_0or1row forums::move_thread::get_father_message_id {}
+ db_dml forums::move_thread::update_father_reply_count {}
+
+ #get all descendents
+ db_foreach forums::move_thread::get_all_child {} {
+ #update los ocho primeros d�gitos de tree_sortkey
+ set join_tree_sortkey $father_tree_sortkey
+ append join_tree_sortkey $father_max_child_sortkey
+ append join_tree_sortkey $child_tree_sortkey
+ #update the children's initial message: update tree_sortkey
+ db_dml forums::move_thread::update_child_thread_father {}
+ #update the final message: increasing reply_count and approved_reply_count
+ db_dml forums::move_thread::update_final_reply_count {}
+ #update the initial father message: decreasing reply_count and approved_reply_count
+ db_dml forums::move_thread::update_father_reply_count {}
+ }
+
+ #update the initial message
+ set join_tree_sortkey $father_tree_sortkey
+ append join_tree_sortkey $father_max_child_sortkey
+ db_dml forums::move_thread::update_thread_father {}
+
+ #update the last_child_post final thread and last_child_post initial father thread
+ db_dml forums::move_thread::update_last_child_post_initial {}
+ db_dml forums::move_thread::update_last_child_post_final {}
+
+ # Redirect to the forum
+ ad_returnredirect "../forum-view?forum_id=$message(forum_id)"
+ ad_script_abort
+}
+
+set msg_id $message(message_id)
+set return_url "../message-view"
+
+#if confirm is no
+if {$confirm_p == 2} {
+ ad_returnredirect "../message-view?message_id=$message(message_id)"
+}
+
+set url_vars [export_url_vars msg_id return_url selected_message]
+
+if {[exists_and_not_null alt_template]} {
+ ad_return_template $alt_template
+}
+
+set title "#forums.Move_message_to_thread# \"$subject\""
+set context $title
\ No newline at end of file
Index: dotlrn_packages/packages/forums/www/moderate/move-thread.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/moderate/move-thread.xql (revision 0)
+++ dotlrn_packages/packages/forums/www/moderate/move-thread.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,65 @@
+
+
+
+
+
+
+
+
+ #forums.Move_thread_to_forum# @name@
+
+ #forums.Are_you_sure_you_want_to_move_this_thread_and_obviously_all_of_its_descendents_lt#
+
Index: dotlrn_packages/packages/forums/www/moderate/move.tcl
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/moderate/move.tcl (revision 0)
+++ dotlrn_packages/packages/forums/www/moderate/move.tcl (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,89 @@
+ad_page_contract {
+
+ Move a thread to other forum.
+
+ @author Natalia P�rez (nperper@it.uc3m.es)
+ @creation-date 2005-03-14
+
+} {
+ message_id:integer,notnull
+ selected_forum:integer,notnull
+ {confirm_p 0}
+}
+
+set table_border_color [parameter::get -parameter table_border_color]
+
+# Check that the user can moderate the forum
+forum::security::require_moderate_message -message_id $message_id
+
+# Select the stuff
+forum::message::get -message_id $message_id -array message
+
+#form to confirm if a user want to move the thread
+ad_form -name confirmed_move -mode {display} -actions [list [list [_ forums.Yes] yes] [list No no] ] -export { message_id return_url selected_forum} -html {enctype multipart/form-data} -form {
+ {data:text(hidden) {value 0}}
+}
+#get the clicked button
+set action [template::form::get_action confirmed_move]
+
+if {$action == "yes"} {
+ set confirm_p 1
+}
+if {$action == "no"} {
+ set confirm_p 2
+}
+
+#get the name of forum where the thread will be moved
+db_0or1row get_forum_name "select name from forums_forums where forum_id=:selected_forum"
+
+# Confirmed
+if {$confirm_p == 1} {
+
+ set forum_id $selected_forum
+
+ #update the initial father message: update forum_id and tree_sortkey. If in final forum there is no any thread then tree_sortkey is 0,
+ #else tree_sortkey=tree_sortkey+1
+ db_0or1row forums::move_message::select_num_msg {}
+ if {$num_post == 0 } {
+ db_dml forums::move_message::update_msg {}
+ } else {
+ db_foreach forums::move_message::select_tree_sortkey {} {
+ set max_tree_sortkey $tree_sortkey
+ }
+ db_dml forums::move_message::update_moved_msg {}
+ }
+
+ #get all descendents
+ db_0or1row forums::move_message::select_tree_sortkey_new {}
+ db_foreach forums::move_message::get_all_child {} {
+ set join_tree_sortkey $message_tree_sortkey
+ append join_tree_sortkey $child_tree_sortkey
+ #update children messages: forum_id and tree_sortkey
+ db_dml forums::move_message::update_children {}
+ }
+
+ #update final forum: increase thread_count, approved_thread_count and max_child_sortkey, update last_post
+ db_0or1row forums::move_message::select_new_data_forums_forums {}
+ db_dml forums::move_message::update_forums_final {}
+
+ #update initial forum: decrease thread_count, approved_thread_count and max_child_sortkey, update last_post
+ db_0or1row forums::move_message::select_data_forum_initial {}
+ db_dml forums::move_message::update_forum_initial {}
+
+ # Redirect to the forum
+ ad_returnredirect "../forum-view?forum_id=$forum_id"
+ ad_script_abort
+}
+
+set message_id $message(message_id)
+set return_url "../message-view"
+
+if {$confirm_p == 2} {
+ #if confirm_p is no then return to the message view
+ ad_returnredirect "../message-view?message_id=$message(message_id)"
+}
+set url_vars [export_url_vars message_id return_url selected_forum]
+
+if {[exists_and_not_null alt_template]} {
+ ad_return_template $alt_template
+}
Index: dotlrn_packages/packages/forums/www/moderate/move.xql
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/moderate/move.xql (revision 0)
+++ dotlrn_packages/packages/forums/www/moderate/move.xql (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,64 @@
+
+
+
+
+
+
+ @title;noquote@
+';
+var forums_expand_symbol = '
';
+var forums_replies = new Array();
+
+// toggle visibility
+
+function forums_getid(id) {
+ if(document.getElementById)
+ return document.getElementById(id);
+ else if(document.all)
+ return document.all(id);
+ return false;
+}
+
+function forums_toggle(targetId, state){
+ var symbol;
+ var content = forums_getid('content'+targetId);
+ var link = forums_getid('toggle'+targetId);
+
+ if (!link || !content) return;
+
+ var s;
+ if (state != null)
+ s = state;
+ else if (content.className == "dynexpanded") {
+ s = 0;
+ } else {
+ s = 1;
+ }
+ if (s) {
+ content.className = "dynexpanded";
+ symbol = forums_collapse_symbol;
+ } else {
+ content.className = "dyncollapsed";
+ symbol = forums_expand_symbol;
+ }
+
+ if (link.innerHTML)
+ link.innerHTML = symbol;
+ else if (link.appendChild) {
+ while(link.hasChildNodes())
+ link.removeChild(link.firstChild);
+ link.appendChild(document.createTextNode(symbol));
+ }
+}
+
+function forums_toggleList(a,state) {
+ if (!a.length) return;
+ for (var i = 0; i < a.length; ++i) {
+ forums_toggle(a[i], state);
+ }
+}
+
Index: dotlrn_packages/packages/forums/www/resources/forward.png
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/fwd.png
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/kiss.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/message-collapse.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/message-effects.js
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/resources/message-effects.js (revision 0)
+++ dotlrn_packages/packages/forums/www/resources/message-effects.js (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,338 @@
+/*
+- Script for collapse or expand the parent message and all his childs
+- It uses the scriptaculous libraries for the effects
+
+Autor: Veronica De La Cruz
+
+*/
+
+// Libraries to be included in this script are the
+// scriptaculuos's libraries of ajaxhelper
+
+
+// Some global variables, used in dynamicExpand()
+
+var expand_symbol ='';
+var collapse_symbol ='';
+
+// This function only creates an array by a giving string of characters
+// separated by blank space
+
+function getChildsArray(childrenString) {
+
+ var childrenArray = new Array();
+ var aux = childrenString;
+ var aux2 = "";
+ var pos = childrenString.indexOf(" ");
+ var childrenStringLength = childrenString.length;
+ var i = 0;
+ var j = 0;
+
+ // Separate all the children
+
+ while(j <= childrenStringLength) {
+
+ if (pos == -1){
+ aux2= aux.substring(j);
+ childrenArray[i] = aux2;
+ break;
+ }
+
+ childrenArray[i]= aux.substring(j,pos);
+ j=pos+1;
+ pos = childrenString.indexOf(" ",j);
+ i++;
+ }
+
+
+ return childrenArray;
+
+ }
+
+
+// Function that return the element properties and id
+
+function getId(id) {
+ if(document.getElementById)
+ return document.getElementById(id);
+ else if(document.all)
+ return document.all(id);
+ return false;
+}
+
+
+/*
+ FUNCTION:
+ expandChilds
+
+ PARAMETERS:
+ - parentID: contains only the message_id
+ - childrenString: contains a string of all the children of the current message separate by
+ blank space
+
+ FORMAT OF PARAMETERS:
+
+ - parentID : message_id ; Example: 2343
+ - childrenString : childrenmessage_id childrenmessage_id ; Example: 23324 32 31 321
+
+*/
+
+
+
+function expandChilds(parentID, childrenString){
+
+ //Get the parentID in a portable manner
+
+ var objectParent = getId('content'+parentID);
+ var actionObjectParent = getId('actions'+parentID);
+ var parentSymbol = getId('toggle'+parentID);
+ var subject = getId('subject' +parentID);
+ var joinAll = getId('join'+parentID);
+ var parentStyle = Element.getStyle(objectParent,'display');
+
+
+ //Only if the parentID message has any children
+
+ if (childrenString != null) {
+
+ var childArray = getChildsArray(childrenString);
+
+
+ // Make that the parent message and all his children
+ // take part on the effect
+
+
+ for (var i=0;i< childArray.length;i++){
+
+
+ var objectChild = getId('content'+childArray[i]);
+ var objectAction= getId('actions'+childArray[i]);
+ var objectSymbol= getId('toggle'+childArray[i]);
+ var objectSubject= getId('subject'+childArray[i]);
+ var objectJoin = getId('join'+childArray[i]);
+
+ var objectStyle = Element.getStyle(objectChild,'display');
+
+ // Change the state of the individual collapse/expand
+
+ if (objectStyle == 'none') {
+ objectSymbol.innerHTML = collapse_symbol;
+ }
+
+
+ Element.show(objectChild);
+ Element.show(objectAction);
+ Element.hide(objectJoin);
+ Element.show(objectSubject);
+
+
+ }
+
+ }
+ // Change the state of the individual collapse/expand
+
+ if (parentStyle == 'none') {
+ parentSymbol.innerHTML = collapse_symbol;
+ }
+
+ Element.show(objectParent);
+ Element.show(actionObjectParent);
+ Element.show(subject);
+ Element.hide(joinAll);
+
+
+
+ }
+
+
+
+
+// The same as expandsChilds but collapse the contents of the message
+
+function collapseChilds(parentID, childrenString){
+
+ //Get the parentID in a portable manner
+
+ var objectParent = getId('content'+parentID);
+ var actionObjectParent = getId('actions'+parentID);
+ var parentSymbol = getId('toggle'+parentID);
+ var subject = getId('subject'+parentID);
+ var joinAll = getId('join'+parentID);
+
+ var parentStyle = Element.getStyle(objectParent,'display');
+
+ //Only if the parentID message has any children
+
+ if (childrenString != null) {
+
+ var childArray = getChildsArray(childrenString);
+
+
+ // Make that the parent message and all his children
+ // take part on the efect
+
+
+ for (var i=0;i< childArray.length;i++){
+
+ var objectChild = getId('content'+childArray[i]);
+ var objectAction= getId('actions'+childArray[i]);
+ var objectSymbol= getId('toggle'+childArray[i]);
+ var objectSubject= getId('subject'+childArray[i]);
+ var objectJoin = getId('join'+childArray[i]);
+ var objectStyle = Element.getStyle(objectChild,'display');
+
+
+ // Change the state of the individual collapse/expand
+
+ if (objectStyle == 'block') {
+ objectSymbol.innerHTML = expand_symbol;
+ }
+
+ Element.hide(objectChild);
+ Element.hide(objectAction);
+ Element.hide(objectSubject);
+ Element.show(objectJoin);
+ Element.setStyle(objectJoin,{display:'inline-block'});
+ }
+
+ }
+ // Change the state of the individual collapse/expand
+
+ if (parentStyle == 'block') {
+ parentSymbol.innerHTML = expand_symbol;
+ }
+
+ Element.hide(objectParent);
+ Element.hide(actionObjectParent);
+ Element.hide(subject);
+ Element.show(joinAll);
+ Element.setStyle(joinAll,{display:'inline-block'});
+}
+
+/*
+ FUNCTION: dynamicExpand
+
+ PARAMETERS: the id of the element to be expanded or collapsed
+
+ USE CASE: for individual functionality for expand or collapse
+ messages
+*/
+
+
+ function dynamicExpand(targetID) {
+
+ var objectTargetID = getId('content'+targetID);
+ var objectAction= getId('actions'+targetID);
+ var symbolLink = getId('toggle'+targetID);
+ var objectSubject = getId('subject'+targetID);
+ var objectJoin = getId('join'+targetID);
+ var objectStyle = Element.getStyle(objectTargetID,'display');
+
+
+ if(!symbolLink || !objectTargetID) return;
+
+ // If the message is collapse we want that
+ // the symbol to be displayed is the expand one.
+
+ if (objectStyle == 'none') {
+
+ symbolLink.innerHTML = collapse_symbol;
+ Element.hide(objectJoin);
+ Element.show(objectTargetID);
+ Element.show(objectAction);
+ Element.show(objectSubject);
+
+
+ }
+ else {
+
+ symbolLink.innerHTML = expand_symbol;
+
+ Element.show(objectJoin);
+ Element.setStyle(objectJoin,{display:'inline-block'});
+ Element.hide(objectTargetID);
+ Element.hide(objectAction);
+ Element.hide(objectSubject);
+
+
+
+
+ }
+
+ }
+
+/*Show expanded only the direct children of the main message when the
+ page is loaded */
+
+ function showExpandedOnLoad( parentID, directChildrenString, allChildrenString) {
+
+ var directChildren = getChildsArray(directChildrenString);
+ var allChildren = getChildsArray(allChildrenString);
+
+ for (var i=0;i< directChildren.length;i++){
+ for (var j=0;j< allChildren.length;j++){
+ if (allChildren[j] == directChildren[i]){
+ allChildren[j]= undefined;
+ break;
+ }
+ continue;
+ }
+ }
+
+ for (var j=0;j< allChildren.length;j++) {
+ if(allChildren[j] != undefined){
+ collapseOnLoad(allChildren[j]);
+ loadContent(allChildren[j]);
+ }
+ }
+ }
+
+
+//------------------------------
+
+
+/* The same as expandsChilds but collapse the contents of the message*/
+
+function collapseOnLoad(parentID){
+
+ //Get the parentID in a portable manner
+
+ var actionObjectParent = getId('actions'+parentID);
+ var parentSymbol = getId('toggle'+parentID);
+ var subject = getId('subject'+parentID);
+ var joinAll = getId('join'+parentID);
+
+
+ // Change the state of the individual collapse/expand
+
+
+ parentSymbol.innerHTML = expand_symbol;
+
+ // Collapse the message contents
+
+ Element.hide(actionObjectParent);
+ Element.hide(subject);
+ Element.show(joinAll);
+ Element.setStyle(joinAll,{display:'inline-block'});
+
+}
+
+/*
+ Loads the content of a given message.
+ parameters: messageID (the ID of the message that the content is required)
+*/
+
+function loadContent(messageID) {
+
+ var containerID = getId('content'+ messageID);
+ var symbol = getId('toggle'+ messageID);
+ var url = 'load-message-content';
+ var par = 'message_id='+messageID;
+
+
+ Element.setStyle(containerID, {display:'none'});
+
+ // This is the function that preloads the message's contents
+ var ajax = new Ajax.Updater(containerID, url, {asynchronous:'true', method:'post', parameters: par});
+
+}
Index: dotlrn_packages/packages/forums/www/resources/message-expand.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/moneymouth.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/oneeye.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/print.css
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/resources/print.css (revision 0)
+++ dotlrn_packages/packages/forums/www/resources/print.css (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,28 @@
+/* make it white and pick a better print font */
+body {
+ background: white;
+ font-family: "Bitstream vera serif", Georgia,"Times new roman",Times,Serif;
+ font-size: 12pt;
+}
+/* suppress all the nav elements */
+#context-bar,
+#searchbox,
+#side,
+#cop-side,
+#site-header .action-list,
+#site-header .user-greeting,
+#cop-footer { display: none; }
+#content-body { margin-left: 2em; }
+#site-header .system-name {
+ float: none;
+ text-align: left;
+}
+#forum-thread .action-list { display: none }
+#forum-thread .details IMG { display: none }
+
+/* remove banding */
+#forum-thread div.even, #forum-thread div.odd {
+ background: white;
+ margin-bottom: 2em;
+ max-width: 50em;
+}
Index: dotlrn_packages/packages/forums/www/resources/reeply.png
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/reply.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/reply.png
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/sad.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/scream.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/services.png
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/smile.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/smile8.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/think.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/tongue.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/wink.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/resources/yell.gif
===================================================================
diff -u
Binary files differ
Index: dotlrn_packages/packages/forums/www/search.adp
===================================================================
diff -u
--- dotlrn_packages/packages/forums/www/search.adp (revision 0)
+++ dotlrn_packages/packages/forums/www/search.adp (revision 049b622549d53690f411632d2dc9926c3b35e187)
@@ -0,0 +1,6 @@
+