Index: openacs-4/packages/chat/www/search-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/search-3.tcl,v
diff -u -N -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/chat/www/search-3.tcl	14 Feb 2019 16:15:01 -0000	1.6.2.1
+++ openacs-4/packages/chat/www/search-3.tcl	31 Mar 2021 10:43:00 -0000	1.6.2.2
@@ -6,12 +6,13 @@
     party_id:naturalnum,notnull
 }
 
+set room [::xo::db::Class get_instance_from_db -id $room_id]
 if {$type eq "user"} {
-  permission::require_permission -object_id $room_id -privilege chat_user_grant
-  chat_user_grant $room_id $party_id
+    permission::require_permission -object_id $room_id -privilege chat_user_grant
+    $room grant_user -party_id $party_id
 } else {
-  permission::require_permission -object_id $room_id -privilege chat_user_ban
-  chat_user_ban $room_id $party_id
+    permission::require_permission -object_id $room_id -privilege chat_user_ban
+    $room ban_user -party_id $party_id
 }
 ad_returnredirect "room?room_id=$room_id"
 
Index: openacs-4/packages/chat/www/user-unban-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/user-unban-2.tcl,v
diff -u -N -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/chat/www/user-unban-2.tcl	14 Feb 2019 16:15:01 -0000	1.4.2.1
+++ openacs-4/packages/chat/www/user-unban-2.tcl	31 Mar 2021 10:47:34 -0000	1.4.2.2
@@ -13,7 +13,8 @@
 
 permission::require_permission -object_id $room_id -privilege chat_user_unban
 
-chat_user_unban $room_id $party_id
+set room [::xo::db::Class get_instance_from_db -id $room_id]
+$room unban_user -party_id $party_id
 
 ad_returnredirect "room?room_id=$room_id"
 
Index: openacs-4/packages/chat/www/user-ban-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/user-ban-2.tcl,v
diff -u -N -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/chat/www/user-ban-2.tcl	14 Feb 2019 16:15:01 -0000	1.5.2.1
+++ openacs-4/packages/chat/www/user-ban-2.tcl	31 Mar 2021 10:49:19 -0000	1.5.2.2
@@ -13,7 +13,8 @@
 
 permission::require_permission -object_id $room_id -privilege chat_user_ban
 
-chat_user_ban $room_id $party_id
+set room [::xo::db::Class get_instance_from_db -id $room_id]
+$room ban_user -party_id $party_id
 
 ad_returnredirect "room?room_id=$room_id"