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 -r1.2.2.1 -r1.2.2.2
--- openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl	10 Sep 2015 08:22:13 -0000	1.2.2.1
+++ openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl	6 Jun 2016 01:19:55 -0000	1.2.2.2
@@ -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]