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.9 -r1.10
--- openacs-4/packages/forums/lib/forums/forums-history-chunk.tcl	7 Apr 2018 19:07:31 -0000	1.9
+++ openacs-4/packages/forums/lib/forums/forums-history-chunk.tcl	22 May 2018 15:59:27 -0000	1.10
@@ -16,7 +16,7 @@
 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 screen_name [acs_user::get_element -user_id $user_id -element screen_name]
 set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
 
 template::list::create \
@@ -41,7 +41,21 @@
 	}
     }
 
-db_multirow persons select_users_wrote_post {} 
+db_multirow -extend {
+    first_names
+    last_name
+} persons select_users_wrote_post {
+    select user_id,
+           count(*) as num_msg,
+           to_char(max(last_child_post), 'YYYY-MM-DD HH24:MI:SS') as last_post
+      from forums_messages
+     where forum_id = :forum_id 
+     group by user_id
+} {
+    acs_user::get -user_id $user_id -array user
+    set first_names $user(first_names)
+    set last_name   $user(last_name)
+}
 
 if {[info exists alt_template] && $alt_template ne ""} {
   ad_return_template $alt_template
Index: openacs-4/packages/forums/lib/forums/forums-history-chunk.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums/Attic/forums-history-chunk.xql,v
diff -u -N
--- openacs-4/packages/forums/lib/forums/forums-history-chunk.xql	8 Apr 2005 08:28:08 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,12 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
- <fullquery name="select_users_wrote_post">
-        <querytext>
-            select distinct forums_messages.user_id, persons.first_names, persons.last_name, count(user_id) as num_msg, to_char(max(last_child_post), 'YYYY-MM-DD HH24:MI:SS') as last_post
-	    from persons, forums_messages
-	    where forums_messages.user_id = persons.person_id and forums_messages.forum_id = :forum_id 
-	    group by forums_messages.user_id, persons.first_names, persons.last_name
-        </querytext>
-    </fullquery>   
-</queryset>