Differences From Artifact [3b1178542b]:
- File runs.scm — part of check-in [f38b3dadbd] at 2012-04-04 19:41:50 on branch trunk — Merged in the removed based on state and status branch (user: mrwellan, size: 34273) [annotate] [blame] [check-ins using] [more...]
To Artifact [3c1812e6f4]:
- File runs.scm — part of check-in [2dca8d8f9a] at 2012-04-09 15:45:13 on branch trunk — Fixed issue with remove-runs so default is to remove all if :state and :status are not specified, fixed pattern match due to glob wierdness issue with running tests based on itempatt (user: mrwellan, size: 34351) [annotate] [blame] [check-ins using]
| ︙ | |||
72 73 74 75 76 77 78 79 80 81 82 83 84 85 | 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | + |
(lambda (val)
(debug:print 2 "setenv " (key:get-fieldname key) " " val)
(setenv (key:get-fieldname key) val))
db
(conc "SELECT " (key:get-fieldname key) " FROM runs WHERE id=?;")
run-id))
keys)
(alist->env-vars (hash-table-ref/default *configdat* "env-override" '()))
;; Lets use this as an opportunity to put MT_RUNNAME in the environment
(sqlite3:for-each-row
(lambda (runname)
(setenv "MT_RUNNAME" runname))
db
"SELECT runname FROM runs WHERE id=?;"
run-id)
|
| ︙ |