nan

Index: openacs-4/contrib/packages/forums/www/forum-view-statistic.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/Attic/forum-view-statistic.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/forum-view-statistic.adp 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,9 @@ + +#forums.Forums_hist_lt# @name;noquote@ +@context;noquote@ + + + + + + Index: openacs-4/contrib/packages/forums/www/forum-view-statistic.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/Attic/forum-view-statistic.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/forum-view-statistic.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,16 @@ +ad_page_contract { + + Forums History + + @author Natalia P�rez (nperper@it.uc3m.es) + @creation-date 2005-03-17 + +} { + forum_id:integer,notnull +} + +# Get user information +db_1row get_forum_name "select name from forums_forums where forum_id= :forum_id" +set context [list [_ forums.Forums_History]] + +ad_return_template Index: openacs-4/contrib/packages/forums/www/messages-get.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/Attic/messages-get.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/messages-get.adp 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,18 @@ + + + nan + + + + + +

@message.content;noquote@

+ + Index: openacs-4/contrib/packages/forums/www/messages-get.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/Attic/messages-get.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/messages-get.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -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: openacs-4/contrib/packages/forums/www/admin/forum-disable.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/forum-disable.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/forum-disable.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,20 @@ +ad_page_contract { + + Disable a Forum + + @author Ben Adida (ben@openforce.net) + @creation-date 2002-05-28 + @cvs-id $Id: forum-disable.tcl,v 1.1 2007/05/11 00:58:21 hamiltonc Exp $ + +} { + forum_id:integer,notnull + return_url:optional +} + +forum::disable -forum_id $forum_id + +if { [exists_and_not_null return_url] } { + ad_returnredirect $return_url +} else { + ad_returnredirect "." +} \ No newline at end of file Index: openacs-4/contrib/packages/forums/www/admin/forum-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/forum-edit.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/forum-edit.adp 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,14 @@ + +Edit Forum: @forum.name;noquote@ +@context;noquote@ +forum.name + + +#forums.This_forum_is# #forums.enabled#. #forums.You_may# #forums.disable_it#. + + +#forums.This_forum_is# #forums.disabled#. #forums.You_may# #forums.enable_it#. + +

+ + Index: openacs-4/contrib/packages/forums/www/admin/forum-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/forum-edit.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/forum-edit.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,25 @@ +ad_page_contract { + + Edit a Forum + + @author Ben Adida (ben@openforce.net) + @creation-date 2002-05-25 + @cvs-id $Id: forum-edit.tcl,v 1.1 2007/05/11 00:58:21 hamiltonc Exp $ + +} { + forum_id:integer,notnull + {return_url "."} +} + +# Select the info +set package_id [ad_conn package_id] +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 "./" + ad_script_abort +} + +set context [list [_ forums.Edit_forum]] Index: openacs-4/contrib/packages/forums/www/admin/forum-enable.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/forum-enable.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/forum-enable.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,20 @@ +ad_page_contract { + + Disable a Forum + + @author Ben Adida (ben@openforce.net) + @creation-date 2002-05-28 + @cvs-id $Id: forum-enable.tcl,v 1.1 2007/05/11 00:58:21 hamiltonc Exp $ + +} { + forum_id:integer,notnull + return_url:optional +} + +forum::enable -forum_id $forum_id + +if { [exists_and_not_null return_url] } { + ad_returnredirect $return_url +} else { + ad_returnredirect "." +} \ No newline at end of file Index: openacs-4/contrib/packages/forums/www/admin/forum-new.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/forum-new.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/forum-new.adp 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,6 @@ + +#forums.Create_New_Forum# +@context;noquote@ +forum.name + + Index: openacs-4/contrib/packages/forums/www/admin/forum-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/forum-new.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/forum-new.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,15 @@ +ad_page_contract { + + Create a Forum + + @author Ben Adida (ben@openforce.net) + @creation-date 2002-05-25 + @cvs-id $Id: forum-new.tcl,v 1.1 2007/05/11 00:58:21 hamiltonc Exp $ + +} -query { + {name ""} +} + +set context [list [_ forums.Create_New_Forum]] + +ad_return_template Index: openacs-4/contrib/packages/forums/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/index.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/index.adp 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,7 @@ + +#forums.lt_Forums_Administration# + + + + + Index: openacs-4/contrib/packages/forums/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/index.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/index.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,10 @@ +ad_page_contract { + + Forums Administration + + @author Ben Adida (ben@openforce.net) + @creation-date 2002-05-24 + @cvs-id $Id: index.tcl,v 1.1 2007/05/11 00:58:21 hamiltonc Exp $ + +} + Index: openacs-4/contrib/packages/forums/www/admin/permissions-user-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/permissions-user-add.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/permissions-user-add.adp 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,5 @@ + + @page_title@ + @context@ + + Index: openacs-4/contrib/packages/forums/www/admin/permissions-user-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/permissions-user-add.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/permissions-user-add.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,20 @@ +ad_page_contract { + Redirect page for adding users to the permissions list. + + @author Lars Pind (lars@collaboraid.biz) + @creation-date 2003-06-13 + @cvs-id $Id: permissions-user-add.tcl,v 1.1 2007/05/11 00:58:21 hamiltonc Exp $ +} { + object_id:integer +} + +if { $object_id == [ad_conn package_id] } { + set what "Package" +} else { + forum::get -forum_id $object_id -array forum + set what "$forum(name)" +} + +set page_title "Add User on $what" + +set context [list [list [export_vars -base permissions { object_id }] "$what Permissions"] $page_title] Index: openacs-4/contrib/packages/forums/www/admin/permissions.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/permissions.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/permissions.adp 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,5 @@ + + @page_title@ + @context@ + + Index: openacs-4/contrib/packages/forums/www/admin/permissions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/permissions.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/permissions.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,19 @@ +ad_page_contract { + Permissions for the subsite itself. + + @author Lars Pind (lars@collaboraid.biz) + @creation-date 2003-06-13 + @cvs-id $Id: permissions.tcl,v 1.1 2007/05/11 00:58:21 hamiltonc Exp $ +} { + object_id:integer +} + +if { $object_id == [ad_conn package_id] } { + set page_title "Permissions" +} else { + forum::get -forum_id $object_id -array forum + set page_title "$forum(name) Permissions" +} + +set context [list $page_title] + Index: openacs-4/contrib/packages/forums/www/admin/subscribe-others-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/subscribe-others-2.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/subscribe-others-2.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,138 @@ +ad_page_contract { + + Subscribe a list of email addresses to a forum (process form) + + @author Jade Rubick (jade@rubick.com) + @creation-date 2005-04-08 + @cvs-id $Id: subscribe-others-2.tcl,v 1.1 2007/05/11 00:58:21 hamiltonc Exp $ + +} { + forum_id:integer,notnull + type_id:integer,notnull + {lines ""} + {return_url "."} + interval:notnull + delivery_method:notnull + emails:notnull + {create_new_users_p "f"} +} + +# Select the info +set package_id [ad_conn package_id] +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 pretty_name $forum(name) + +# Check that the object can be subcribed to +notification::security::require_notify_object -object_id $forum_id + +ns_write "Subscribing users" + +set lines [join $emails "\n"] + + + +db_transaction { + + 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 "

---$email---" + + if {![util_email_valid_p $email]} { + set user_id "" + 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 "

Complete

" +ns_write "return" \ No newline at end of file Index: openacs-4/contrib/packages/forums/www/admin/subscribe-others.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/subscribe-others.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/subscribe-others.adp 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,31 @@ + +Subscribe others to forum: @forum.name;noquote@ +@context;noquote@ + +

+ +#forums.Enter_a_list_of_email# + +

+user@example.com, Jane, Austin
+user2@example.com, Emily, Dickinson
+user3@example.com
+

+ +
+#forums.If_checked_create_users# + + +
+#notifications.Frequency#: @interval_html;noquote@ + +
+#notifications.Delivery_Method#: @delivery_html;noquote@ + + +@hidden_vars;noquote@ + +
+ + +

Index: openacs-4/contrib/packages/forums/www/admin/subscribe-others.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/admin/Attic/subscribe-others.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/admin/subscribe-others.tcl 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,52 @@ +ad_page_contract { + + Subscribe a list of email addresses to a forum + + @author Jade Rubick (jade@rubick.com) + @creation-date 2005-04-08 + @cvs-id $Id: subscribe-others.tcl,v 1.1 2007/05/11 00:58:21 hamiltonc Exp $ + +} { + forum_id:integer,notnull + {return_url "."} +} + +# Select the info +set package_id [ad_conn package_id] +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] + +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: openacs-4/contrib/packages/forums/www/doc/emoticons.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/doc/Attic/emoticons.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/doc/emoticons.adp 11 May 2007 00:58:21 -0000 1.1 @@ -0,0 +1,41 @@ + + +Currently the following emoticons (smileys) are available: + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

:-)
;-)
:-D
8-)
:-(
;-(
:-O
:-/

+ +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: openacs-4/contrib/packages/forums/www/moderate/forum.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/forum.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/forum.adp 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,7 @@ + +#forums.Manage_Forum# @forum.name;noquote@ +#forums.Manage# + +

#forums.Pending_Threads#

+ + Index: openacs-4/contrib/packages/forums/www/moderate/forum.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/forum.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/forum.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,19 @@ +ad_page_contract { + + Moderate a Forum + + @author Ben Adida (ben@openforce.net) + @creation-date 2002-05-24 + @cvs-id $Id: forum.tcl,v 1.1 2007/05/11 00:58:22 hamiltonc Exp $ + +} { + forum_id:integer,notnull +} + +# Check that the user can moderate the forum +forum::security::require_moderate_forum -forum_id $forum_id + +# Get forum data +forum::get -forum_id $forum_id -array forum + +ad_return_template Index: openacs-4/contrib/packages/forums/www/moderate/message-approve.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/message-approve.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/message-approve.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,23 @@ +ad_page_contract { + + Approve a Message + + @author Ben Adida (ben@openforce.net) + @creation-date 2002-05-24 + @cvs-id $Id: message-approve.tcl,v 1.1 2007/05/11 00:58:22 hamiltonc Exp $ + +} { + message_id:integer,notnull + {return_url "../message-view"} +} + +# Check that the user can moderate the forum +forum::security::require_moderate_message -message_id $message_id + +# Approve the message +forum::message::approve -message_id $message_id + +ad_returnredirect "$return_url?message_id=$message_id" + + + Index: openacs-4/contrib/packages/forums/www/moderate/message-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/message-delete.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/message-delete.adp 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,18 @@ + + #forums.Confirm_Delete# @message.subject;noquote@ + #forums.delete# + + + + + + + Index: openacs-4/contrib/packages/forums/www/moderate/message-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/message-delete.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/message-delete.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,21 @@ +ad_page_contract { + + Delete a Message + + @author Ben Adida (ben@openforce.net) + @creation-date 2002-05-24 + @cvs-id $Id: message-delete.tcl,v 1.1 2007/05/11 00:58:22 hamiltonc Exp $ + +} { + message_id:integer,notnull + {return_url "../message-view"} + {confirm_p 0} +} + +# 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 + +ad_return_template Index: openacs-4/contrib/packages/forums/www/moderate/message-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/message-edit.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/message-edit.adp 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,5 @@ + +#forums.Edit_Message# @message.subject;noquote@ +#forums.Edit# + + Index: openacs-4/contrib/packages/forums/www/moderate/message-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/message-edit.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/message-edit.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,17 @@ +ad_page_contract { + + Form to edit a message + + @author Ben Adida (ben@openforce.net) + @creation-date 2002-05-25 + @cvs-id $Id: message-edit.tcl,v 1.1 2007/05/11 00:58:22 hamiltonc Exp $ + +} { + message_id:integer,notnull + {return_url "../message-view"} +} + +forum::message::get -message_id $message_id -array message +forum::get -forum_id $message(forum_id) -array forum + +ad_return_template Index: openacs-4/contrib/packages/forums/www/moderate/message-move.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/message-move.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/message-move.adp 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,5 @@ + +#forums.Confirm_Move_to# @message.subject;noquote@ +#forums.Move_to# + + Index: openacs-4/contrib/packages/forums/www/moderate/message-move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/message-move.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/message-move.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,20 @@ +ad_page_contract { + + Move a Message to other forum + + @author Natalia P�rez (nperper@it.uc3m.es) + @creation-date 2005-03-14 + +} { + message_id:integer,notnull + {return_url "../message-view"} + {confirm_p 0} +} + +# 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 + +ad_return_template Index: openacs-4/contrib/packages/forums/www/moderate/message-reject.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/message-reject.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/message-reject.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,23 @@ +ad_page_contract { + + Reject a Message + + @author Ben Adida (ben@openforce.net) + @creation-date 2002-05-24 + @cvs-id $Id: message-reject.tcl,v 1.1 2007/05/11 00:58:22 hamiltonc Exp $ + +} { + message_id:integer,notnull + {return_url "../message-view"} +} + +# Check that the user can moderate the forum +forum::security::require_moderate_message -message_id $message_id + +# Reject the message +forum::message::reject -message_id $message_id + +ad_returnredirect "$return_url?message_id=$message_id" + + + Index: openacs-4/contrib/packages/forums/www/moderate/move-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-oracle.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-oracle.xql 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,45 @@ + + + + oracle8.1.6 + + + + + update forums_messages + set forum_id = :forum_id, + tree_sortkey = tree.increment_key(:max_tree_sortkey) + where message_id = $message(message_id) + + + + + + + select message_id, substr(tree_sortkey, 7, length(tree_sortkey)) as child_tree_sortkey + from forums_messages + where forum_id = $message(forum_id) and tree_sortkey between tree.left('$message(tree_sortkey)') and tree.right ('$message(tree_sortkey)') + order by tree_sortkey desc + + + + + + + update forums_forums + set thread_count = :thread_count + 1, approved_thread_count = :approved_thread_count + 1, max_child_sortkey = tree.increment_key(max_child_sortkey), last_post = (select max(last_child_post) + from forums_messages + where forum_id = :forum_id) + where forum_id = :forum_id + + + + + + update forums_messages + set forum_id = :forum_id, tree_sortkey = '000000' + where message_id = $message(message_id) + + + + Index: openacs-4/contrib/packages/forums/www/moderate/move-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-postgresql.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-postgresql.xql 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,44 @@ + + + + postgresql7.2 + + + + + update forums_messages + set forum_id = :forum_id, + tree_sortkey = tree_increment_key(:max_tree_sortkey) + where message_id = $message(message_id) + + + + + + + select message_id, substring(tree_sortkey, 9, length(tree_sortkey)) as child_tree_sortkey + from forums_messages + where forum_id = $message(forum_id) and tree_sortkey between tree_left('$message(tree_sortkey)') and tree_right ('$message(tree_sortkey)') order by tree_sortkey desc + + + + + + + update forums_forums + set thread_count = :thread_count + 1, approved_thread_count = :approved_thread_count + 1, max_child_sortkey = tree_increment_key(max_child_sortkey), last_post = (select max(last_child_post) + from forums_messages + where forum_id = :forum_id) + where forum_id = :forum_id + + + + + + update forums_messages + set forum_id = :forum_id, tree_sortkey = '00000000' + where message_id = $message(message_id) + + + + Index: openacs-4/contrib/packages/forums/www/moderate/move-thread-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-thread-oracle.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-thread-oracle.xql 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,55 @@ + + + + oracle8.1.6 + + + + update forums_messages + set reply_count = reply_count + 1, approved_reply_count = approved_reply_count + 1, max_child_sortkey = tree.increment_key(max_child_sortkey) + where message_id = :message_id + + + + + + + select message_id as msge_id, substr(tree_sortkey, 13, length(tree_sortkey)) as child_tree_sortkey + from forums_messages + where forum_id = :forum_id and tree_sortkey between tree.left('$message(tree_sortkey)') and tree.right('$message(tree_sortkey)') + order by tree_sortkey desc + + + + + + + select substr(tree_sortkey, 13, length(tree_sortkey)) as final_tree_sortkey, substr(tree_sortkey, 0, 6) as initial_tree_sortkey + from forums_messages + where message_id = $message(message_id) + + + + + + update forums_messages + set last_child_post = (select max(last_child_post) + from forums_messages + where forum_id = :forum_id and tree_sortkey between tree.left((select tree_sortkey from forums_messages where message_id = $father_message_id)) and tree.right((select tree_sortkey from forums_messages where message_id = $father_message_id)) + ) + where message_id = $father_message_id + + + + + + update forums_messages + set last_child_post = (select max(last_child_post) + from forums_messages + where forum_id = :forum_id and tree_sortkey between tree.left((select tree_sortkey from forums_messages where message_id = :message_id)) and tree.right((select tree_sortkey from forums_messages where message_id = :message_id)) + ) + where message_id = :message_id + + + + Index: openacs-4/contrib/packages/forums/www/moderate/move-thread-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-thread-postgresql.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-thread-postgresql.xql 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,55 @@ + + + + postgresql7.2 + + + + update forums_messages + set reply_count = reply_count + 1, approved_reply_count = approved_reply_count + 1, max_child_sortkey = tree_increment_key(max_child_sortkey) + where message_id = :message_id + + + + + + + select message_id as msge_id, substring(tree_sortkey, 17, length(tree_sortkey)) as child_tree_sortkey + from forums_messages + where forum_id = :forum_id and tree_sortkey between tree_left('$message(tree_sortkey)') and tree_right('$message(tree_sortkey)') + order by tree_sortkey desc + + + + + + + select substring(tree_sortkey, 17, length(tree_sortkey)) as final_tree_sortkey, substring(tree_sortkey, 0, 9) as initial_tree_sortkey + from forums_messages + where message_id = $message(message_id) + + + + + + update forums_messages + set last_child_post = (select max(last_child_post) + from forums_messages + where forum_id = :forum_id and tree_sortkey between tree_left((select tree_sortkey from forums_messages where message_id = $father_message_id)) and tree_right((select tree_sortkey from forums_messages where message_id = $father_message_id)) + ) + where message_id = $father_message_id + + + + + + update forums_messages + set last_child_post = (select max(last_child_post) + from forums_messages + where forum_id = :forum_id and tree_sortkey between tree_left((select tree_sortkey from forums_messages where message_id = :message_id)) and tree_right((select tree_sortkey from forums_messages where message_id = :message_id)) + ) + where message_id = :message_id + + + + Index: openacs-4/contrib/packages/forums/www/moderate/move-thread-thread-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-thread-thread-oracle.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-thread-thread-oracle.xql 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,35 @@ + + + + oracle8.1.6 + + + + update forums_messages + set reply_count = reply_count + 1, approved_reply_count = approved_reply_count + 1, max_child_sortkey = tree.increment_key(max_child_sortkey) + where message_id = :message_id + + + + + + + select message_id as msge_id, substr(tree_sortkey, 7, length(tree_sortkey)) as child_tree_sortkey + from forums_messages + where forum_id = $message(forum_id) and tree_sortkey between tree.left('$message(tree_sortkey)') and tree.right('$message(tree_sortkey)') + order by tree_sortkey desc + + + + + + update forums_messages + set last_child_post = (select max(last_child_post) + from forums_messages + where forum_id = :forum_id and tree_sortkey between tree.left((select tree_sortkey from forums_messages where message_id = :message_id)) and tree.right((select tree_sortkey from forums_messages where message_id = :message_id))) + where message_id = :message_id + + + + + Index: openacs-4/contrib/packages/forums/www/moderate/move-thread-thread-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-thread-thread-postgresql.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-thread-thread-postgresql.xql 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,33 @@ + + + + postgresql7.2 + + + + update forums_messages + set reply_count = reply_count + 1, approved_reply_count = approved_reply_count + 1, max_child_sortkey = tree_increment_key(max_child_sortkey) + where message_id = :message_id + + + + + + + select message_id as msge_id, substring(tree_sortkey, 9, length(tree_sortkey)) as child_tree_sortkey + from forums_messages + where forum_id = $message(forum_id) and tree_sortkey between tree_left('$message(tree_sortkey)') and tree_right('$message(tree_sortkey)') order by tree_sortkey desc + + + + + + update forums_messages + set last_child_post = (select max(last_child_post) + from forums_messages + where forum_id = :forum_id and tree_sortkey between tree_left((select tree_sortkey from forums_messages where message_id = :message_id)) and tree_right((select tree_sortkey from forums_messages where message_id = :message_id))) + where message_id = :message_id + + + + Index: openacs-4/contrib/packages/forums/www/moderate/move-thread-thread.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-thread-thread.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-thread-thread.adp 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,18 @@ + + + + #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: openacs-4/contrib/packages/forums/www/moderate/move-thread-thread.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-thread-thread.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-thread-thread.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -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: openacs-4/contrib/packages/forums/www/moderate/move-thread-thread.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-thread-thread.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-thread-thread.xql 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,79 @@ + + + + + + select ff.name, fm.subject, fm.forum_id + from forums_forums ff, forums_messages fm + where fm.message_id =:message_id and ff.forum_id=fm.forum_id + + + + + + + select tree_sortkey as father_tree_sortkey, max_child_sortkey as father_max_child_sortkey + from forums_messages + where message_id= :message_id + + + + + + + update forums_messages + set forum_id = :forum_id, tree_sortkey = :join_tree_sortkey + where message_id = :msge_id + + + + + + + update forums_messages + set reply_count = reply_count + 1, approved_reply_count = approved_reply_count + 1 + where message_id = :message_id + + + + + + + update forums_messages + set parent_id = :message_id, tree_sortkey = :join_tree_sortkey, forum_id = :forum_id + where message_id = $message(message_id) + + + + + + + select ff.max_child_sortkey, ff.thread_count, ff.approved_thread_count + from forums_forums ff + where ff.forum_id = $message(forum_id) + + + + + + + update forums_forums + set thread_count = :thread_count - 1, approved_thread_count = :approved_thread_count - 1, last_post = (select max(fm.last_child_post) + from forums_messages fm + where fm.forum_id = $message(forum_id)) + where forum_id = $message(forum_id) + + + + + + + update forums_forums + set last_post = (select max(last_child_post) + from forums_messages + where forum_id = :forum_id) + where forum_id = :forum_id + + + + Index: openacs-4/contrib/packages/forums/www/moderate/move-thread.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-thread.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-thread.adp 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,17 @@ + + + + #forums.Move_message_to_thread# @subject@ +
+ #forums.Are_you_sure_you_want_to_move_this_message_and_obviously_all_of_its_descendents_lt# +
+ +
+ +
+ +

+ + + + Index: openacs-4/contrib/packages/forums/www/moderate/move-thread.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-thread.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-thread.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,96 @@ +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 +} Index: openacs-4/contrib/packages/forums/www/moderate/move-thread.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move-thread.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move-thread.xql 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,65 @@ + + + + + + select subject, forum_id + from forums_messages + where message_id=:selected_message + + + + + + + select tree_sortkey as father_tree_sortkey, max_child_sortkey as father_max_child_sortkey + from forums_messages + where message_id= :message_id + + + + + + select message_id as father_message_id + from forums_messages + where forum_id = $message(forum_id) and tree_sortkey = '$initial_tree_sortkey' + + + + + + + update forums_messages + set reply_count = reply_count - 1, approved_reply_count = approved_reply_count - 1 + where message_id = $father_message_id + + + + + + + update forums_messages + set tree_sortkey = :join_tree_sortkey + where message_id = :msge_id + + + + + + update forums_messages + set reply_count = reply_count + 1, approved_reply_count = approved_reply_count + 1 + where message_id = :message_id + + + + + + + update forums_messages + set parent_id = :message_id, tree_sortkey = :join_tree_sortkey + where message_id = $message(message_id) + + + + + \ No newline at end of file Index: openacs-4/contrib/packages/forums/www/moderate/move.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move.adp 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,17 @@ + + + + #forums.Move_thread_to_forum# @name@ +

+ #forums.Are_you_sure_you_want_to_move_this_thread_and_obviously_all_of_its_descendents_lt# +

+ +

+ + + + Index: openacs-4/contrib/packages/forums/www/moderate/move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -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: openacs-4/contrib/packages/forums/www/moderate/move.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/move.xql,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/move.xql 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,64 @@ + + + + + + select count(forum_id) as num_post + from forums_messages + where forum_id = :forum_id + + + + + + + select tree_sortkey + from forums_messages + where forum_id = :forum_id and parent_id is null order by tree_sortkey asc + + + + + + + select tree_sortkey as message_tree_sortkey + from forums_messages + where message_id = $message(message_id) + + + + + + update forums_messages + set forum_id = :forum_id, tree_sortkey = :join_tree_sortkey + where message_id = :message_id + + + + + + select ff.max_child_sortkey, ff.thread_count, ff.approved_thread_count + from forums_forums ff + where ff.forum_id = :forum_id + + + + + + select ff.max_child_sortkey, ff.thread_count, ff.approved_thread_count + from forums_forums ff + where ff.forum_id = $message(forum_id) + + + + + + update forums_forums + set thread_count = :thread_count - 1, approved_thread_count = :approved_thread_count -1, last_post = (select max(fm.last_child_post) + from forums_messages fm + where fm.forum_id = $message(forum_id)) + where forum_id = $message(forum_id) + + + + Index: openacs-4/contrib/packages/forums/www/moderate/thread-move-thread.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/thread-move-thread.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/thread-move-thread.adp 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,5 @@ + +#forums.Confirm_Move_to# @message.subject;noquote@ +#forums.Move_to# + + Index: openacs-4/contrib/packages/forums/www/moderate/thread-move-thread.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/thread-move-thread.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/thread-move-thread.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,20 @@ +ad_page_contract { + + Move a thread to other thread + + @author Natalia P�rez (nperper@it.uc3m.es) + @creation-date 2005-03-14 + +} { + message_id:integer,notnull + {return_url "../message-view"} + {confirm_p 0} +} + +# 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 + +ad_return_template Index: openacs-4/contrib/packages/forums/www/moderate/thread-move.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/thread-move.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/thread-move.adp 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,5 @@ + +#forums.Confirm_Move_to# @message.subject;noquote@ +#forums.Move_to# + + Index: openacs-4/contrib/packages/forums/www/moderate/thread-move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/moderate/Attic/thread-move.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/moderate/thread-move.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,20 @@ +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 + {return_url "../message-view"} + {confirm_p 0} +} + +# 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 + +ad_return_template Index: openacs-4/contrib/packages/forums/www/resources/Collapse16.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/Collapse16.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/CollapseAll16.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/CollapseAll16.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/Expand16.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/Expand16.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/ExpandAll16.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/ExpandAll16.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/angel.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/angel.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/bigsmile.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/bigsmile.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/burp.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/burp.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/button_blue_collapsed.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/button_blue_collapsed.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/button_blue_expand.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/button_blue_expand.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/button_blue_spacer.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/button_blue_spacer.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/collapse.css =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/collapse.css,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/resources/collapse.css 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,6 @@ +#forum-thread .content { + display: none; +} +#forum-thread .action-list { + display: none; +} Index: openacs-4/contrib/packages/forums/www/resources/crazy4.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/crazy4.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/crossedlips.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/crossedlips.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/cry.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/cry.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/dyn_wait.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/dyn_wait.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/dynamic-comments.js =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/dynamic-comments.js,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/resources/dynamic-comments.js 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,259 @@ +// JavaScript used to manage dynamic-mode comments +// (c) 2002 Joe Groff. Use this code under whatever terms you wish, as long +// as you give me some credit. + +var nIframes = 0; + +// Block data which should be set from Scoop +var collapse_symbol; +var expand_symbol; +var loading_symbol; +var loading_message; +var rootdir; +var sid; + +// Internet Explorer on Windows prior to 5.5 doesn't support Array.push() +if(!Array.prototype.push) { + Array.prototype.push = function() { + var l = this.length; + for(var i = 0; i < arguments.length; ++i,++l) + this[l] = arguments[i]; + } +} + +// Arrays of cid indices for comment replies and new comments +var replies = new Array(); +var newcomments = new Array(); + +// Get an element by ID in a portable manner +function getid(id) { + if(document.getElementById) + return document.getElementById(id); + else if(document.all) + return document.all(id); + return false; +} + +// Get the document object inside an iframe in a portable manner +function getIframeDocument(id) { + if(document.frames) + return document.frames[id].document; + var ifrm = getid(id); + if(ifrm.contentDocument) + return ifrm.contentDocument; + else if(ifrm.contentWindow) + return ifrm.contentWindow.document; + else if(ifrm.document) + return ifrm.document; +} + +// Set the state of a comment. +// n is the cid of the comment to expand. +// move, if true, will cause the page to jump to that comment's header before +// changing its state. +// state, if set, will change the comment to that specific state (0 = collapsed +// 1 = expanded). If not set or set to null, the state will be toggled. +// rate, if set, will cause the comment to be given that specific rating. +function toggle(n,move,state,rate) { + + var ifrmdoc = getIframeDocument('dynamic'); + var link = getid('toggle'+n); + var content = getid('content'+n); + if(!link || !content || !ifrmdoc) + return; + + // Initialise the link's expandStatus if it hasn't yet been set +// if(link.className == '') { +// if (content.className == 'dynexpanded') { +// link.className = 'dynexpanded'; +// } else { +// link.className = 'dyncollapsed'; +// } +// } + + if(content.className == 'dynexpanded') { + link.expandStatus = 1; + } else { + link.expandStatus = 0; + } + + var s; + if(state != null) + s = state; + + else if(content.className == 'dyncollapsed') + s = 1; // set to expand + else + s = 0; // set to collapse + + // Immediately return if we aren't changing state at all + if((s == link.expandStatus) && (rate == null)) + return; + + if(move) window.location.hash = 'toggle'+n; + + if(rate == null + && (((s == 1) && content.expandedContent) + || ((s == 0) && content.collapsedContent))) { + // If we've already grabbed the desired state for this comment, + // set it right here + setSavedState(n, s); + } + else { + // Otherwise grab it from the server using the iframe + setLoading(n); + var src = rootdir+"?cid="+n+"&sid="+sid+"&dynamicmode="+s; + if(rate != null) + src += ";rate=Rate;rating_"+n+"="+rate; + ifrmdoc.location.replace(src); +// // The content will be set by the iframe's onLoad property + } +} + +// Set the state of all the comments listed in an array. +function toggleList(a,state) { + var fetch_cids = new Array(); // cids we need to ask the server for + var contentprop = (state? 'expandedContent' : 'collapsedContent'); + var content; + var ifrmdoc = getIframeDocument('dynamic'); + + if(!a.length) return; + for(var i = 0; i < a.length; ++i) { + content = getid('content'+a[i]); + if(!content) continue; + // Skip this one if it's already in the proper state + if((state && (content.className == 'dynexpanded')) + || (!state && (content.className == 'dyncollapsed'))) + continue; + // Check if we already have the desired content for this cid + if(content[contentprop]) { + setSavedState(a[i], state); + } else { + fetch_cids.push(a[i]); + setLoading(a[i]); + } + } + // Grab the remaining comments from the server + if(fetch_cids.length > 0) + ifrmdoc.location.replace(rootdir+"?cid="+fetch_cids.join('&cid=')+"&sid="+sid+"&dynamicmode="+state); +} + +// Function to set comment content from already-saved data +function setSavedState(n,s) { + var content = getid('content'+n); + // Fill in the comment + if(content.innerHTML) { + if((s == 1) && content.expandedContent) + content.innerHTML = content.expandedContent; + else if((s == 0) && content.collapsedContent) + content.innerHTML = content.collapsedContent; + } + else if(content.appendChild) { + var nodes; + if((s == 1) && content.expandedContent) + nodes = content.expandedContent; + else if((s == 0) && content.collapsedContent) + nodes = content.collapsedContent; + if(nodes) { + while(content.hasChildNodes()) + content.removeChild(content.firstChild); + for(var i = 0; i < nodes.length; ++i) + content.appendChild(nodes[i]); + } + } + // Set the link state + setState(n,s); +} + +// Set a link into waiting state +function setLoading(n) { + var link = getid('toggle'+n); + var content = getid('content'+n); + if(!link || !content) return; + + if(content.innerHTML) { + content.innerHTML = loading_message; + link.innerHTML = loading_symbol; + } + else if(content.appendChild) { + while(content.hasChildNodes()) + content.removeChild(content.firstChild); + content.appendChild(document.createTextNode(loading_message)); + + while(link.hasChildNodes()) + link.removeChild(link.firstChild); + link.appendChild(document.createTextNode(loading_symbol)); + } +} + +// Set a link into collapsed or expanded state +function setState(n,s) { + + var link = getid('toggle'+n); + var content = getid('content'+n); + if(!link || !content) return; + + var symbol; + if (s) symbol = collapse_symbol; + else symbol = expand_symbol; + + if(link.innerHTML) { + link.innerHTML = symbol; + } else if(link.appendChild) { + while(link.hasChildNodes()) + link.removeChild(link.firstChild); + link.appendChild(document.createTextNode(symbol)); + } + + link.expandStatus = s; + + content.className = (s? 'dynexpanded' : 'dyncollapsed'); + // link.className = (s? 'dynexpanded' : 'dyncollapsed'); +} + +// Called from the iframe's onload event to ship the content into the main +// page +function copyContent(no,s) { + + if(window == top || !parent.setState) return true; + + var content; + var body = document.body; + var divs; + var n; + + // Get the set of comments out of the body + if(body.children) + divs = body.children.tags('DIV'); + else if(body.childNodes) { + divs = new Array(); + for(var i = 0; i < body.childNodes.length; ++i) + if(body.childNodes[i].tagName == 'DIV') + divs.push(body.childNodes[i]); + } + + for (var i = 0; i < divs.length; ++i) { + n = divs[i].getAttribute('id'); + content = parent.getid('content'+n); + + if(!content) continue; + + if (content.innerHTML) { + content.innerHTML = divs[i].innerHTML; + if(s == 1) content.expandedContent = content.innerHTML; + else if(s == 0) content.collapsedContent = content.innerHTML; + } + else if(content.appendChild) { + while(content.hasChildNodes()) + content.removeChild(content.firstChild); + for(var i = 0; i < divs[i].childNodes.length; ++i) { + var nod = divs[i].childNodes[i].cloneNode(true); + content.appendChild(nod); + } + if(s == 1) content.expandedContent = content.childNodes; + else if(s == 0) content.collapsedContent = content.childNodes; + } + parent.setState(n,s); + } +} + Index: openacs-4/contrib/packages/forums/www/resources/embarrassed.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/embarrassed.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/expand.css =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/expand.css,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/resources/expand.css 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,6 @@ +#forum-thread .content { + display: block; +} +#forum-thread .action-list { + display: inline; +} \ No newline at end of file Index: openacs-4/contrib/packages/forums/www/resources/farted.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/farted.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/flat-collapse.css =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/flat-collapse.css,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/resources/flat-collapse.css 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,37 @@ +#forum-thread .level1 { + margin-left: 0em; +} +#forum-thread .level2 { + margin-left: 0em; +} +#forum-thread .level3 { + margin-left: 0em; +} +#forum-thread .level4 { + margin-left: 0em; +} +#forum-thread .level5 { + margin-left: 0em; +} +#forum-thread .level6 { + margin-left: 0em; +} +#forum-thread .level7 { + margin-left: 0em; +} +#forum-thread .level8 { + margin-left: 0em; +} +#forum-thread .level9 { + margin-left: 0em; +} +#forum-thread .level10 { + margin-left: 0em; +} + +#forum-thread .content { + display: none; +} +#forum-thread .action-list { + display: none; +} Index: openacs-4/contrib/packages/forums/www/resources/flat.css =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/flat.css,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/resources/flat.css 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,30 @@ +#forum-thread .level1 { + margin-left: 0em; +} +#forum-thread .level2 { + margin-left: 0em; +} +#forum-thread .level3 { + margin-left: 0em; +} +#forum-thread .level4 { + margin-left: 0em; +} +#forum-thread .level5 { + margin-left: 0em; +} +#forum-thread .level6 { + margin-left: 0em; +} +#forum-thread .level7 { + margin-left: 0em; +} +#forum-thread .level8 { + margin-left: 0em; +} +#forum-thread .level9 { + margin-left: 0em; +} +#forum-thread .level10 { + margin-left: 0em; +} Index: openacs-4/contrib/packages/forums/www/resources/forums.css =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/forums.css,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/resources/forums.css 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,507 @@ +/* +#forum-thread { + max-width: 95%; + text-align: left; + margin-bottom: 5px; + margin-left: 1em; + font-size: small; +} + +#forum-thread .action-list { + float: right; + text-align: right; + margin-top: 8px; + margin-right: 8px; +} + +#forum-thread .details { + margin-top: 3px; +} + +#forum-thread .content { + text-align: left; + padding: 0.5em; + margin-bottom: 1em; +} + +#forum-thread .dynexpanded { + padding-top: 3px; + padding-bottom: 3px; + border: 0px; +} + +#forum-thread .dyncollapsed { + padding: 0px; +} + +#forum-thread .subject { + text-align: left; + background: #f0f0f0; + padding: 0.5em; +} + +#forum-thread .subject a.title { + text-decoration:none; +} + +#forum-thread .subject .viewed0 { +} + +#forum-thread .subject .viewed1 { + font-weight: normal; +} + +#forum-thread .subject .response { + color: black; +} +#forum-thread .subject .reference { + color: green; +} + +#forum-thread .attribution { + padding-top: 0.5em; + color: #aaaaaa; +} + +#forum-thread .attribution a { + font-weight: normal; +} + +#forum-thread .odd { +} + +#forum-thread .even { + background: #eeeeee; +} + +#forum-thread .level0 { + margin-left: 0em; +} +#forum-thread .level1 { + margin-left: 1em; +} +#forum-thread .level2 { + margin-left: 2em; +} +#forum-thread .level3 { + margin-left: 3em; +} +#forum-thread .level4 { + margin-left: 4em; +} +#forum-thread .level5 { + margin-left: 5em; +} +#forum-thread .level6 { + margin-left: 6em; +} +#forum-thread .level7 { + margin-left: 7em; +} +#forum-thread .level8 { + margin-left: 8em; +} +#forum-thread .level9 { + margin-left: 9em; +} +#forum-thread .level10 { + margin-left: 10em; +} + +#forum-thread .left { + float: left; +} + +#forum-thread .right { + float: right; +} + +#forum-thread .details img { + border-style: none; +} + +#forum-thread .action-list li { + list-style: none; + float:left; + margin-right: 2px; + height: 10px; +} + +#forum-thread .action-list li a { + border: 1px solid #4b83a8; + background: #e2e2e2; + padding: 3px; +} + +#forum-thread .action-list li a:hover { + background: #f2f1cb; +} +*/ + +#forum-thread { + max-width: 95%; + text-align: left; + margin-bottom: 5px; + margin-left: 1em; +} + +#forum-thread .action-list { + float: right; + text-align: right; + margin-top: 8px; + margin-right: 8px; +} + +#forum-thread .details { + margin-top: 3px; +} + +#forum-thread .content { + text-align: left; + padding: 0.5em; + margin-bottom: 1em; +} + +#forum-thread .dynexpanded { + padding-top: 3px; + padding-bottom: 3px; + border: 0px; +} + +#forum-thread .dyncollapsed { + padding: 0px; +} + +#forum-thread .subject { + text-align: left; + background: #f0f0f0; + padding: 0.5em; +} + +#forum-thread .subject a.title { +/* color: blue; + font-weight: bold; */ + text-decoration:none; +} + +#forum-thread .subject .viewed0 { +} + +#forum-thread .subject .viewed1 { + font-weight: normal; +} + +#forum-thread .subject .response { + color: black; +} +#forum-thread .subject .reference { + color: green; +} + +#forum-thread .attribution { + padding-top: 0.5em; + color: #aaaaaa; +} + +#forum-thread .attribution a { + font-weight: normal; +} + +#forum-thread .odd { +} + +#forum-thread .even { + background: #eeeeee; +} + +#forum-thread .level0 { + margin-left: 0em; +} +#forum-thread .level1 { + margin-left: 1em; +} +#forum-thread .level2 { + margin-left: 2em; +} +#forum-thread .level3 { + margin-left: 3em; +} +#forum-thread .level4 { + margin-left: 4em; +} +#forum-thread .level5 { + margin-left: 5em; +} +#forum-thread .level6 { + margin-left: 6em; +} +#forum-thread .level7 { + margin-left: 7em; +} +#forum-thread .level8 { + margin-left: 8em; +} +#forum-thread .level9 { + margin-left: 9em; +} +#forum-thread .level10 { + margin-left: 10em; +} +/* +.left { + float: left; +} + +.right { + float: right; +} +*/ +.dynexpanded { + padding-top: 3px; + padding-bottom: 3px; + border-top: 1px solid black; + margin-top: 3px; +} + +.dyncollapsed { + display: none; +} + +.level0 { + margin-left: 0em; +} +.level1 { + margin-left: 1em; +} +.level2 { + margin-left: 2em; +} +.level3 { + margin-left: 3em; +} +.level4 { + margin-left: 4em; +} +.level5 { + margin-left: 5em; +} +.level6 { + margin-left: 6em; +} +.level7 { + margin-left: 7em; +} +.level8 { + margin-left: 8em; +} +.level9 { + margin-left: 9em; +} +.level10 { + margin-left: 10em; +} + +.forumbuttons { + padding-top: 7px; +} + + +#forums { + font-size:11px; + color: #354785; + font-style: Verdana; + font-weight: bold; + margin-bottom: 20px; +} + +#forums .header { + font-size: 14px; + color: #354785; + font-style: Verdana; + font-weight: bold; + margin-bottom: 10px; +} + +#forums form { + font-size:11px; + color: #354785; + font-style: Verdana; + font-weight: bold; +} + +#forums table { + background: #cccccc; + border-top: solid #455940 3px; + border-bottom: solid #455940 3px; +} + +#forums a:link, #forums a:visited, #forums a:active { + font-size:11px; + color: #354785; + font-style: Verdana; + font-weight: bold; + text-decoration: none; +} + +#forums a:hover { + font-size:11px; + color: #354785; + font-style: Verdana; + font-weight: bold; + text-decoration: underline; +} + +#forumthread { + font-size:11px; + color: #354785; + font-style: Verdana; + margin-bottom: 30px; +} + +#forumthread .content { + font-size:11px; + border-top: solid #354785 1px; + border-bottom: solid #354785 1px; + padding-top: 10px; + padding-bottom: 30px; +} + +#forumthread .content table tr td{ + font-size:11px; +} + +#forumthread .messagebody { + font-size: 11px; +} + +#forumthread .threadsummary { + font-size:11px; + border-top: solid #354785 1px; + border-bottom: solid #354785 1px; + padding: 10px 10px 10px 10px; + background: #EAF2FF; +} + +#forumthread .threadsummary table tr td { + color: #354785; + font-size:11px; +} + +#forumthread .new1 { + font-weight: bold; +} + +#forumthread .threadsummary table tr td a:active, +#forumthread .threadsummary table tr td a:link, +#forumthread .threadsummary table tr td a:visited, +#forumthread .content table tr td a:active, +#forumthread .content table tr td a:link, +#forumthread .content table tr td a:visited { + color: #354785; + font-size:11px; + text-decoration: none; +} + +#forumthread .threadsummary table tr td a:hover, +#forumthread .content table tr td a:hover { + color: #354785; + font-size:11px; + text-decoration: underline; +} + +#forumthread .actionbuttons a:active, +#forumthread .actionbuttons a:link, +#forumthread .actionbuttons a:visited { + padding-left: 6px; + padding-right: 6px; + font-size:11px; + color: #354785; + font-style: Verdana; + text-decoration: none; +} + +#forumthread .actionbuttons a:hover { + font-size:11px; + color: #354785; + font-style: Verdana; + text-decoration: underline; +} + +th.list-forums { + font-size:11px; + font-weight: bold; + color: #354785; + padding-left: 16px; + padding-right: 16px; + border-bottom: 3px solid #455940; +} + +td.list-forums { + font-size:11px; + color: #354785; + padding-left: 10px; + padding-right: 10px; + padding-top: 8px; + padding-bottom: 8px; + border-bottom: 1px solid #455940; +} + +td.list-forums a:visited, +td.list-forums a:active, +td.list-forums a:hover, +td.list-forums a:link { + font-size:11px; + color: #354785; +} + +td.list-forums-messages { + font-size: 11px; + color: #354785; + padding-left: 16px; + padding-right: 16px; +} + +td.list-forums-messages a:visited, +td.list-forums-messages a:active, +td.list-forums-messages a:link { + font-size: 11px; + color: #354785; + text-decoration: none; +} + +td.list-forums-messages a:hover { + font-size: 11px; + color: #354785; + text-decoration: underline; +} + +tr.first td { + border-top: 1px solid #455940; +} + +tr.last td { + border-bottom: 1px solid #455940; +} + +tr.newt { + font-weight: bold; +} + +td.list-forums-thread { + font-size:11px; + color: #354785; + padding-left: 5px; + padding-right: 5px; + padding-top: 8px; + padding-bottom: 8px; + border-bottom: 1px solid #455940; +} + +th.list-forums-thread { + font-size:11px; + font-weight: bold; + color: #354785; + padding-left: 5px; + padding-right: 5px; + border-bottom: 3px solid #455940; +} Index: openacs-4/contrib/packages/forums/www/resources/forums.js =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/forums.js,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/resources/forums.js 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,126 @@ +var collapse_symbol = '

'; +var expand_symbol = '

'; +var replies = new Array(); + +// toggle visibility + +function getid(id) { + if(document.getElementById) + return document.getElementById(id); + else if(document.all) + return document.all(id); + return false; +} + +function toggle( targetId, state ){ + var symbol; + var content = getid( 'content'+targetId ); + var link = 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 = collapse_symbol; + } else { + content.className = "dyncollapsed"; + symbol = 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 toggleList(a,state) { + if(!a.length) return; + for(var i = 0; i < a.length; ++i) { + toggle(a[i], state); + } +} + +// switch styles + +function setActiveStyleSheet(title) { + var i, a, main; + for (i=0; (a = document.getElementsByTagName("link")[i]); i++) { + if (a.getAttribute("rel") && + a.getAttribute("rel").indexOf("style") != -1 && + a.getAttribute("title")) { + a.disabled = true; + if(a.getAttribute("title") == title) a.disabled = false; + } + } +} + +function getActiveStyleSheet() { + var i, a; + for (i=0; (a = document.getElementsByTagName("link")[i]); i++) { + if (a.getAttribute("rel") && + a.getAttribute("rel").indexOf("style") != -1 && + a.getAttribute("title") && + !a.disabled + ) return a.getAttribute("title"); + } + return null; +} + +function getPreferredStyleSheet() { + var i, a; + for (i=0; (a = document.getElementsByTagName("link")[i]); i++) { + if (a.getAttribute("rel") && + a.getAttribute("rel").indexOf("style") != -1 && + a.getAttribute("rel").indexOf("alt") == -1 && + a.getAttribute("title") + ) return a.getAttribute("title"); + } + return null; +} + +function createCookie(name,value,days) { + if (days) { + var date = new Date(); + date.setTime(date.getTime()+(days*24*60*60*1000)); + var expires = "; expires="+date.toGMTString(); + } + else expires = ""; + document.cookie = name+"="+value+expires+"; path=/"; +} + +function readCookie(name) { + var nameEQ = name + "="; + var ca = document.cookie.split(';'); + for(var i=0;i < ca.length;i++) { + var c = ca[i]; + while (c.charAt(0)==' ') c = c.substring(1,c.length); + if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length); + } + return null; +} + +window.onload = function(e) { + var cookie = readCookie("style"); + var title = cookie ? cookie : getPreferredStyleSheet(); + setActiveStyleSheet(title); +} + +window.onunload = function(e) { + var title = getActiveStyleSheet(); + createCookie("style", title, 365); +} + +var cookie = readCookie("style"); +var title = cookie ? cookie : getPreferredStyleSheet(); +setActiveStyleSheet(title); + Index: openacs-4/contrib/packages/forums/www/resources/go.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/go.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/kiss.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/kiss.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/message-collapse.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/message-collapse.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/message-expand.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/message-expand.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/moneymouth.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/moneymouth.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/oneeye.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/oneeye.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/print.css =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/print.css,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/resources/print.css 11 May 2007 00:58:22 -0000 1.1 @@ -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: openacs-4/contrib/packages/forums/www/resources/sad.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/sad.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/scream.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/scream.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/smile.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/smile.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/smile8.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/smile8.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/think.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/think.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/tongue.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/tongue.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/wink.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/wink.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/resources/yell.gif =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/resources/Attic/yell.gif,v diff -u -N Binary files differ Index: openacs-4/contrib/packages/forums/www/xmlhttp/getreplies.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/xmlhttp/Attic/getreplies.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/xmlhttp/getreplies.adp 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,13 @@ + +

+ + + + + + + +

@messages.padding_nbsp;noquote@

@messages.subject@

@messages.user_name@

@messages.posting_date_pretty@

@messages.status_info;noquote@

+ + \ No newline at end of file Index: openacs-4/contrib/packages/forums/www/xmlhttp/getreplies.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/forums/www/xmlhttp/Attic/getreplies.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/forums/www/xmlhttp/getreplies.tcl 11 May 2007 00:58:22 -0000 1.1 @@ -0,0 +1,106 @@ +ad_page_contract { + + This page receives a message id and returns the replies for it + in a format that matches threads-chunk-expanded. + +} -query { + message_id:integer,notnull + odd_even +} + +set thread_p 1 +set expand "" + +db_multirow -extend { onclick image_url posting_date_pretty odd_even new_p padding_nbsp message_url user_url status_info } "messages" "getreplies_query" "select fm.message_id, + fm.subject, + fm.user_id, + p.last_name||', '||p.first_names as user_name, + to_char(fm.posting_date, 'YYYY-MM-DD HH24:MI:SS') as posting_date_ansi, + fm.state, + approved_reply_count as n_messages, + to_char(fm.last_child_post, 'YYYY-MM-DD HH24:MI:SS') as last_child_post_ansi, + case when parent_id is null then '1' else '0' end as root_message_p, + (select count(fm2.message_id) + from forums_messages_approved fm2 + where fm2.parent_id = fm.message_id) as has_children_p, + tree_level(tree_sortkey) as tree_level, + open_p, + parent_id + from forums_messages_approved fm, + persons p + where parent_id =:message_id and fm.user_id = p.person_id + order by fm.posting_date desc" { + + 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 "message-view" { message_id return_url }] + set user_url [export_vars -base "user-history" { user_id }] + set n_messages_pretty [lc_numeric $n_messages] + + set message_url [export_vars -base "message-view" { message_id return_url }] + set user_url [export_vars -base "user-history" { user_id }] + + switch $state { + pending { + set state_pretty [_ forums.Pending] + } + rejected { + set state_pretty [_ forums.Rejected] + } + default { + set state_pretty {} + } + } + + set odd_even $odd_even + + if {$thread_p} { + set padding_nbsp [string repeat " " [expr ($tree_level - 1) * 2]] + } else { + set padding_nbsp "" + } + set status_info_list [list] + if {[string equal $open_p f]} { + lappend status_info_list "LOCKED" + } + if {![views::viewed_p -object_id $message_id]} { + set new_p t + lappend status_info_list "NEW" + } else { + set new_p f + } + + set status_info [join $status_info_list " | "] + + if {$has_children_p && $thread_p} { + + set image_url "/resources/forums/button_blue_expand.gif" + + set updatediv [ah::ajaxupdate -container "replies${message_id}" \ + -url "xmlhttp/getreplies" \ + -pars "'message_id=${message_id}&odd_even=${odd_even}'"] + + set onclick [ah::toggle -element "replies${message_id}" \ + -effect "Blind" \ + -options " + beforeStart:function() { + var str = \$('img${message_id}').src; + if ( str.search('button_blue_expand.gif') != -1 ) { + ${updatediv} + \$('img${message_id}').src = '/resources/forums/button_blue_collapsed.gif'; + } else { + \$('img${message_id}').src = '/resources/forums/button_blue_expand.gif'; + } + } + " ] + + } else { + set image_url "" + set onclick "" + } + +} \ No newline at end of file