notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

tweak.

Browse Source
This commit is contained in:
Bryce
2023-08-17 08:47:21 -07:00
parent ddbe5ed842
commit b81469d35c
1 changed files with 53 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/clj/auto_ap/ssr/transaction/insights.clj
View File

@@ -111,6 +111,7 @@
(defn transaction-row [r & {:keys [hide-actions? class last?]}] (defn transaction-row [r & {:keys [hide-actions? class last?]}]
(let [simality-list (try (pinecone-similarity-list (:db/id r)) (catch Exception e (let [simality-list (try (pinecone-similarity-list (:db/id r)) (catch Exception e
[]))] []))]
(when (seq simality-list)
(com/data-grid-row (com/data-grid-row
(cond-> {:class class} (cond-> {:class class}
last? (assoc :hx-get (bidi/path-for ssr-routes/only-routes last? (assoc :hx-get (bidi/path-for ssr-routes/only-routes
@@ -163,7 +164,7 @@
:transaction-id (:db/id r)) :transaction-id (:db/id r))
:hx-target "#modal-holder" :hx-target "#modal-holder"
:hx-swap "outerHTML"} :hx-swap "outerHTML"}
svg/question)]))))) svg/question)]))))))
(defn approve [{:keys [identity session] {:keys [transaction-id]} :route-params}] (defn approve [{:keys [identity session] {:keys [transaction-id]} :route-params}]
(let [approval-details (dc/pull (dc/db conn) [{:transaction/recommended-account [:account/location :db/id]} (let [approval-details (dc/pull (dc/db conn) [{:transaction/recommended-account [:account/location :db/id]}
@@ -240,7 +241,7 @@
[:tr [:tr
[:td (subs date 0 10)] [:td (subs date 0 10)]
[:td description] [:td description]
[:td amount] [:td (format "$%.2f" amount)]
[:td vendor-name] [:td vendor-name]
[:td numeric-code] [:td numeric-code]
[:td (format "%.1f%%" (* 100 (double score)))]]))]] [:td (format "%.1f%%" (* 100 (double score)))]]))]]