From 8f3eff4b01a8734d71d961a21e7204b2c6755655 Mon Sep 17 00:00:00 2001 From: Bryce Date: Wed, 7 Feb 2024 21:29:29 -0800 Subject: [PATCH] new accounts are automatically allowed by default. --- src/clj/auto_ap/ssr/admin/accounts.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clj/auto_ap/ssr/admin/accounts.clj b/src/clj/auto_ap/ssr/admin/accounts.clj index 19174c90..eedc1b89 100644 --- a/src/clj/auto_ap/ssr/admin/accounts.clj +++ b/src/clj/auto_ap/ssr/admin/accounts.clj @@ -180,7 +180,7 @@ (defn account-save [{:keys [form-params request-method] :as request}] (let [entity (cond-> form-params - (= :post request-method) (assoc :db/id "new")) + (= :post request-method) (assoc :db/id "new" :account/default-allowance :allowance/allowed)) _ (cond (= :post request-method) (when (seq (dc/q '[:find ?x :in $ ?nc :where [?x :account/numeric-code ?nc]] (dc/db conn) (:account/numeric-code entity))) (field-validation-error (format "The code %d is already in use." (:account/numeric-code entity))