# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1347892427 -10800
# Node ID 0d21b9d1d2b9481f9376b900f16477b44824df8e
# Parent  bfb3980575437e003ad72bc80c73f35d73548cb6
urllog: Improve search functionality.

diff -r bfb398057543 -r 0d21b9d1d2b9 urllog.tcl
--- a/urllog.tcl	Mon Sep 17 17:33:24 2012 +0300
+++ b/urllog.tcl	Mon Sep 17 17:33:47 2012 +0300
@@ -620,17 +620,19 @@
   foreach ftoken $ftokens {
     set fprefix [string range $ftoken 0 0]
     set fpattern [string range $ftoken 1 end]
+    set qpattern "'%[urllog_escape $fpattern]%'"
 
     if {$fprefix == "-"} {
-      lappend fpatlist "url NOT LIKE '%[urllog_escape $fpattern]%'"
+      lappend fpatlist "(url NOT LIKE $qpattern OR title NOT LIKE $qpattern)"
     } elseif {$fprefix == "%"} {
-      lappend fpatlist "user LIKE '[urllog_escape $fpattern]'"
+      lappend fpatlist "user LIKE $qpattern"
     } elseif {$fprefix == "@"} {
       # foo
     } elseif {$fprefix == "+"} {
-      lappend fpatlist "url LIKE '%[urllog_escape $fpattern]%'"
+      lappend fpatlist "(url LIKE $qpattern OR title LIKE $qpattern)"
     } else {
-      lappend fpatlist "url LIKE '%[urllog_escape $ftoken]%'"
+      set qpattern "'%[urllog_escape $ftoken]%'"
+      lappend fpatlist "(url LIKE $qpattern OR title LIKE $qpattern)"
     }
   }