Overview
| Comment: | Fixed minor breakage from previous commit |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | run-mgr |
| Files: | files | file ages | folders |
| SHA1: |
c5853b67b1e6ff01aba0da66b868f753 |
| User & Date: | matt on 2017-02-16 21:52:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-16
| ||
| 22:06 | Fixed launching of viewscreen causing hesitation on cleanrunexecute check-in: d2a7fb2fe4 user: matt tags: run-mgr | |
| 21:52 | Fixed minor breakage from previous commit check-in: c5853b67b1 user: matt tags: run-mgr | |
| 21:42 | Fixed wildcards in runconfigs, cleared some output debug noise. check-in: 2feae1cd63 user: matt tags: run-mgr | |
Changes
Modified db.scm from [3ef8737d8d] to [b010476b5f].
| ︙ | ︙ | |||
2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 2537 2538 2539 |
;;
;; NOTE: run-id is not used
;; ;;
(define (db:test-set-state-status dbstruct run-id test-id newstate newstatus newcomment)
(db:with-db
dbstruct
;; run-id
#t
(lambda (db)
(cond
((and newstate newstatus newcomment)
(sqlite3:execute db "UPDATE tests SET state=?,status=?,comment=? WHERE id=?;" newstate newstatus newcomment ;; (sdb:qry 'getid newcomment)
test-id))
((and newstate newstatus)
| > | 2526 2527 2528 2529 2530 2531 2532 2533 2534 2535 2536 2537 2538 2539 2540 |
;;
;; NOTE: run-id is not used
;; ;;
(define (db:test-set-state-status dbstruct run-id test-id newstate newstatus newcomment)
(db:with-db
dbstruct
;; run-id
#f
#t
(lambda (db)
(cond
((and newstate newstatus newcomment)
(sqlite3:execute db "UPDATE tests SET state=?,status=?,comment=? WHERE id=?;" newstate newstatus newcomment ;; (sdb:qry 'getid newcomment)
test-id))
((and newstate newstatus)
|
| ︙ | ︙ |