1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
|
;; Update run_stats for given run_id
;; input data is a list (state status count)
;;
(define (db:update-run-stats dbstruct run-id stats-in)
(let* ((stats (if (list? stats-in)
stats-in
(db:get-raw-run-stats run-id))))
(mutex-lock! *db-transaction-mutex*)
(db:with-db
dbstruct
#f
#t
(lambda (dbdat db)
;; remove previous data
|
|
|
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
|
;; Update run_stats for given run_id
;; input data is a list (state status count)
;;
(define (db:update-run-stats dbstruct run-id stats-in)
(let* ((stats (if (list? stats-in)
stats-in
(db:get-raw-run-stats dbstruct run-id))))
(mutex-lock! *db-transaction-mutex*)
(db:with-db
dbstruct
#f
#t
(lambda (dbdat db)
;; remove previous data
|