Index: openacs-4/packages/acs-admin/www/users/user-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-2.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-admin/www/users/user-add-2.tcl	27 Oct 2014 16:38:58 -0000	1.11
+++ openacs-4/packages/acs-admin/www/users/user-add-2.tcl	7 Aug 2017 23:47:45 -0000	1.12
@@ -2,7 +2,7 @@
     Processes a new user created by an admin
     @cvs-id $Id$
 } -query {
-    user_id
+    user_id:naturalnum,notnull
     password
     {referer "/acs-admin/users"}
 } -properties {
@@ -30,12 +30,21 @@
     set password [ad_generate_random_string]
 }
 
-set administration_name [db_string admin_name "select
-first_names || ' ' || last_name from persons where person_id = :admin_user_id"]
+set administration_name [db_string admin_name {
+      select first_names || ' ' || last_name
+      from persons
+      where person_id = :admin_user_id
+}]
 
 set context [list [list "./" "Users"] "Notify added user"]
 set system_name [ad_system_name]
 set export_vars [export_vars -form {email first_names last_name user_id}]
 set system_url [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL -default ""]
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: