|
|
@ -18,7 +18,8 @@
|
|
|
|
|
|
|
|
|
|
|
|
(defn new! [req]
|
|
|
|
(defn new! [req]
|
|
|
|
(let [schema-uuid (get-in req [:params :schema-uuid])
|
|
|
|
(let [schema-uuid (get-in req [:params :schema-uuid])
|
|
|
|
form-def (forms-inst/with-attributes (domain-attr/required! schema-uuid))]
|
|
|
|
req-attrs (domain-attr/required! schema-uuid)
|
|
|
|
|
|
|
|
form-def (forms-inst/with-attributes req-attrs)]
|
|
|
|
(if (form/valid? form-def req)
|
|
|
|
(if (form/valid? form-def req)
|
|
|
|
(let [form-data (form/form-data form-def req)
|
|
|
|
(let [form-data (form/form-data form-def req)
|
|
|
|
req-attrs (domain-attr/required! schema-uuid)
|
|
|
|
req-attrs (domain-attr/required! schema-uuid)
|
|
|
|