Overview
| Comment: | corrected a typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.71 |
| Files: | files | file ages | folders |
| SHA1: |
46b8846fd761dfcfe445ff22966e5401 |
| User & Date: | mmgraham on 2023-05-17 16:43:41 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-04-01
| ||
| 11:10 | Changed .mtdb_v1.71 to .mtdb. Removed exit-on-version-changed. check-in: 32b4deecd4 user: mmgraham tags: v1.71 | |
|
2023-05-17
| ||
| 16:43 | corrected a typo check-in: 46b8846fd7 user: mmgraham tags: v1.71 | |
| 15:51 | changed .megatest dir to .mtdb_1.71. Put this name in a global dbdir check-in: 655edf212f user: mmgraham tags: v1.71 | |
Changes
Modified dashboard.scm from [e5f53915f0] to [381037dda7].
| ︙ | ︙ | |||
3887 3888 3889 3890 3891 3892 3893 | (define last-copy-time 0) ;; Sync to tmp only if in read-only mode. (define (sync-db-to-tmp tabdat) | | | 3887 3888 3889 3890 3891 3892 3893 3894 3895 3896 3897 3898 3899 3900 3901 |
(define last-copy-time 0)
;; Sync to tmp only if in read-only mode.
(define (sync-db-to-tmp tabdat)
(let* ((db-file (conc "./" *dbdir* "/main.db")))
(if (and (not (file-write-access? db-file)) ( > (current-seconds) (+ last-copy-time 5)))
(begin
(db:multi-db-sync (db:setup #f) 'old2new)
(set! last-copy-time (current-seconds))
)
)
)
|
| ︙ | ︙ |