adding options.

This commit is contained in:
Bryce Covert
2020-12-04 19:44:35 -08:00
parent af61d71644
commit b39df72d2f

View File

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