Overview
| Comment: | Minor tidy up |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dev |
| Files: | files | file ages | folders |
| SHA1: |
bed5e29b04a89181fe06b322cd0ee879 |
| User & Date: | mrwellan on 2013-06-06 23:19:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-06-06
| ||
| 23:20 | Added back accidentally removed repl code check-in: 8238ea996e user: mrwellan tags: dev | |
| 23:19 | Minor tidy up check-in: bed5e29b04 user: mrwellan tags: dev | |
|
2013-06-05
| ||
| 21:46 | Merged test7 back into development check-in: 08c673ba76 user: mrwellan tags: dev | |
Changes
Modified dashboard.scm from [3c784670ef] to [d7394c8da8].
| ︙ | ︙ | |||
196 197 198 199 200 201 202 | (debug:print 6 "update-rundat, got " (length runs) " runs") (if (> (+ *last-update* 300) (current-seconds)) ;; every five minutes (begin (set! *last-update* (current-seconds)) (set! *tot-run-count* (length runs)))) ;; ;; trim runs to only those that are changing often here | < | 196 197 198 199 200 201 202 203 204 205 206 207 208 209 | (debug:print 6 "update-rundat, got " (length runs) " runs") (if (> (+ *last-update* 300) (current-seconds)) ;; every five minutes (begin (set! *last-update* (current-seconds)) (set! *tot-run-count* (length runs)))) ;; ;; trim runs to only those that are changing often here ;; (for-each (lambda (run) (let* ((run-id (db:get-value-by-header run header "id")) (tests (let ((tsts (cdb:remote-run db:get-tests-for-run #f run-id testnamepatt states statuses))) (if *tests-sort-reverse* (reverse tsts) tsts))) (key-vals (cdb:remote-run db:get-key-vals #f run-id))) ;; Not sure this is needed? |
| ︙ | ︙ |