Index: openacs-4/packages/acs-subsite/www/user/portrait/erase.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/erase.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/user/portrait/erase.tcl	31 Mar 2009 14:39:45 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/user/portrait/erase.tcl	27 Oct 2014 16:40:03 -0000	1.8
@@ -4,7 +4,7 @@
     @cvs-id $Id$
 } {
     {return_url "" }
-    {user_id ""}
+    {user_id:naturalnum ""}
 } -properties {
     context:onevalue
     export_vars:onevalue
@@ -20,7 +20,7 @@
     set admin_p 1
 }
 
-ad_require_permission $user_id "write"
+permission::require_permission -object_id $user_id -privilege "write"
 
 set doc(title) [_ acs-subsite.Erase]
 if {$admin_p} {