Overview
| Comment: | Fixed crash on dashboard start if monitor.db is not already existing. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dev |
| Files: | files | file ages | folders |
| SHA1: |
2e2bb64d671b7cc152fd811c4343ecb7 |
| User & Date: | matt on 2013-07-19 00:23:18 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-07-21
| ||
| 17:18 | Merged v1.55 branch into development check-in: e5526cab47 user: matt tags: dev | |
|
2013-07-19
| ||
| 00:47 | Merged development fixes to v1.55 for v1.5508 patch release check-in: 5106361595 user: mrwellan tags: v1.55, v1.5508 | |
| 00:23 | Fixed crash on dashboard start if monitor.db is not already existing. check-in: 2e2bb64d67 user: matt tags: dev | |
| 00:14 | Added getrow and getcol names to refdb check-in: 1af0ca8ba5 user: matt tags: dev | |
Changes
Modified dashboard.scm from [2f09020f14] to [a4e53bb6b5].
| ︙ | |||
1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 | 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 | + + + + |
(define (dashboard:recalc modtime please-update-buttons last-db-update-time)
(or please-update-buttons
(and (> modtime last-db-update-time)
(> (current-seconds)(+ last-db-update-time 1)))))
(define *monitor-db-path* (conc *toppath* "/monitor.db"))
(define *last-monitor-update-time* 0)
;; Force creation of the db in case it isn't already there.
(let ((db (tasks:open-db)))
(sqlite3:finalize! db))
(define (dashboard:run-update x)
(let* ((modtime (file-modification-time *db-file-path*))
(monitor-modtime (file-modification-time *monitor-db-path*))
(run-update-time (current-seconds))
(recalc (dashboard:recalc modtime *please-update-buttons* *last-db-update-time*)))
(if (and (eq? *current-tab-number* 0)
|
| ︙ |