Quick fix on select menus
This commit is contained in:
parent
a589afb6ab
commit
e5299bd2cf
|
@ -53,16 +53,16 @@
|
||||||
[:form {}
|
[:form {}
|
||||||
[:p.widget
|
[:p.widget
|
||||||
[:label {:for "elector"} "Elector"]
|
[:label {:for "elector"} "Elector"]
|
||||||
[:select {:id "elector" :name "elector"}
|
[:select {:id "elector" :name "elector" :value (:id elector)}
|
||||||
(map
|
(map
|
||||||
#(let [selkey (if (= (:id elector) (:id %)) :selected :not-selected)]
|
#(let []
|
||||||
[:option {:value (:id %) :key (:id %) selkey "true"} (:name %)]) (:electors address))]]
|
[:option {:value (:id %) :key (:id %)} (:name %)]) (:electors address))]]
|
||||||
[:p.widget
|
[:p.widget
|
||||||
[:label {:for "issue"} "Issue"]
|
[:label {:for "issue"} "Issue"]
|
||||||
[:select {:id "issue" :name "issue"}
|
[:select {:id "issue" :name "issue" :value issue}
|
||||||
(map
|
(map
|
||||||
#(let [selkey (if (= issue %) :selected :not-selected)]
|
#(let []
|
||||||
[:option {selkey "true" :key %} %]) (keys issues))]]
|
[:option {:key % :value %} %]) (keys issues))]]
|
||||||
[:p.widget
|
[:p.widget
|
||||||
[:label {:for "telephone"} "Telephone number"]
|
[:label {:for "telephone"} "Telephone number"]
|
||||||
[:input {:type "text" :id "telephone" :name "telephone"}]]
|
[:input {:type "text" :id "telephone" :name "telephone"}]]
|
||||||
|
|
Loading…
Reference in a new issue