Overview
| Comment: | Fixed bug with remove-runs removing a run record when tests still existed |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
88d5b2682aa828b346897e98b157f524 |
| User & Date: | mrwellan on 2012-04-20 12:12:53 |
| Other Links: | manifest | tags |
Context
|
2012-04-22
| ||
| 16:57 | Merged some layabout changes check-in: a378c1f1a9 user: matt tags: trunk | |
|
2012-04-20
| ||
| 22:29 | Extend test get path check-in: 8f2a9bcf7c user: mrwellan tags: extend-test-get-path | |
| 12:12 | Fixed bug with remove-runs removing a run record when tests still existed check-in: 88d5b2682a user: mrwellan tags: trunk | |
|
2012-04-19
| ||
| 23:58 | go ahead and merge to trunk check-in: a06af4450a user: matt tags: trunk | |
Changes
Modified db.scm from [27dc22ce24] to [2c88e7344f].
| ︙ | ︙ | |||
292 293 294 295 296 297 298 |
(string-intersperse remfields ","))))
(list keystr header)))
;; make a query (fieldname like 'patt1' OR fieldname
(define (db:patt->like fieldname pattstr #!key (comparator " OR "))
(let ((patts (if (string? pattstr)
(string-split pattstr ",")
| | | 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 |
(string-intersperse remfields ","))))
(list keystr header)))
;; make a query (fieldname like 'patt1' OR fieldname
(define (db:patt->like fieldname pattstr #!key (comparator " OR "))
(let ((patts (if (string? pattstr)
(string-split pattstr ",")
'("%"))))
(string-intersperse (map (lambda (patt)
(conc fieldname " LIKE '" patt "'"))
(if (null? patts)
'("")
patts))
comparator)))
|
| ︙ | ︙ |