|
|
@ -98,7 +98,11 @@
|
|
|
|
(and (some? value) (not= 0 value))
|
|
|
|
(and (some? value) (not= 0 value))
|
|
|
|
(if validate? req-value value))))
|
|
|
|
(if validate? req-value value))))
|
|
|
|
|
|
|
|
|
|
|
|
(defn render-textarea [id {:keys [label required spec]} value req-value validate?]
|
|
|
|
(defn render-textarea [id
|
|
|
|
|
|
|
|
{:keys [label required spec]}
|
|
|
|
|
|
|
|
value
|
|
|
|
|
|
|
|
req-value
|
|
|
|
|
|
|
|
validate?]
|
|
|
|
(list
|
|
|
|
(list
|
|
|
|
(when (and validate? (not (spec/valid? spec req-value)))
|
|
|
|
(when (and validate? (not (spec/valid? spec req-value)))
|
|
|
|
(spec-to-errmsg label spec value))
|
|
|
|
(spec-to-errmsg label spec value))
|
|
|
|