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

Adds the company drop down to new pages

Browse Source
This commit is contained in:
Bryce Covert
2023-01-20 10:45:50 -08:00
parent 447ee308b1
commit 7a8267f09f
9 changed files with 60 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/clj/auto_ap/ssr/admin.clj
View File

@@ -3,7 +3,8 @@
[auto-ap.datomic :refer [conn]]
[auto-ap.logging :as alog]
[auto-ap.shared-views.admin.side-bar :refer [admin-side-bar]]
[auto-ap.ssr.ui :refer [base-page html-response]]
[auto-ap.ssr.ui :refer [base-page]]
[auto-ap.ssr.utils :refer [html-response]]
[auto-ap.time :as atime]
[clj-time.coerce :as coerce]
[clojure.string :as str]
@@ -149,7 +150,7 @@
(if (get (:headers request) "hx-request")
(html-response
(table entity-id best-guess-entity history))
(base-page (page-template :table (table entity-id best-guess-entity history)
(base-page request (page-template :table (table entity-id best-guess-entity history)
:entity-id entity-id)
(admin-side-bar :admin-history))))
(catch NumberFormatException _
@@ -189,8 +190,9 @@
[:div.notification.is-danger.is-light
"Cannot parse the entity-id " entity-id ". It should be a number."]))))
(defn history [{:keys [matched-route]}]
(base-page (page-template )
(defn history [{:keys [matched-route] :as request}]
(base-page request
(page-template )
(admin-side-bar matched-route)))