Index: openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl	27 Oct 2014 16:40:20 -0000	1.2
+++ openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl	7 Aug 2017 23:48:02 -0000	1.3
@@ -6,11 +6,17 @@
   @creation-date 2000-10-23
   @cvs-id $Id$
 } -query {
-  orderby:optional
+  orderby:token,optional
 } -properties {
   notes:multirow
   context:onevalue
   create_p:onevalue
+} -validate {
+    valid_orderby -requires orderby {
+        if {![regexp {,(asc|desc)$} $orderby]} {
+            ad_complain "Invalid value for orderby"
+        }
+    }
 }
 
 set package_id [ad_conn package_id]
@@ -81,3 +87,9 @@
 }
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: