diff options
Diffstat (limited to 'src/controller')
| -rw-r--r-- | src/controller/routes.phel | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/src/controller/routes.phel b/src/controller/routes.phel index 6e825fe..d891ec4 100644 --- a/src/controller/routes.phel +++ b/src/controller/routes.phel @@ -26,6 +26,15 @@ (pdo/execute params) (pdo/fetch-all)))) +(defn- get-sessions-by-book [book] + (let [[query params] (sql/format + {:select [:*] + :from [:books_sessions] + :where [:= :book_id (:id book)]})] + (-> (pdo/prepare conn query) + (pdo/execute params) + (pdo/fetch-all)))) + (defn- create-book [fields] (pdo/insert conn :books fields)) @@ -90,9 +99,12 @@ :body (index-html books router)}))) (defn book-view-handler [request] - (let [id (get-in request [:attributes :match :path-params :id])] + (let [id (get-in request [:attributes :match :path-params :id]) + book (get-book-by-id id)] (h/response-from-map {:status 200 - :body (book-html (get-book-by-id id))}))) + :body (book-html (conj book + {:authors (get-authors-by-book book) + :sessions (get-sessions-by-book book)}))}))) (defn book-create-handler [request] (let [title (get-in request [:parsed-body "title"]) |