Overview
| Comment: | Missed a runremote |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
cff566396efa99526e6b1635142c5b1a |
| User & Date: | matt on 2013-08-17 17:07:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-08-18
| ||
| 00:35 | Implemented (but not tested) triggers check-in: 8fbf618bd9 user: matt tags: v1.55 | |
|
2013-08-17
| ||
| 17:07 | Missed a runremote check-in: cff566396e user: matt tags: v1.55 | |
| 00:31 | Moved db:test-set-state-status-by-id to mt:test-set-state-status-by-id for better transaction caching check-in: b256e83e85 user: matt tags: v1.55 | |
Changes
Modified mt.scm from [c659fc340c] to [8d32b77738].
| ︙ | ︙ | |||
105 106 107 108 109 110 111 |
;; speed up for common cases with a little logic
(define (mt:test-set-state-status-by-id test-id newstate newstatus newcomment)
(cond
((and newstate newstatus newcomment)
(cdb:client-call *runremote* 'state-status-msg #t *default-numtries* newstate newstatus newcomment test-id))
((and newstate newstatus)
| | | 105 106 107 108 109 110 111 112 113 114 115 116 117 |
;; speed up for common cases with a little logic
(define (mt:test-set-state-status-by-id test-id newstate newstatus newcomment)
(cond
((and newstate newstatus newcomment)
(cdb:client-call *runremote* 'state-status-msg #t *default-numtries* newstate newstatus newcomment test-id))
((and newstate newstatus)
(cdb:client-call *runremote* 'state-status #t *default-numtries* newstate newstatus test-id))
(else
(if newstate (cdb:client-call *runremote* 'set-test-state #t *default-numtries* newstate test-id))
(if newstatus (cdb:client-call *runremote* 'set-test-status #t *default-numtries* newstatus test-id))
(if newcomment (cdb:client-call *runremote* 'set-test-comment #t *default-numtries* newcomment test-id))))
(db:process-triggers test-id newstate newstatus))
|