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 -r1.5 -r1.6
--- openacs-4/packages/chat/www/user-unban-2.tcl	18 Jan 2019 17:14:36 -0000	1.5
+++ openacs-4/packages/chat/www/user-unban-2.tcl	3 Sep 2024 15:37:36 -0000	1.6
@@ -7,13 +7,14 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id:naturalnum,notnull
-    party_id:naturalnum,notnull
+    room_id:object_type(chat_room)
+    party_id:object_type(party)
 }
 
 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"