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?