Index: openacs-4/packages/acs-templating/www/doc/demo/user-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/user-edit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-templating/www/doc/demo/user-edit.tcl	10 Jan 2007 21:22:13 -0000	1.4
+++ openacs-4/packages/acs-templating/www/doc/demo/user-edit.tcl	7 Aug 2017 23:48:02 -0000	1.5
@@ -13,8 +13,8 @@
 # allows us to set error messages more easily.
 
 form create user_search -elements {
-  user_search -datatype text -html { size 40 } -label "Search Text"
-  submit -datatype text -widget submit -label "Go"
+    user_search -datatype text -html { size 40 } -label "Search Text" -validate {chars {regexp {^\w*$} $value} "invalid search string"}
+    submit -datatype text -widget submit -label "Go"
 }
 set user_search [element get_value user_search user_search]
 
@@ -124,3 +124,9 @@
 
   template::forward multiple
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: