Index: openacs-4/contrib/packages/simulation/lib/yellow-pages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/yellow-pages.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/contrib/packages/simulation/lib/yellow-pages.tcl	9 Mar 2004 17:04:23 -0000	1.5
+++ openacs-4/contrib/packages/simulation/lib/yellow-pages.tcl	10 Mar 2004 10:13:46 -0000	1.6
@@ -22,10 +22,19 @@
   search_terms:optional
 }
 
+
 ad_form -name search -form {
     {search_terms:text,optional {label "Restrict to items matching word or phrase"}}
+} -validate {
+        {search_terms
+         {[string length $search_terms] >= 3}
+         "\"search_terms\" must be a string containing three or more characters"
+        }
+} -method GET -on_submit {
+    # foobar
 }
 
+
 ######################################################################
 #
 # objects list