Overview
| Comment: | updates to home view |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-envdebug |
| Files: | files | file ages | folders |
| SHA1: |
ade6384a7b0e4d065e18076ffa901e58 |
| User & Date: | pjhatwal on 2017-04-17 17:17:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-04-19
| ||
| 18:14 | Merged in latest from v1.64 check-in: f72fea4b3b user: mrwellan tags: v1.65 | |
|
2017-04-17
| ||
| 17:17 | updates to home view Closed-Leaf check-in: ade6384a7b user: pjhatwal tags: v1.64-envdebug | |
|
2017-04-10
| ||
| 23:36 | fixed model in tab view check-in: 326a8e0ba4 user: pjhatwal tags: v1.64-envdebug | |
Changes
Modified cgisetup/models/pgdb.scm from [c47a2a291e] to [d635a1d0c3].
| ︙ | ︙ | |||
218 219 220 221 222 223 224 |
order by r.event_time desc limit ? offset ? ;"
ttype-id target-patt target-patt ttype-id limit offset))
(define (pgdb:get-latest-run-stats-given-pattern dbh patt limit offset)
(dbi:get-rows
dbh
;; "SELECT COUNT(t.id),t.status,r.target FROM tests AS t INNER JOIN runs AS r ON t.run_id=r.id
| | | | | 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 |
order by r.event_time desc limit ? offset ? ;"
ttype-id target-patt target-patt ttype-id limit offset))
(define (pgdb:get-latest-run-stats-given-pattern dbh patt limit offset)
(dbi:get-rows
dbh
;; "SELECT COUNT(t.id),t.status,r.target FROM tests AS t INNER JOIN runs AS r ON t.run_id=r.id
;; WHERE t.state='COMPLETED' AND ttype_id=? AND r.target ILIKE ? GROUP BY r.target,t.status;"
"SELECT r.target, r.event_time, COUNT(*) AS total,
SUM(CASE WHEN t.status='PASS' THEN 1 ELSE 0 END) AS pass,
SUM(CASE WHEN t.status='FAIL' THEN 1 ELSE 0 END) AS fail,
SUM(CASE WHEN t.status IN ('PASS','FAIL') THEN 0 ELSE 1 END) AS other, r.id
FROM tests AS t INNER JOIN runs AS r ON t.run_id=r.id
WHERE t.state like '%' AND r.target ILIKE ?
and r.id in
(SELECT DISTINCT on (target) id from runs where target ilike ? order by target,event_time desc)
GROUP BY r.target,r.id
order by r.event_time desc limit ? offset ? ;"
patt patt limit offset))
(define (pgdb:get-count-data-stats-target-latest dbh ttype-id target-patt)
(dbi:get-rows
|
| ︙ | ︙ | |||
259 260 261 262 263 264 265 |
cnt))
(define (pgdb:get-count-data-stats-latest-pattern dbh patt)
(dbi:get-rows
dbh
"SELECT count(*) from
(SELECT DISTINCT on (target) id
| | | 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 |
cnt))
(define (pgdb:get-count-data-stats-latest-pattern dbh patt)
(dbi:get-rows
dbh
"SELECT count(*) from
(SELECT DISTINCT on (target) id
from runs where target ilike ?
order by target, event_time desc
) as x;"
patt))
(define (pgdb:get-latest-run-cnt-by-pattern dbh target-patt)
(let* ((cnt-result (pgdb:get-count-data-stats-latest-pattern dbh target-patt))
;(cnt-row (car (cnt-result)))
|
| ︙ | ︙ |
Modified cgisetup/pages/home_view.scm from [66ecdd9591] to [f43ad9b3a3].
| ︙ | ︙ | |||
45 46 47 48 49 50 51 |
;'() )
; (pgdb:get-stats-given-type-target dbh selected tfilter)
; (pgdb:get-stats-given-target dbh tfilter)
(cnt (pgdb:get-latest-run-cnt-by-pattern dbh pattern))
(total-pages (ceiling (/ cnt limit)))
(page-lst (pgdb:get-pg-lst total-pages))
| | > > > | > > | > > | | | | 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 |
;'() )
; (pgdb:get-stats-given-type-target dbh selected tfilter)
; (pgdb:get-stats-given-target dbh tfilter)
(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))
(rel-val (if (equal? rel "")
"%"
rel)))
(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"
(s:fieldset "Area type and target filter"
(s:form
'action (conc "home.filter#" x) 'method "post"
(s:div 'class "col_12"
(s:div 'class "col_3"
(s:label "Release Type") (s:select (map (lambda (x)
(if (equal? x type)
(list x x x #t)
(list x x x #f)) )
*kit-types*)
'name "kit-type"))
(s:div 'class "col_3"
(s:label "Dot") (s:select (map (lambda (x)
(if (equal? x dot)
(list x x x #t)
(list x x x #f)))
*dots*)
'name "dot"))
(s:div 'class "col_3"
(s:input 'type "hidden" 'value x 'name "bp")
(s:label "Release #") (s:input 'type "text" 'name "rel-num" 'value rel-val))
(s:div 'class "col_2"
(s:input 'type "submit" 'name "set-filter-vals" 'value "Submit")))))
(s:br)
;(s:p (conc dot(string? dot) ))
(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
|
| ︙ | ︙ |