Index: openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl	31 Mar 2009 15:16:47 -0000	1.15
+++ openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl	27 Oct 2014 16:40:03 -0000	1.16
@@ -3,7 +3,7 @@
 
     @cvs-id $Id$
 } {
-    {user_id ""}
+    {user_id:naturalnum ""}
     {return_url ""}
 } -properties {
     first_names:onevalue
@@ -34,7 +34,7 @@
     set admin_p 1
 }
 
-ad_require_permission $user_id "write"
+permission::require_permission -object_id $user_id -privilege "write"
 
 if {![db_0or1row get_name {}]} {
     ad_return_error "Account Unavailable" "We can't find you (user #$user_id) in the users table.  Probably your account was deleted for some reason."