Index: openacs.org-dev/packages/forums/www/forum-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/forum-view.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/forums/www/forum-view.tcl	9 Jul 2002 17:35:09 -0000	1.1
+++ openacs.org-dev/packages/forums/www/forum-view.tcl	9 Aug 2002 18:11:22 -0000	1.2
@@ -3,15 +3,23 @@
     one forum view
 
     @author Ben Adida (ben@openforce.net)
+    @author Paginator stuff added by Roberto Mello (rmello@fslc.usu.edu)
     @creation-date 2002-05-24
     @version $Id$
 
-} -query {
+} {
+    {page 1}
     forum_id:integer,notnull
 }
 
+
 forum::security::require_read_forum -forum_id $forum_id
 
+# get the colors from the params
+set table_border_color [parameter::get -parameter table_border_color]
+set table_bgcolor [parameter::get -parameter table_bgcolor]
+set table_other_bgcolor [parameter::get -parameter table_other_bgcolor]
+
 set package_id [ad_conn package_id]
 set user_id [ad_verify_and_get_user_id]
 set admin_p [forum::security::can_admin_forum_p -forum_id $forum_id]
@@ -33,8 +41,7 @@
 element create search search_text \
     -label Search \
     -datatype text \
-    -widget text \
-    -html {size 60}
+    -widget text
 
 element create search forum_id \
     -label ForumID \
@@ -52,12 +59,24 @@
 }
 
 set query messages_select
+set forums_table forums_messages_approved
+
 if {$moderate_p} {
-    set query messages_select_moderator
+    set forums_table forums_messages
 }
 
-db_multirow messages $query {}
+# paginator stuff
+paginator create $query paginated_messages "" -pagesize 30 -groupsize 10 -contextual
 
+paginator get_data display_data paginated_messages messages "" message_id $page
+
+paginator get_display_info paginated_messages info $page
+
+set group [paginator get_group paginated_messages $page]
+
+paginator get_context paginated_messages pages [paginator get_pages paginated_messages $group]
+paginator get_context paginated_messages groups [paginator get_groups paginated_messages $group 10]
+
 set notification_chunk [notification::display::request_widget \
     -type forums_forum_notif \
     -object_id $forum_id \