Overview
| Comment: | removed duplicate rows |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
667aa76ce0023f9e7120faf688344e85 |
| User & Date: | pjhatwal on 2017-03-03 15:00:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-03-03
| ||
| 18:11 | updated runs view to grab runs from pgsql check-in: 775941d835 user: pjhatwal tags: v1.64 | |
| 15:00 | removed duplicate rows check-in: 667aa76ce0 user: pjhatwal tags: v1.64 | |
| 08:15 | Restructured to fix some sillyness, that first example was not good check-in: 3cd84125f8 user: matt tags: v1.64 | |
Changes
Modified cgisetup/pages/home_view.scm from [5519b84d66] to [258ad44e84].
| ︙ | ︙ | |||
65 66 67 68 69 70 71 | )) (s:fieldset (conc "Runs data for " tfilter) ;; ;; A very basic display ;; (let* ((a-keys (sort (hash-table-keys ordered-data) string>=?)) | | | > | > | 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 99 100 101 102 |
))
(s:fieldset
(conc "Runs data for " tfilter)
;;
;; A very basic display
;;
(let* ((a-keys (sort (hash-table-keys ordered-data) string>=?))
(b-keys (delete-duplicates(sort (apply
append
(map (lambda (sub-key)
(let ((subdat (hash-table-ref ordered-data sub-key)))
(hash-table-keys subdat)))
a-keys))
string>=?))))
; (c-keys (delete-duplicates b-keys)))
(if #f ;; swap rows/cols
(s:table
(s:tr (s:td "")(map s:tr b-keys))
(map
(lambda (row-key)
(let ((subdat (hash-table-ref ordered-data row-key)))
(s:tr (s:td row-key)
(map
(lambda (col-key)
(s:td (let ((dat (hash-table-ref/default subdat col-key #f)))
(s:td (if dat
(list (vector-ref dat 0)(vector-ref dat 1))
"")))))
b-keys))))
a-keys))
(s:table
(s:tr (s:td "")(map s:td a-keys))
(map
(lambda (row-key)
(s:tr (s:td row-key)
(map
(lambda (col-key)
|
| ︙ | ︙ |