view/book: Show some info about the book

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"])