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
|
;'() )
; (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)))
(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)
(list x ))
*kit-types*)
'name "kit-type"))
(s:div 'class "col_3"
(s:label "Dot") (s:select (map (lambda (x)
(list x ))
*dots*)
'name "dot"))
(s:div 'class "col_3"
(s:input 'type "hidden" 'value x 'name "bp")
(s:label "Release #") (s:input 'list "suggestions" 'name "rel-num"))
(s:div 'class "col_2"
(s:input 'type "submit" 'name "set-filter-vals" 'value "Submit")))))
(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
|
|
>
>
>
|
>
>
|
>
>
|
|
|
|
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
|