Index: openacs-4/packages/forums/forums.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/forums.info,v
diff -u -r1.32.2.2 -r1.32.2.3
--- openacs-4/packages/forums/forums.info 10 May 2006 08:30:07 -0000 1.32.2.2
+++ openacs-4/packages/forums/forums.info 10 May 2006 18:50:40 -0000 1.32.2.3
@@ -7,18 +7,18 @@
f
f
-
+
OpenACS
Online discussion forums.
2006-05-10
OpenACS
This online discussion board software is the successor of the original bboard package. The biggest improvement is a scalable datamodel. Forums supports threaded and flat view, moderation, a stand alone search function as well as integration with the OpenACS search package and integration with the notifications package for email alerts. It also supports reply via email.
0
-
-
+
+
+
-
Index: openacs-4/packages/forums/lib/message/threads-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/threads-chunk.tcl,v
diff -u -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl 26 Sep 2005 09:03:13 -0000 1.3.2.1
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl 10 May 2006 18:50:40 -0000 1.3.2.2
@@ -19,28 +19,36 @@
set actions [list]
+if {![exists_and_not_null page_size]} {
+ set page_size 30
+}
+
+if {![exists_and_not_null base_url]} {
+ set base_url ""
+}
+
# new postings are allowed if
# 1. Users can create new threads AND the posting policy is open or moderated
# 2. User is a moderator or adminsitrator
if {([forum::new_questions_allowed_p -forum_id $forum_id] && ($forum(posting_policy) == "open" || $forum(posting_policy) == "moderated")) || [template::util::is_true $permissions(admin_p)] || [template::util::is_true $permissions(moderate_p)] } {
- lappend actions [_ forums.Post_a_New_Message] [export_vars -base "message-post" { forum_id }] {}
+ lappend actions [_ forums.Post_a_New_Message] [export_vars -base "${base_url}message-post" { forum_id }] {}
}
if { [template::util::is_true $permissions(admin_p)] } {
lappend actions [_ forums.Administer] [export_vars -base "admin/forum-edit" { forum_id {return_url [ad_return_url]}}] {}
- lappend actions [_ forums.Subscribe_others] [export_vars -base "admin/subscribe-others" { forum_id {return_url [ad_return_url]}}] {}
+ lappend actions [_ forums.Subscribe_others] [export_vars -base "${base_url}admin/subscribe-others" { forum_id {return_url [ad_return_url]}}] {}
}
if { [template::util::is_true $permissions(moderate_p)] } {
- lappend actions [_ forums.ManageModerate] [export_vars -base "moderate/forum" { forum_id }] {}
+ lappend actions [_ forums.ManageModerate] [export_vars -base "${base_url}moderate/forum" { forum_id }] {}
}
template::list::create \
-name messages \
-multirow messages \
- -page_size 30 \
+ -page_size $page_size \
-page_query_name messages_select_paginate \
-pass_properties { moderate_p } \
-actions $actions \
@@ -117,8 +125,8 @@
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 }]
- set user_url [export_vars -base "user-history" { user_id }]
+ set message_url [export_vars -base "${base_url}message-view" { message_id }]
+ set user_url [export_vars -base "${base_url}user-history" { user_id }]
set n_messages_pretty [lc_numeric $n_messages]
switch $state {
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/forums/sql/postgresql/upgrade/upgrade-1.2.0d4-1.3d1.sql'.
Fisheye: No comparison available. Pass `N' to diff?