Index: openacs-4/packages/search/www/advanced-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/advanced-search.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/search/www/advanced-search.tcl	13 Feb 2009 21:26:43 -0000	1.3
+++ openacs-4/packages/search/www/advanced-search.tcl	7 Aug 2017 23:48:29 -0000	1.4
@@ -1,8 +1,22 @@
 ad_page_contract {
     @author Neophytos Demetriou
 } {
-    {q ""}
-    {num 0}
+    
+    {q:trim,notnull ""}
+    {num:range(1|200),notnull 0}
+    
+} -validate {
+    
+    check_q -requires q {
+        if {[string length $q] < 3} {
+            set name q
+            set min_length 3
+            set actual_length [string length $q]
+            ad_complain [_ acs-tcl.lt_name_is_too_short__Pl]
+        }
+    }
+    
+    csrf { csrf::validate }
 }
 
 set package_id [ad_conn package_id]
@@ -16,4 +30,9 @@
 set context_bar [ad_context_bar $title]
 
 
-ad_return_template
\ No newline at end of file
+ad_return_template
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: