Mercurial > hg > egg-tcls

changeset 128:0d21b9d1d2b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Improve search functionality.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 17 Sep 2012 17:33:47 +0300
parents bfb398057543
children d981f51b39c2
files urllog.tcl
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)"
     }
   }