Mercurial > hg > egg-tcls
changeset 128:0d21b9d1d2b9
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)" } }