Index: openacs-4/packages/chat/www/room-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-oracle.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/chat/www/room-oracle.xql	7 Aug 2017 23:48:07 -0000	1.3
+++ openacs-4/packages/chat/www/room-oracle.xql	29 May 2018 17:09:02 -0000	1.4
@@ -1,14 +1,16 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="utf-8"?>
+o<?xml version="1.0"?>
 <queryset>
 <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
 <fullquery name="list_user_ban">
   <querytext>
-   select m.party_id, p.last_name || ', ' || p.first_names as name, pa.email
-    from acs_object_party_privilege_map m, persons p, parties pa
-    where m.party_id = p.person_id and m.object_id = :room_id
-    and m.privilege = 'chat_ban' and p.person_id = pa.party_id
-    order by p.last_name, p.first_names
+    select person_id as party_id, first_names, last_name    
+    from acs_object_party_privilege_map m, persons p
+    where m.object_id = :room_id
+      and m.party_id = person_id
+      and m.privilege = 'chat_ban'
+    order by last_name, first_names
   </querytext>
 </fullquery>
 
Index: openacs-4/packages/chat/www/room-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-postgresql.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/chat/www/room-postgresql.xql	7 Aug 2017 23:48:07 -0000	1.3
+++ openacs-4/packages/chat/www/room-postgresql.xql	29 May 2018 17:09:02 -0000	1.4
@@ -4,12 +4,11 @@
 
 <fullquery name="list_user_ban">
   <querytext>
-    select pa.party_id, p.last_name || ', ' || p.first_names as name, pa.email
-    from persons p, parties pa
-    where p.person_id = pa.party_id
-    and pa.party_id in
+    select person_id as party_id, first_names, last_name
+    from persons
+    where person_id in 
     (select acs_permission.parties_with_object_privilege(:room_id::integer, 'chat_ban'::varchar))
-    order by p.last_name, p.first_names
+    order by last_name, first_names
   </querytext>
 </fullquery>
 
Index: openacs-4/packages/chat/www/room.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/chat/www/room.tcl	7 Aug 2017 23:48:07 -0000	1.10
+++ openacs-4/packages/chat/www/room.tcl	29 May 2018 17:09:02 -0000	1.11
@@ -79,7 +79,9 @@
 set message_count [chat_message_count $room_id]
 
 # List user ban from chat
-db_multirow -extend {unban_url unban_text} banned_users list_user_ban {} {
+db_multirow -extend {name email unban_url unban_text} banned_users list_user_ban {} {
+    set name "$last_name, $first_names"
+    set email [acs_user::get_element -user_id $party_id -element email]
     if { $user_unban_p } {
         set unban_url [export_vars -base "user-unban" {room_id party_id}]
         set unban_text [_ chat.Unban_user]