blob: 6ada96774d10f53f1c4123628487f16355753950 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(ns lezer.model.sessions
(:require lezer.db :refer [conn])
(:require phel.pdo)
(:require phel.sql))
(defn for-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 [fields]
(pdo/insert conn :books_sessions fields))
|
