Make categories editable; TODO: store the root question

1 files changed, 15 insertions, 0 deletions

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."))))