Differences From Artifact [eebc3b006f]:
- File cgisetup/pages/run_view.scm — part of check-in [775941d835] at 2017-03-03 18:11:27 on branch v1.64 — updated runs view to grab runs from pgsql (user: pjhatwal, size: 1863) [annotate] [blame] [check-ins using]
To Artifact [c77bd39564]:
- File cgisetup/pages/run_view.scm — part of check-in [5eb5a9cc5d] at 2017-03-06 19:19:59 on branch v1.64 — added logs link (user: pjhatwal, size: 1938) [annotate] [blame] [check-ins using]
| ︙ | |||
34 35 36 37 38 39 40 41 42 43 44 | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | + - + |
(s:tr (s:td row-key)
(map
(lambda (col-key)
(let ((val (let* ((ht (hash-table-ref/default ordered-runs col-key #f)))
(if ht (hash-table-ref/default ht row-key #f)))))
(if val
(let* ((result (vector-ref val 2))
(test-id (vector-ref val 4))
(bg (if (equal? result "PASS")
"green"
"red")))
(s:td 'style (conc "background: " bg )
|