adding options.
This commit is contained in:
@@ -354,11 +354,17 @@
|
|||||||
(error-notification)
|
(error-notification)
|
||||||
(doall
|
(doall
|
||||||
(for [[row i] (map vector (-> account :loginForm last :row) (range))
|
(for [[row i] (map vector (-> account :loginForm last :row) (range))
|
||||||
f (:field row)]
|
f (:field row)
|
||||||
|
:let [options (map :optionValue (:option f))]]
|
||||||
^{:key (:id f)}
|
^{:key (:id f)}
|
||||||
[:div
|
[:div
|
||||||
(field (:label row)
|
(field (:label row)
|
||||||
[:input.input {:type "text" :field [:login i (:id f)]}])]))
|
[:input.input {:type "text" :field [:login i (:id f)]}])
|
||||||
|
(if (seq options)
|
||||||
|
[:ul
|
||||||
|
(for [o options]
|
||||||
|
^{:key o}
|
||||||
|
[:li [:pre o]])])]))
|
||||||
(doall
|
(doall
|
||||||
(for [f (-> account :field)]
|
(for [f (-> account :field)]
|
||||||
^{:key (:id f)}
|
^{:key (:id f)}
|
||||||
|
|||||||
Reference in New Issue
Block a user