Index: openacs-4/packages/dotlrn/www/admin/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/dotlrn/www/admin/user.tcl	1 Nov 2013 21:08:34 -0000	1.28
+++ openacs-4/packages/dotlrn/www/admin/user.tcl	27 Oct 2014 16:41:17 -0000	1.29
@@ -21,7 +21,7 @@
     @creation-date 2002-03-13
     @version $Id$
 } {
-    user_id:integer,notnull
+    user_id:naturalnum,notnull
 } -properties {
     context:onevalue
     first_names:onevalue
@@ -94,7 +94,7 @@
 }
 
 set portrait_p 0
-if {[ad_parameter "show_portrait_p" dotlrn] && [db_0or1row select_portrait_info {}]} {
+if {[parameter::get -parameter "show_portrait_p"] && [db_0or1row select_portrait_info {}]} {
     set portrait_p 1
 }