Index: openacs-4/packages/forums/lib/message/post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post.tcl,v
diff -u -r1.11.2.1 -r1.11.2.2
--- openacs-4/packages/forums/lib/message/post.tcl	19 Jan 2007 14:21:11 -0000	1.11.2.1
+++ openacs-4/packages/forums/lib/message/post.tcl	4 Mar 2007 21:21:26 -0000	1.11.2.2
@@ -9,6 +9,9 @@
 }
 
 set user_id [ad_conn user_id]
+set screen_name [db_string select_screen_name { select screen_name from users where user_id = :user_id}]
+set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
+set pvt_home [ad_pvt_home]
 
 if {[array exists parent_message]} {
   set parent_id $parent_message(message_id)
@@ -48,7 +51,7 @@
 }
 
 # Deal with anonymous postings
-if {$user_id != 0 && $anonymous_allowed_p} {
+if {[expr {$user_id != 0 && $anonymous_allowed_p}]} {
     append form_elements {
 	{anonymous_p:integer(checkbox),optional
 	    {options {{"[_ forums.post_anonymously]" 1}}}
@@ -63,7 +66,7 @@
 }
 
 # Attachments
-if {$user_id != 0} {
+if {[expr {$user_id != 0 && $anonymous_allowed_p}]} {
     append form_elements {
 	{attach_p:integer(radio),optional
 	    {options {{[_ acs-kernel.common_No] 0} {[_ acs-kernel.common_Yes] 1}}}