Index: openacs-4/packages/categories/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/categories/www/index.tcl	8 Feb 2004 17:24:29 -0000	1.5
+++ openacs-4/packages/categories/www/index.tcl	11 Feb 2004 00:40:14 -0000	1.6
@@ -5,6 +5,7 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @cvs-id $Id:
 } {
+    {search_text:optional ""}
 } -properties {
     page_title:onevalue
     context_bar:onevalue
@@ -43,4 +44,13 @@
 	}
     }
 
+ad_form -name search_form -action . -form {
+    {search_text:text {label "Search String"} {value $search_text} {html {size 50 maxlength 200}}}
+} -on_submit {
+    set query_id [category_synonym::search -search_text [string trim $search_text] -locale $locale]
+} -after_submit {
+    ad_returnredirect [export_vars -no_empty -base search-result {query_id}]
+    ad_script_abort
+}
+
 ad_return_template