Overview
| Comment: | quiet down the is-trigger-dropped messages |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70-refactor-procedures |
| Files: | files | file ages | folders |
| SHA1: |
8a05ecdb52d52a5c67099901efaf2f6c |
| User & Date: | matt on 2022-06-06 12:29:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-06-06
| ||
| 18:02 | Added double locking for opening db's check-in: 7b9e186d63 user: matt tags: v1.70-refactor-procedures | |
| 12:29 | quiet down the is-trigger-dropped messages check-in: 8a05ecdb52 user: matt tags: v1.70-refactor-procedures | |
|
2022-06-01
| ||
| 21:14 | speculative fix check-in: 2f1850785d user: matt tags: v1.70-refactor-procedures | |
Changes
Modified dbfile.scm from [6257400a66] to [d2586251fc].
| ︙ | ︙ | |||
986 987 988 989 990 991 992 |
(for-each
(lambda (targdb)
(let* ((db (dbr:dbdat-dbh targdb))
(drp-trigger (if (member "last_update" field-names)
(db:drop-trigger db tablename)
#f))
| > | > | > | < | 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 |
(for-each
(lambda (targdb)
(let* ((db (dbr:dbdat-dbh targdb))
(drp-trigger (if (member "last_update" field-names)
(db:drop-trigger db tablename)
#f))
(has-last-update (member "last_update" field-names))
(is-trigger-dropped (if has-last-update
(db:is-trigger-dropped db tablename)
#f))
(stmth (sqlite3:prepare db full-ins))
(changed-rows 0))
;; (db:delay-if-busy targdb) ;; NO WAITING
(if (and
has-last-update
(common:low-noise-print 120 "is-trigger-dropped"))
(dbfile:print-err "is-trigger-dropped: " is-trigger-dropped))
(for-each
(lambda (fromdat-lst)
(sqlite3:with-transaction
db
(lambda ()
(for-each ;;
(lambda (fromrow)
|
| ︙ | ︙ | |||
1116 1117 1118 1119 1120 1121 1122 |
(conc "update_" tbl-name "_trigger")))
(res #f))
(sqlite3:for-each-row
(lambda (name)
(if (equal? name trigger-name)
(set! res #t)))
db
| | | | 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 |
(conc "update_" tbl-name "_trigger")))
(res #f))
(sqlite3:for-each-row
(lambda (name)
(if (equal? name trigger-name)
(set! res #t)))
db
"SELECT name FROM sqlite_master WHERE type = 'trigger' ;")
res))
(define (db:drop-triggers db)
(for-each
(lambda (key)
(sqlite3:execute db (conc "drop trigger if exists " (car key))))
db:trigger-list))
|
| ︙ | ︙ |