Index: openacs-4/packages/chat/www/chat-room-grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-room-grant.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/chat/www/chat-room-grant.tcl	4 Sep 2002 08:12:50 -0000	1.2
+++ openacs-4/packages/chat/www/chat-room-grant.tcl	17 Jun 2016 17:36:11 -0000	1.3
@@ -10,7 +10,7 @@
     assign_privilege:trim,notnull
 }
 
-ad_require_permission $room_id $require_privilege
+permission::require_permission -object_id $room_id -privilege $require_privilege
 
 doc_body_append "[ad_header "Grant permission on $pretty_name"]
 
@@ -21,7 +21,7 @@
 <hr>
 
 <form method=post action=chat-room-grant-2>
-[export_form_vars room_id require_privilege assign_privilege]
+[export_vars -form {room_id require_privilege assign_privilege}]
 <select name=party_id>
 "