|
|
@@ -300,15 +300,21 @@
|
|
|
|
|
|
true
|
|
|
(dissoc :insert-blocks?)))]
|
|
|
- (when-not (and (:create-today-journal? tx-meta)
|
|
|
- (:today-journal-name tx-meta)
|
|
|
- (seq tx-data)
|
|
|
- (d/entity @conn [:block/name (:today-journal-name tx-meta)])) ; today journal created already
|
|
|
-
|
|
|
- ;; (prn :debug :transact :tx-data tx-data :tx-meta tx-meta')
|
|
|
-
|
|
|
- (worker-util/profile "Worker db transact"
|
|
|
- (ldb/transact! conn tx-data tx-meta')))
|
|
|
+ (if (and (:create-today-journal? tx-meta)
|
|
|
+ (:today-journal-name tx-meta)
|
|
|
+ (seq tx-data)
|
|
|
+ (d/entity @conn [:block/name (:today-journal-name tx-meta)])) ; today journal created already
|
|
|
+
|
|
|
+ ;; remove task from ldb/*request-id->response
|
|
|
+ (worker-util/post-message :sync-db-changes (pr-str
|
|
|
+ {:request-id (:request-id tx-meta)
|
|
|
+ :repo repo
|
|
|
+ :tx-data []
|
|
|
+ :tx-meta nil}))
|
|
|
+ (do
|
|
|
+ ;; (prn :debug :transact :tx-data tx-data :tx-meta tx-meta')
|
|
|
+ (worker-util/profile "Worker db transact"
|
|
|
+ (ldb/transact! conn tx-data tx-meta'))))
|
|
|
nil)
|
|
|
(catch :default e
|
|
|
(prn :debug :error)
|