Overview
| Comment: | Fixed missing qualifier on triggers for last_update. Write current seconds to necessary data structure, subtracting 2 to ensure all records are retrieved |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
074dd23a4e17b93ce8c8a7f826b9a176 |
| User & Date: | matt on 2016-05-08 18:28:04 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-05-08
| ||
| 22:22 | Fixed few bugs check-in: 4c0b8cd38e user: matt tags: v1.61 | |
| 18:28 | Fixed missing qualifier on triggers for last_update. Write current seconds to necessary data structure, subtracting 2 to ensure all records are retrieved check-in: 074dd23a4e user: matt tags: v1.61 | |
| 17:38 | Added hash to version on -version. check-in: 5069be9015 user: matt tags: v1.61 | |
Changes
Modified dashboard.scm from [fb7b01dd3c] to [a15f7636ed].
| ︙ | ︙ | |||
368 369 370 371 372 373 374 | tmptests (append tmptests prev-tests)) (lambda (a b) (eq? (db:test-get-id a)(db:test-get-id b))))))) (if (eq? *tests-sort-reverse* 3) ;; +event_time (sort newdat dboard:compare-tests) newdat)))) | > | | 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 |
tmptests
(append tmptests prev-tests))
(lambda (a b)
(eq? (db:test-get-id a)(db:test-get-id b)))))))
(if (eq? *tests-sort-reverse* 3) ;; +event_time
(sort newdat dboard:compare-tests)
newdat))))
(vector-set! prev-dat 3 (- (current-seconds) 2)) ;; go back two seconds in time to ensure all changes are captured.
;; (debug:print 0 "(dboard:get-tests-for-run-duplicate: filters-changed=" (d:alldat-filters-changed data) " last-update=" last-update " got " (length tmptests) " test records for run " run-id)
tests))
;; create a virtual table of all the tests
;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
(define (update-rundat data runnamepatt numruns testnamepatt keypatts)
(let* ((referenced-run-ids '())
(allruns (if (d:alldat-useserver data)
|
| ︙ | ︙ |
Modified db.scm from [f24766a7ed] to [55f3b71768].
| ︙ | ︙ | |||
855 856 857 858 859 860 861 | (handle-exceptions exn (if (string-match ".*duplicate.*" ((condition-property-accessor 'exn 'message) exn)) (debug:print 0 "Column last_update already added to " table-name " table") (db:general-sqlite-error-dump exn "alter table " table-name " ..." #f "none")) (sqlite3:execute frundb | | | | > > > | | > < > | 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 |
(handle-exceptions
exn
(if (string-match ".*duplicate.*" ((condition-property-accessor 'exn 'message) exn))
(debug:print 0 "Column last_update already added to " table-name " table")
(db:general-sqlite-error-dump exn "alter table " table-name " ..." #f "none"))
(sqlite3:execute
frundb
(conc "ALTER TABLE " table-name " ADD COLUMN last_update INTEGER DEFAULT 0")))
(sqlite3:execute
frundb
(conc "DROP TRIGGER IF EXISTS update_" table-name "_trigger;"))
(sqlite3:execute
frundb
(conc "CREATE TRIGGER IF NOT EXISTS update_" table-name "_trigger AFTER UPDATE ON " table-name "
FOR EACH ROW
BEGIN
UPDATE " table-name " SET last_update=(strftime('%s','now'))
WHERE id=old.id;
END;"))
)
'("tests" "test_steps" "test_data"))))))
all-run-ids)
;; removed deleted runs
(let ((dbdir (tasks:get-task-db-path)))
(for-each (lambda (run-id)
(let ((fullname (conc dbdir "/" run-id ".db")))
(if (file-exists? fullname)
|
| ︙ | ︙ |