From 24fc3ae9367fab7468cd3600cc4c3f61ad9506f6 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 9 Sep 2026 23:09:18 -0700
Subject: view/book: Show some info about the book

---
 src/controller/routes.phel | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'src/controller/routes.phel')

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"])
-- 
cgit v1.3-2-g0d8e