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.2 -r1.3
--- openacs.org-dev/packages/forums/www/forum-view.tcl	9 Aug 2002 18:11:22 -0000	1.2
+++ openacs.org-dev/packages/forums/www/forum-view.tcl	13 Aug 2002 03:11:26 -0000	1.3
@@ -26,14 +26,14 @@
 
 if {!${admin_p}} {
     set moderate_p [forum::security::can_moderate_forum_p -forum_id $forum_id]
-    if {!${moderate_p}} {
-        set post_p [forum::security::can_post_forum_p -forum_id $forum_id]
-    } else {
-        set post_p 1
-    }
+#    if {!${moderate_p}} {
+#        set post_p [forum::security::can_post_forum_p -forum_id $forum_id]
+#    } else {
+#        set post_p 1
+#    }
 } else {
     set moderate_p 1
-    set post_p 1
+#    set post_p 1
 }
 
 form create search -action search
@@ -66,7 +66,7 @@
 }
 
 # paginator stuff
-paginator create $query paginated_messages "" -pagesize 30 -groupsize 10 -contextual
+paginator create $query paginated_messages "$forum(name)" -pagesize 30 -groupsize 10 -contextual
 
 paginator get_data display_data paginated_messages messages "" message_id $page