Quick fix on select menus

This commit is contained in:
Simon Brooke 2017-03-26 18:47:45 +01:00
parent a589afb6ab
commit e5299bd2cf

View file

@ -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"}]]