From 635606d4ba5c074c3e9657d7c67b68aa5975ae80 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 9 Jan 2011 21:08:17 +0000
Subject: [PATCH] construct query parser manually

---
 lib/BackupPC/Search/KinoSearch.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/lib/BackupPC/Search/KinoSearch.pm b/lib/BackupPC/Search/KinoSearch.pm
index 91f488d..7d37191 100644
--- a/lib/BackupPC/Search/KinoSearch.pm
+++ b/lib/BackupPC/Search/KinoSearch.pm
@@ -148,9 +148,18 @@ sub search {
 
 	my $split = $q;
 	$split =~ s/(.)/$1 /g; # _file_path_split
-	$split = qq{"$split"}; # exact ordering
+	my $split_query = KinoSearch::Search::TermQuery->new( field => '_file_path_split', term => $split );
+#warn "XXX ",dump($split_query);
+
+
+	my $query_parser = KinoSearch::Search::QueryParser->new(
+		schema => $self->searcher->get_schema,
+	        fields => ['_file_path_split'],
+	);
+	my $query = $query_parser->parse( '"' . $split . '"' );
+
 	my $hits = $self->searcher->hits(
-		query => $split,
+		query => m/:/ ? $q : $query,
 		offset => $offset,
 		num_wanted => $on_page,
 		sort_spec => $sort_spec,
-- 
2.20.1