diff --git a/src/wanijo/forms.clj b/src/wanijo/forms.clj index f73d619..f512aba 100644 --- a/src/wanijo/forms.clj +++ b/src/wanijo/forms.clj @@ -14,7 +14,7 @@ [:span.flash__pred (:pred prob)]]) (:clojure.spec.alpha/problems spec-data)))) -(defn field [req form-def field] +(defn field [form-def field req] (let [field-value (get-in req [:params field]) field-def (get-in form-def [:fields field]) {:keys [label required] spec-key :spec} field-def diff --git a/src/wanijo/schema/routes.clj b/src/wanijo/schema/routes.clj index 988dc36..bf2c144 100644 --- a/src/wanijo/schema/routes.clj +++ b/src/wanijo/schema/routes.clj @@ -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)))