Mercurial > hg > egg-tcls

changeset 109:74cb254dbf09

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog and quotedb: Handle "+"-prefix in searches as it is documented.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 19 Sep 2011 21:18:57 +0300
parents d9de3870b72e
children 4aa1e1d545ed
files quotedb.tcl urllog.tcl
diffstat 2 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/quotedb.tcl	Wed Sep 14 19:34:23 2011 +0300
+++ b/quotedb.tcl	Mon Sep 19 21:18:57 2011 +0300
@@ -419,6 +419,8 @@
       lappend fpatlist "user='[qdb_escape $fpattern]'"
     } elseif {$fprefix == "@"} {
       # foo
+    } elseif {$fprefix == "+"} {
+      lappend fpatlist "utext LIKE '%[qdb_escape $fpattern]%'"
     } else {
       lappend fpatlist "utext LIKE '%[qdb_escape $ftoken]%'"
     }
--- a/urllog.tcl	Wed Sep 14 19:34:23 2011 +0300
+++ b/urllog.tcl	Mon Sep 19 21:18:57 2011 +0300
@@ -584,6 +584,8 @@
       lappend fpatlist "user='[urllog_escape $fpattern]'"
     } elseif {$fprefix == "@"} {
       # foo
+    } elseif {$prefix == "+"} {
+      lappend fpatlist "url LIKE '%[urllog_escape $fpattern]%'"
     } else {
       lappend fpatlist "url LIKE '%[urllog_escape $ftoken]%'"
     }