From 528cbf2ef570894aaf919ed3da0d3cd129a2c8e8 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 8 Sep 2026 00:43:46 -0700
Subject: db: Add created_at and updated_at fields in tables

---
 src/controller/routes.phel | 11 ++++++++---
 src/db.phel                |  4 ++--
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/src/controller/routes.phel b/src/controller/routes.phel
index b6335ca..2e537db 100644
--- a/src/controller/routes.phel
+++ b/src/controller/routes.phel
@@ -24,12 +24,17 @@
         subtitle (get-in request [:parsed-body "subtitle"])
         authors (str/split (get-in request [:parsed-body "author"]) #",")]
     (pdo/with-transaction conn
-      (let [book-id (pdo/insert conn :books {:title title
-                                             :subtitle subtitle})]
+      (let [time (php/time)
+            book-id (pdo/insert conn :books {:title title
+                                             :subtitle subtitle
+                                             :created_at time
+                                             :updated_at time})]
         (for [a :in authors]
           (pdo/insert conn :authors_books {:book_id book-id
                                            :author_id (or (pdo/fetch-column (pdo/query conn "select id from authors where name = :name" {:name a}))
-                                                          (pdo/insert conn :authors {:name a}))})))))
+                                                          (pdo/insert conn :authors {:name a
+                                                                                     :created_at time
+                                                                                     :updated_at time}))})))))
   (h/response-from-map {:status 301 :headers {:location "/"}}))
 
 (defn author-view-handler [req]
diff --git a/src/db.phel b/src/db.phel
index 3f50ccc..a83a290 100644
--- a/src/db.phel
+++ b/src/db.phel
@@ -4,6 +4,6 @@
 (def conn (pdo/connect "sqlite:test.db"))
 
 (defn initialize-database []
-  (pdo/exec conn "create table if not exists books (id integer primary key autoincrement, title varchar(255), subtitle varchar(255))")
-  (pdo/exec conn "create table if not exists authors (id integer primary key autoincrement, name varchar(255))")
+  (pdo/exec conn "create table if not exists books (id integer primary key autoincrement, title varchar(255), subtitle varchar(255), created_at integer, updated_at integer)")
+  (pdo/exec conn "create table if not exists authors (id integer primary key autoincrement, name varchar(255), created_at integer, updated_at integer)")
   (pdo/exec conn "create table if not exists authors_books (author_id integer, book_id integer)"))
-- 
cgit v1.3-2-g0d8e