From aaf4304c7cf6259fc00366608ce643cf9697a887 Mon Sep 17 00:00:00 2001 From: Tim Date: Sun, 25 May 2025 16:00:21 +0200 Subject: Make categories editable; TODO: store the root question --- src/chef/pages/admin/api.clj | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'src/chef/pages/admin/api.clj') diff --git a/src/chef/pages/admin/api.clj b/src/chef/pages/admin/api.clj index a15b897..38f40f7 100644 --- a/src/chef/pages/admin/api.clj +++ b/src/chef/pages/admin/api.clj @@ -39,3 +39,18 @@ (ruresp/status 200) (ruresp/header "HX-Refresh" "true"))) (ruresp/bad-request "Bad request.")))) + +(defn edit-category [req] + (cutils/auth-only req + (if-let [id (try (Integer/parseInt (get-in req [:path-params :id])) + (catch Exception _ nil))] + (do (when-let [name (get-in req [:params "name"])] + (jdbc/execute! @cdb/db (sql/format {:update :categories + :set {:name name} + :where [:= :id id]}))) + (when-let [question (get-in req [:params "question"])] + (jdbc/execute! @cdb/db (sql/format {:update :categories + :set {:question question} + :where [:= :id id]}))) + (ruresp/response "Updated.")) + (ruresp/bad-request "Bad request.")))) -- cgit v1.2.3