1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
|
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
|
-
|
;; (print "one-run-updater, changed: " changed " pass-num: " pass-num)
(if changed (iup:attribute-set! run-matrix "REDRAW" "ALL")))))
(define (dashboard:xor-two-runs-updater commondat tabdat tb cell-lookup run-matrix )
(print "BB> HeLLooo from xor-two-runs-updater")
(let* ((runs-dat (rmt:get-runs-by-patt (dboard:tabdat-keys tabdat) "%" #f #f #f #f))
(runs-header (vector-ref runs-dat 0)) ;; 0 is header, 1 is list of records
(prev-run-id (dboard:tabdat-prev-run-id tabdat))
(curr-run-id (dboard:tabdat-curr-run-id tabdat))
(last-update 0) ;; fix me - have to create and store a rundat record for this
(dest-tests-dat (dboard:get-tests-dat tabdat curr-run-id last-update)) ;; does query to get run info
(src-tests-dat (dboard:get-tests-dat tabdat prev-run-id last-update)) ;; does query to get run info
|