|
|
@ -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))))
|
|
|
|