Index: openacs-4/packages/acs-subsite/www/members/member-state-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/member-state-change.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/members/member-state-change.tcl	10 Oct 2003 16:35:03 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/members/member-state-change.tcl	27 Oct 2014 16:39:58 -0000	1.2
@@ -1,11 +1,11 @@
 ad_page_contract {
     Change member state
 } {
-    {rel_id:multiple ""}
+    {rel_id:naturalnum,multiple ""}
     {member_state:notnull}
 }
 
-ad_require_permission $rel_id "admin"
+permission::require_permission -object_id $rel_id -privilege "admin"
 
 membership_rel::change_state \
     -rel_id $rel_id \