in autosuggest.pm, this is how we prepare a suggest search string for tsquery

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
index 1116437..3111069 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
@@ -12,6 +12,15 @@ use Apache2::RequestUtil;
 use CGI;
 
 
+sub prepare_for_tsquery {
+    my ($str) = shift;
+
+    $str =~ s/[^\w\s]/ /ig;
+    $str .= ":*" unless $str =~ /\s$/;
+
+    return join(" & ", split(/\s+/, $str));
+}
+
 sub handler {
     my $r = shift;
     my $cgi = new CGI;