summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2020-03-12 12:13:29 +0100
committerRicardo Wurmus <rekado@elephly.net>2020-03-12 12:13:29 +0100
commitf3fa1981daf5992342316a5680ae8657eab02c2b (patch)
treebb960a0179d003ff4251dfdca7f6407fe09ed94a
parent380eb969042d004ffeffe42479e249f2412ec3ca (diff)
bugs: Use inexact queries for names.
* mumi/bugs.scm (bugs-by-submitter, bugs-by-owner): Use LIKE to compare argument.
-rw-r--r--mumi/bugs.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/mumi/bugs.scm b/mumi/bugs.scm
index ef4a6bf..6e1e367 100644
--- a/mumi/bugs.scm
+++ b/mumi/bugs.scm
@@ -182,7 +182,8 @@ tags=excluded.tags;")
(with-db
(lambda (db)
(sqlite-exec db
- "SELECT id FROM bugs WHERE submitter = " submitter ";")))))
+ "SELECT id FROM bugs WHERE submitter LIKE "
+ (string-append "%" submitter "%") ";")))))
(define (bugs-by-owner owner)
"Return all bug ids with the given OWNER."
@@ -190,7 +191,8 @@ tags=excluded.tags;")
(with-db
(lambda (db)
(sqlite-exec db
- "SELECT id FROM bugs WHERE owner = " owner ";")))))
+ "SELECT id FROM bugs WHERE owner LIKE "
+ (string-append "%" owner "%") ";")))))
(define (bugs-by-tag tag)
"Return all bug ids that match the given TAG."