From 8cb2c95d253f0a0c1216ac396288f38c238e6b13 Mon Sep 17 00:00:00 2001 From: Tim Date: Fri, 16 May 2025 16:09:34 +0200 Subject: Add feature to create children categories --- src/chef/pages/admin/api.clj | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (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 2eb797b..0d1910a 100644 --- a/src/chef/pages/admin/api.clj +++ b/src/chef/pages/admin/api.clj @@ -7,7 +7,10 @@ (defn create-category [req] (cutils/auth-only req - (jdbc/execute! @cdb/db (sql/format {:insert-into [:categories] - :values [{:name "New category"}]})) + (jdbc/execute! @cdb/db + (sql/format {:insert-into [:categories] + :values [(merge {:name "New category"} + (when-let [parent (get-in req [:params "parent"])] + {:parent parent}))]})) (-> (ruresp/created "Created.") (ruresp/header "HX-Refresh" "true")))) -- cgit v1.2.3