Index: openacs-4/packages/chat/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/index.tcl,v
diff -u -r1.18.2.4 -r1.18.2.5
--- openacs-4/packages/chat/www/index.tcl	15 Mar 2019 17:37:05 -0000	1.18.2.4
+++ openacs-4/packages/chat/www/index.tcl	15 Mar 2019 17:42:28 -0000	1.18.2.5
@@ -33,14 +33,12 @@
            rm.description,
            rm.moderated_p,
            rm.active_p,
-           rm.archive_p,
-           obj.context_id,
-           acs_permission.permission_p(rm.room_id, :user_id, 'chat_room_admin') as admin_p,
-           acs_permission.permission_p(rm.room_id, :user_id, 'chat_read') as user_p
+           rm.archive_p
      from chat_rooms rm,
           acs_objects obj
     where rm.room_id = obj.object_id
       and obj.context_id = :package_id
+      and acs_permission.permission_p(rm.room_id, :user_id, 'chat_read')
     order by rm.pretty_name
 } {
     set room [::chat::Chat create new -volatile -chat_id $room_id]