diff options
Diffstat (limited to 'src/controller')
| -rw-r--r-- | src/controller/routes.phel | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/controller/routes.phel b/src/controller/routes.phel index 2e537db..7e1cde8 100644 --- a/src/controller/routes.phel +++ b/src/controller/routes.phel @@ -37,6 +37,22 @@ :updated_at time}))}))))) (h/response-from-map {:status 301 :headers {:location "/"}})) +(defn book-session-create-handler [request] + (let [id (get-in request [:attributes :match :path-params :id]) + time (php/time)] + (pdo/with-transaction conn + (let [session-id (pdo/insert conn :books_sessions {:book_id id + :status "started" + :started_at time + :created_at time + :updated_at time})] + (pdo/insert conn :sessions_progress {:session_id session-id + :progress 0 + :total 0 + :created_at time + :updated_at time})))) + (h/response-from-map {:status 301 :headers {:location "/"}})) + (defn author-view-handler [req] (let [id (get-in req [:attributes :match :path-params :id]) author (first (pdo/select conn "select * from authors where id = :author_id" {:author_id id})) |