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 -r1.2 -r1.2.22.1
--- 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	20 Jun 2016 08:40:23 -0000	1.2.22.1
@@ -4,13 +4,13 @@
     @creation-date November 16, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
     pretty_name:trim,notnull
     require_privilege:trim,notnull
     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>
 "