Index: openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl,v diff -u -r1.7.2.3 -r1.7.2.4 --- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl 15 Dec 2004 14:36:26 -0000 1.7.2.3 +++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl 16 Dec 2004 18:41:02 -0000 1.7.2.4 @@ -189,7 +189,7 @@ @return returns formatted query string for tsearch2 tsquery } { # get rid of everything that isn't a letter or number - regsub -all {[^?\d\w]} $query {} query + regsub -all {[^?\d\w\s]} $query {} query # replace boolean words with boolean operators set query [string map {" and " & " or " | " not " !} $query]