Overview
| Comment: | Tweaked eh |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | fixup |
| Files: | files | file ages | folders |
| SHA1: |
b3e41a697b4b7ac4ff273230065b4523 |
| User & Date: | mrwellan on 2011-10-01 17:43:34 |
| Other Links: | branch diff | manifest | tags |
Context
|
2011-10-01
| ||
| 17:43 | Tweaked eh Closed-Leaf check-in: b3e41a697b user: mrwellan tags: fixup (unpublished) | |
|
2011-09-28
| ||
| 11:18 | Fixed sorting on buttons in dashboard check-in: d4ffcebff2 user: mrwellan tags: fixup (unpublished) | |
Changes
Modified dashboard.scm from [ea9316dcf0] to [df0771f76d].
| ︙ | ︙ | |||
241 242 243 244 245 246 247 | ;(print "Removing " basetname " from items") #f) (else #t)))) inlst)) (vlst (run-item-name->vectors newlst)) ;; sort by second field (vlst-s1 (sort vlst (lambda (a b) | > > > | | 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 |
;(print "Removing " basetname " from items")
#f)
(else #t))))
inlst))
(vlst (run-item-name->vectors newlst))
;; sort by second field
(vlst-s1 (sort vlst (lambda (a b)
(let ((astr (vector-ref a 1))
(bstr (vector-ref b 1)))
(if (string=? astr "") #f #t)))))
;; (>= (string-length (vector-ref a 1))(string-length (vector-ref b 1))))))
(vlst-s2 (sort vlst-s1 (lambda (a b)
(string>= (vector-ref a 0)(vector-ref b 0))))))
(map (lambda (x)
(if (equal? (vector-ref x 1) "")
(vector-ref x 0)
(conc (vector-ref x 0) "(" (vector-ref x 1) ")")))
vlst-s2)))
|
| ︙ | ︙ |
Modified runs.scm from [ba29b0b8e2] to [5af9d47ec7].
| ︙ | ︙ | |||
798 799 800 801 802 803 804 | (debug:print 2 "Removing directory with zero db references: " dir-to-remove) (system (conc "rm -rf " dir-to-remove)) (hash-table-delete! dirs-to-remove dir-to-remove)) (debug:print 2 "Skipping removal of " dir-to-remove " for now as it still has references in the database"))))) (sort (hash-table-keys dirs-to-remove) (lambda (a b)(> (string-length a)(string-length b))))) ;; remove the run if zero tests remain | | | 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 | (debug:print 2 "Removing directory with zero db references: " dir-to-remove) (system (conc "rm -rf " dir-to-remove)) (hash-table-delete! dirs-to-remove dir-to-remove)) (debug:print 2 "Skipping removal of " dir-to-remove " for now as it still has references in the database"))))) (sort (hash-table-keys dirs-to-remove) (lambda (a b)(> (string-length a)(string-length b))))) ;; remove the run if zero tests remain (let ((remtests (db-get-tests-for-run db (db:get-value-by-header run header "id") #f #f))) (if (null? remtests) ;; no more tests remaining (let* ((dparts (string-split lasttpath "/")) (runpath (conc "/" (string-intersperse (take dparts (- (length dparts) 1)) "/")))) (debug:print 1 "Removing run: " runkey " " (db:get-value-by-header run header "runname")) (db:delete-run db run-id) |
| ︙ | ︙ |