Index: openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl	27 Oct 2014 16:40:21 -0000	1.4
+++ openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl	7 Aug 2017 23:48:02 -0000	1.5
@@ -15,12 +15,18 @@
   @creation-date 2000-10-23
   @cvs-id $Id$
 } -query {
-  orderby:optional
-  color_filter_value:optional
+    orderby:token,notnull,optional
+    color_filter_value:optional,trim,notnull
 } -properties {
-  notes:multirow
-  context:onevalue
-  create_p:onevalue
+    notes:multirow
+    context:onevalue
+    create_p:onevalue
+} -validate {
+    valid_color -requires color_filter_value {
+        if {$color_filter_value ni {blue green purple red orange yellow}} {
+            ad_complain "Invalid value: $color_filter_value"
+        }
+    }
 }
 
 set package_id [ad_conn package_id]
@@ -127,3 +133,9 @@
 }
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: