Index: openacs-4/packages/contacts/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/index.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/contacts/www/index.tcl	26 Jun 2006 06:36:52 -0000	1.24
+++ openacs-4/packages/contacts/www/index.tcl	19 Dec 2006 11:02:05 -0000	1.25
@@ -78,7 +78,14 @@
     lappend search_options [list "${my_lists_title}" ${my_lists_list_id} [_ contacts.Lists]]
 }
 
+# Include for an Ajax dropdown smart search widget that filters search results as you type.
+# Requires ajaxhelper
 
+set js_update_user_select [ah::ajaxupdate \
+			       -container "results_box"  \
+			       -url "lookup" \
+			       -pars "Form.serialize('search')"]
+
 if { [exists_and_not_null search_id] } {
     set search_in_list_p 0
     foreach search_option $search_options {
@@ -98,7 +105,7 @@
 
 set form_elements {
     {search_id:integer(select_with_optgroup),optional {label ""} {options $search_options} {html {onChange "javascript:acs_FormRefresh('search')"}}}
-    {query:text(text),optional {label ""} {html {size 20 maxlength 255}}}
+    {query:text(text),optional {label ""} {html {size 20 maxlength 255  onKeyUp "$js_update_user_select document.getElementById('results_box').style.visibility='visible';" autocomplete "off" value ""}}}
     {save:text(submit) {label {[_ contacts.Search]}} {value "go"}}
     {results_count:integer(inform),optional {label "&nbsp;&nbsp;<span style=\"font-size: smaller;\">[_ contacts.Results] $contacts_total_count </span>"}}
 }