makes client selection not contanimate other tabs
This commit is contained in:
@@ -120,8 +120,6 @@
|
||||
(exact-match-id* request)]])
|
||||
|
||||
|
||||
|
||||
|
||||
(defn fetch-ids [db {:keys [query-params route-params] :as request}]
|
||||
(let [valid-clients (extract-client-ids (:clients request)
|
||||
(:client-id request)
|
||||
@@ -556,10 +554,10 @@
|
||||
_ (audit-transact tx identity)]
|
||||
(alog/info ::unvoiding-invoice :transaction :tx)
|
||||
(html-response
|
||||
(row* identity (dc/pull (dc/db conn) default-read id) {:flash? true
|
||||
:request request})
|
||||
:headers (cond-> {"hx-retarget" (format "#entity-table tr[data-id=\"%d\"]" id)
|
||||
"hx-reswap" "outerHTML"}))))
|
||||
(row* identity (dc/pull (dc/db conn) default-read id) {:flash? true
|
||||
:request request})
|
||||
:headers (cond-> {"hx-retarget" (format "#entity-table tr[data-id=\"%d\"]" id)
|
||||
"hx-reswap" "outerHTML"}))))
|
||||
|
||||
(defn delete [{invoice :entity :as request identity :identity}]
|
||||
(exception->notification
|
||||
@@ -1137,7 +1135,7 @@
|
||||
(->> (dc/q '[:find ?i
|
||||
:in $ [?i ...]
|
||||
:where [?i :invoice/status :invoice-status/unpaid]
|
||||
[?i :invoice/client ?c] ]
|
||||
[?i :invoice/client ?c]]
|
||||
(dc/db conn)
|
||||
ids)
|
||||
(map first)))
|
||||
|
||||
Reference in New Issue
Block a user