Index: openacs-4/packages/dotlrn/www/user-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/user-add-2.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/dotlrn/www/user-add-2.tcl	28 Jun 2015 11:58:50 -0000	1.16
+++ openacs-4/packages/dotlrn/www/user-add-2.tcl	7 Aug 2017 23:48:09 -0000	1.17
@@ -21,14 +21,14 @@
     @creation-date 2002-01-20
     @version $Id$
 } -query {
-    user_id
+    user_id:naturalnum,notnull
     password
     {referer "/acs-admin/users"}
     type
-    can_browse_p
-    read_private_data_p
-    dotlrn_interactive_p
-    add_membership_p
+    can_browse_p:boolean
+    read_private_data_p:boolean
+    dotlrn_interactive_p:boolean
+    add_membership_p:boolean
 } -properties {
     context_bar:onevalue
     export_vars:onevalue
@@ -97,3 +97,9 @@
 set system_name [ad_system_name]
 set export_vars [export_vars -form {email referer type can_browse_p read_private_data_p dotlrn_interactive_p add_membership_p}]
 set system_url [parameter::get -package_id [ad_acs_kernel_id] -parameter SystemURL -default ""]
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: