|
|
|
@ -33,12 +33,12 @@
|
|
|
|
|
[:h1 "Pali sin e jaki ijo"]
|
|
|
|
|
(hform/form-to
|
|
|
|
|
[:post "/schema/new"]
|
|
|
|
|
(forms/field req new-schema-form :schema-name)
|
|
|
|
|
(forms/field new-schema-form :schema-name req)
|
|
|
|
|
(hform/submit-button "Pali")
|
|
|
|
|
(anti-forgery-field))])))
|
|
|
|
|
|
|
|
|
|
(defn- new! [req]
|
|
|
|
|
(if (forms/valid? req new-schema-form)
|
|
|
|
|
(if (forms/valid? new-schema-form req)
|
|
|
|
|
(resp/redirect "/schema")
|
|
|
|
|
(overview! req)))
|
|
|
|
|
|
|
|
|
|