Overview
| Comment: | Initialize placeholder record to correct length in db:get-run-info |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
e0fb47126299bf54bfdf53d5df3a41fd |
| User & Date: | mrwellan on 2022-02-14 19:49:09 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-02-14
| ||
| 19:55 | Reduce some delays in runsmod, they seem unnecessarily large check-in: bd4b43b9ec user: mrwellan tags: v2.0001 | |
| 19:49 | Initialize placeholder record to correct length in db:get-run-info check-in: e0fb471262 user: mrwellan tags: v2.0001 | |
| 19:36 | Fixed double paren bug in dashboard check-in: 01de08afc5 user: mrwellan tags: v2.0001 | |
Changes
Modified dbmod.scm from [ea76b7f54c] to [5221573abf].
| ︙ | ︙ | |||
2953 2954 2955 2956 2957 2958 2959 | ;; use (get-value-by-header (db:get-header runinfo)(db:get-rows runinfo)) ;; NOTE: Does NOT return a list of rows (or one row) for the first slot of the vector ;; this is inconsistent with get-runs but it makes some sense. ;; (define (db:get-run-info dbstruct run-id) ;;(if (hash-table-ref/default *run-info-cache* run-id #f) ;; (hash-table-ref *run-info-cache* run-id) | | | 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963 2964 2965 2966 2967 |
;; use (get-value-by-header (db:get-header runinfo)(db:get-rows runinfo))
;; NOTE: Does NOT return a list of rows (or one row) for the first slot of the vector
;; this is inconsistent with get-runs but it makes some sense.
;;
(define (db:get-run-info dbstruct run-id)
;;(if (hash-table-ref/default *run-info-cache* run-id #f)
;; (hash-table-ref *run-info-cache* run-id)
(let* ((res (make-vector 11 #f))
(keys (db:get-keys dbstruct))
(remfields (list "id" "runname" "state" "status" "owner" "event_time" "comment" "fail_count" "pass_count" "contour" "last_update")) ;; "area_id"))
(header (append keys remfields))
(keystr (conc (keys->keystr keys) ","
(string-intersperse remfields ","))))
(debug:print-info 11 *default-log-port* "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
|
| ︙ | ︙ |