eastwood fix

integration-tests
Josha von Gizycki 6 years ago
parent 245342fa8f
commit c26d113462

@ -121,7 +121,7 @@
:select select-widget :select select-widget
:mselect multiselect-widget}) :mselect multiselect-widget})
(defn widget (defn widget-markup
[id def value req-value validate?] [id def value req-value validate?]
(let [{:keys [label spec widget options]} def (let [{:keys [label spec widget options]} def
widget (cond (some? widget) widget widget (cond (some? widget) widget
@ -147,11 +147,11 @@
(let [{:keys [options to-form]} field-def (let [{:keys [options to-form]} field-def
value (field-id values) value (field-id values)
req-value (get-in req [:params field-id])] req-value (get-in req [:params field-id])]
(widget field-id (widget-markup field-id
field-def field-def
(if to-form (to-form value) value) (if to-form (to-form value) value)
req-value req-value
validate?))) validate?)))
(:fields form-def)) (:fields form-def))
(hform/hidden-field "__form-hash" form-hash) (hform/hidden-field "__form-hash" form-hash)
(anti-forgery-field)))) (anti-forgery-field))))

Loading…
Cancel
Save