Index: openacs-4/packages/forums/lib/forums/forums-history-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums/forums-history-chunk.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/forums/lib/forums/forums-history-chunk.tcl	15 May 2007 20:14:39 -0000	1.3
+++ openacs-4/packages/forums/lib/forums/forums-history-chunk.tcl	22 May 2007 09:42:08 -0000	1.4
@@ -15,16 +15,21 @@
 set table_bgcolor [parameter::get -parameter table_bgcolor]
 set table_other_bgcolor [parameter::get -parameter table_other_bgcolor]
 
+# provide screen_name functionality
+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]
+
 template::list::create \
     -html {width 50%} \
     -name persons \
     -multirow persons \
     -key message_id \
+    -pass_properties {useScreenNameP screen_name} \
     -elements {
 	name {
 	    label "\#forums.User\#"
 	    html {align left}
-	    display_template {<a href="user-history?user_id=@persons.user_id@">@persons.first_names@ @persons.last_name@</a>}
+            display_template {<if @useScreenNameP@>@screen_name@</if><else><a href="user-history?user_id=@persons.user_id@">@persons.first_names@ @persons.last_name@</a></else>}
 	}
 	num_msg {
 	    label "\#forums.Number_of_Posts\#"
@@ -36,10 +41,6 @@
 	}
     }
 
-# provide screen_name functionality
-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]
-
 db_multirow persons select_users_wrote_post {} 
 
 if {[exists_and_not_null alt_template]} {