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 -N -r1.11 -r1.12
--- openacs-4/packages/forums/lib/message/post.tcl	16 Dec 2006 20:55:49 -0000	1.11
+++ openacs-4/packages/forums/lib/message/post.tcl	15 May 2007 20:14:39 -0000	1.12
@@ -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)
@@ -63,10 +66,10 @@
 }
 
 # Attachments
-if {[expr {$user_id != 0 && $anonymous_allowed_p}]} {
+if {$user_id != 0} {
     append form_elements {
 	{attach_p:integer(radio),optional
-	    {options {{[_ acs-kernel.common_No] 0} {[_ acs-kernel.common_Yes] 1}}}
+	    {options {{[_ acs-kernel.common_no] 0} {[_ acs-kernel.common_Yes] 1}}}
 	    {label "[_ forums.Attach]"}
 	}
     }
@@ -133,6 +136,7 @@
 	    set message(content) $content
 	    set message(user_id) $displayed_user_id
 	    set message(user_name) [db_string select_name {}]
+	    set message(screen_name) $screen_name
 	    set message(posting_date_ansi) [db_string select_date {}]
 	    set message(posting_date_pretty) [lc_time_fmt $message(posting_date_ansi) "%x %X"]