Index: openacs-4/packages/acs-subsite/www/user/portrait/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	31 Mar 2009 14:39:45 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	27 Oct 2014 16:40:03 -0000	1.11
@@ -7,7 +7,7 @@
     @cvs-id $Id$
 } {
     {return_url "" }
-    {user_id ""}
+    {user_id:naturalnum ""}
 } -properties {
     first_names:onevalue
     last_name:onevalue
@@ -40,13 +40,13 @@
 
 if { $current_user_id == $user_id } {
     set admin_p 1
-    ad_require_permission $user_id "write"
+    permission::require_permission -object_id $user_id -privilege "write"
 } else {
     set admin_p 0
 }
 
-set export_vars      [export_url_vars user_id]
-set export_edit_vars [export_url_vars user_id return_url]
+set export_vars      [export_vars -url {user_id}]
+set export_edit_vars [export_vars -url {user_id return_url}]
 
 if {![db_0or1row user_info "select 
   first_names,