48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
+
|
(cnt (pgdb:get-latest-run-cnt-by-pattern dbh pattern))
(total-pages (ceiling (/ cnt limit)))
(page-lst (pgdb:get-pg-lst total-pages))
(ordered-data (pgdb:coalesce-runs1 all-data)))
(s:div 'class "col_12"
(s:ul 'class "tabs left"
(map (lambda (x)
(s:li (s:a 'href (conc "#" x) x)))
*process*))
(map (lambda (x)
(s:div 'id x 'class "tab-content"
(s:div 'class "col_11"
|
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
+
+
|
(s:br)
; (s:p (conc bp (s:get-param "bp") (s:get "bp")))
(s:p (map
(lambda (i)
(s:span (s:a 'href (s:link-to "home" 'pg i ) "PAGE " i )" | "))
page-lst))
(s:p " Result Format: total / pass / fail / other")
(if (equal? x bp)
(begin
(s:fieldset (conc "Runs data for " pattern)
(let* ((a-keys (pgdb:ordered-data->a-keys ordered-data))
(b-keys (pgdb:ordered-data->b-keys ordered-data a-keys)))
(s:table 'class "striped"
(s:tr (s:th 'class "heading" )
(map
(lambda (th-key)
|
139
140
141
142
143
144
145
146
147
|
142
143
144
145
146
147
148
149
150
151
152
|
+
+
-
+
|
(s:tr (s:td history-key)
(s:td 'style (conc "background: -webkit-linear-gradient(left, green " passper "%, red); background: -o-linear-gradient(right, green " passper "%, red); background: -moz-linear-gradient(right, green " passper "%, red); background: linear-gradient(to right, green " passper "%, red);")
(conc htotal "/" hpass "/" hfail "/" hother )))))
history-keys)))))))
(s:td ""))))
a-keys)))
b-keys))))
)
(begin
)))
(s:p ""))))))
*process*))))
|