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 -r1.7 -r1.8
--- openacs-4/packages/chat/www/search-3.tcl	18 Jan 2019 17:14:36 -0000	1.7
+++ openacs-4/packages/chat/www/search-3.tcl	3 Sep 2024 15:37:36 -0000	1.8
@@ -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"