Changes In Branch html-gen Through [a14f319e40] Excluding Merge-Ins
This is equivalent to a diff from 701c6c5840 to a14f319e40
|
2017-02-09
| ||
| 14:58 | merged with 1.63 check-in: 92e21f36b6 user: pjhatwal tags: html-gen | |
| 14:49 | added links to static html to point to logs check-in: a14f319e40 user: pjhatwal tags: html-gen | |
|
2017-02-04
| ||
| 22:47 | Fixed crash due to old usage of run-id check-in: 11ed7c771f user: matt tags: v1.63 | |
|
2017-02-03
| ||
| 17:15 | merged with v1.63 check-in: b4a8031723 user: pjhatwal tags: html-gen | |
| 17:01 | fix bug check-in: 701c6c5840 user: bjbarcla tags: v1.63 | |
| 16:25 | fixed the html genrate message check-in: 7a120e7604 user: pjhatwal tags: v1.63, v1.6306 | |
Modified tests.scm from [e19b1bb1d2] to [d009ac4bdc].
| ︙ | ︙ | |||
772 773 774 775 776 777 778 |
(let* ((res (s:tr 'class item-name
(s:td item-name 'class "test" )
(map (lambda (run)
(let* ((run-test (hash-table-ref/default item-hash item-name #f))
(run-id (db:get-value-by-header run header "id"))
(result (hash-table-ref/default run-test run-id "n/a"))
(status (if (string? result)
| | | > | < < | | | 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 |
(let* ((res (s:tr 'class item-name
(s:td item-name 'class "test" )
(map (lambda (run)
(let* ((run-test (hash-table-ref/default item-hash item-name #f))
(run-id (db:get-value-by-header run header "id"))
(result (hash-table-ref/default run-test run-id "n/a"))
(status (if (string? result)
result
(car result)))
(link (if (string? result)
result
(s:a (car result) 'href (cadr result)))))
(s:td link 'class status)))
runs))))
res))
item-keys)))
test-list)))))
(close-output-port oup)
; (set! page (+ 1 page))
(if (> total-runs (* (+ 1 page) pg-size))
|
| ︙ | ︙ |