Index: openacs-4/packages/forums/www/forum-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/forum-view.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/forums/www/forum-view.tcl	16 Jan 2003 13:49:30 -0000	1.15
+++ openacs-4/packages/forums/www/forum-view.tcl	26 Jan 2003 13:28:41 -0000	1.16
@@ -26,7 +26,7 @@
 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]
+        set post_p [expr { [ad_conn user_id] == 0 || [forum::security::can_post_forum_p -forum_id $forum_id] }]
     } else {
         set post_p 1
     }