Index: openacs-4/packages/dotlrn-forums/www/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/www/user.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-forums/www/user.tcl	13 Aug 2003 11:21:42 -0000	1.3
+++ openacs-4/packages/dotlrn-forums/www/user.tcl	15 May 2007 20:14:29 -0000	1.4
@@ -21,6 +21,10 @@
     ] \
 ]
 
+# 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]
+
 set query select_messages
 if {[string equal $view forum]} {
     set query select_messages_by_forum