|
|
|
@ -43,7 +43,7 @@
|
|
|
|
|
(qry session params)))
|
|
|
|
|
|
|
|
|
|
(defn exec-queries! [& tuples]
|
|
|
|
|
(with-open [session (db/get-session @conn)]
|
|
|
|
|
(db/with-transaction @conn tx
|
|
|
|
|
(doseq [tuple tuples]
|
|
|
|
|
(let [qry (first tuple)
|
|
|
|
|
params (second tuple)]
|
|
|
|
@ -51,7 +51,7 @@
|
|
|
|
|
(str (butiful-query qry)
|
|
|
|
|
"<br>---Params---<br>"
|
|
|
|
|
params))
|
|
|
|
|
(qry session params)))))
|
|
|
|
|
(qry tx params)))))
|
|
|
|
|
|
|
|
|
|
(defn now-str []
|
|
|
|
|
(time-format/unparse
|
|
|
|
|