13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(target-param (s:get-param 'target))
(target1 (if (s:get "target")
(s:get "target")
(s:get-param 'target)))
(target (if (equal? target1 #f)
"%"
(string-substitute "_x_" "/" target1 'all)
))
(run-filter (or (s:get "run-name-filter") "%"))
(runs (pgdb:get-runs-by-target dbh target run-filter))
(ordered-runs (pgdb:runs-to-hash runs)))
(s:div 'class "col_12"
(s:fieldset
"Run filter"
(s:form
|
|
>
|
|
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
(target-param (s:get-param 'target))
(target1 (if (s:get "target")
(s:get "target")
(s:get-param 'target)))
(target (if (equal? target1 #f)
"%"
(string-substitute "_x_" "/" target1 'all)
))
(run-filter (or (or (s:get "run-name-filter") (s:get-param 'run)) "%"))
(runs (pgdb:get-runs-by-target dbh target run-filter))
(ordered-runs (pgdb:runs-to-hash runs)))
(s:div 'class "col_12"
(s:fieldset
"Run filter"
(s:form
|
62
63
64
65
66
67
68
69
70
71
72
73
74
|
(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 )
(s:a 'href (s:link-to "log" 'testid test-id)
result)))
(s:td ""))))
a-keys)))
b-keys)))))))
|
|
|
63
64
65
66
67
68
69
70
71
72
73
74
75
|
(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 )
(s:a 'class "white" 'href (s:link-to "log" 'testid test-id)
result)))
(s:td ""))))
a-keys)))
b-keys)))))))
|