Megatest

Check-in [57c11951db]
Login
Overview
Comment:fixed run tab issue with ...-duplicate
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | runs-summary-context-menu
Files: files | file ages | folders
SHA1: 57c11951db8ae0427139978d2ef676049820769a
User & Date: bjbarcla on 2016-09-16 14:01:56
Other Links: branch diff | manifest | tags
Context
2016-09-16
14:32
wip check-in: e2034bf712 user: bjbarcla tags: runs-summary-context-menu
14:01
fixed run tab issue with ...-duplicate check-in: 57c11951db user: bjbarcla tags: runs-summary-context-menu
13:44
wip - dead end? check-in: 85fd17fcde user: bjbarcla tags: runs-summary-context-menu
Changes

Modified dashboard.scm from [c7bbda05bf] to [4f9265f1a6].

506
507
508
509
510
511
512

513

514
515
516
517
518
519
520
			 (let ((rd (dboard:rundat-make-init run: run key-vals: key-vals)))
			   (hash-table-set! (dboard:tabdat-allruns-by-id tabdat) run-id rd)
			   rd)))
	 ;; (prev-tests  (dboard:rundat-tests prev-dat)) ;; (vector-ref prev-dat 1))
         (last-update
          (if turn-off-query-optimization
              0

              (hash-table-ref/default (dboard:tabdat-run-update-times tabdat) run-id 0)))


	 (db-path     (or (dboard:rundat-db-path run-dat)
			  (let* ((db-dir (tasks:get-task-db-path))
				 (db-pth (conc db-dir "/" run-id ".db")))
			    (dboard:rundat-db-path-set! run-dat db-pth)
			    db-pth)))
	 (tmptests    (if (or turn-off-dbfile-timestamp-optimization







>
|
>







506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
			 (let ((rd (dboard:rundat-make-init run: run key-vals: key-vals)))
			   (hash-table-set! (dboard:tabdat-allruns-by-id tabdat) run-id rd)
			   rd)))
	 ;; (prev-tests  (dboard:rundat-tests prev-dat)) ;; (vector-ref prev-dat 1))
         (last-update
          (if turn-off-query-optimization
              0
              (dboard:rundat-last-update run-dat)
              ;;(hash-table-ref/default (dboard:tabdat-run-update-times tabdat) run-id 0)
              ))

	 (db-path     (or (dboard:rundat-db-path run-dat)
			  (let* ((db-dir (tasks:get-task-db-path))
				 (db-pth (conc db-dir "/" run-id ".db")))
			    (dboard:rundat-db-path-set! run-dat db-pth)
			    db-pth)))
	 (tmptests    (if (or turn-off-dbfile-timestamp-optimization