Wee tweek to the method detail prompt

This commit is contained in:
Simon Brooke 2018-09-15 09:00:50 +01:00
parent c22c34ff16
commit 5b78192190

View file

@ -43,7 +43,7 @@
elector @(subscribe [:elector]) elector @(subscribe [:elector])
dwelling @(subscribe [:dwelling]) dwelling @(subscribe [:dwelling])
method @(subscribe [:followupmethod])] method @(subscribe [:followupmethod])]
(js/console.log (str "followup/panel; Issue is " issue "; elector is " elector "; method is " method)) (js/console.log (str "followup/panel; Issue is " issue "; elector is " elector "; method is " method " (" (type method) ")"))
(cond (cond
(nil? dwelling) (nil? dwelling)
(ui/error-panel "No dwelling selected") (ui/error-panel "No dwelling selected")
@ -81,7 +81,7 @@
#(let [] #(let []
[:option {:value (:id %) :key (:id %)} (:id %)]) @(subscribe [:followupmethods]))]] [:option {:value (:id %) :key (:id %)} (:id %)]) @(subscribe [:followupmethods]))]]
[:p.widget [:p.widget
[:label {:for "method_detail"} (if (= @(subscribe [:followupmethod]) "Phone") "Telephone number" "EMail Address")] [:label {:for "method_detail"} (if (= (str @(subscribe [:followupmethod])) "Phone") "Telephone number" "EMail Address")]
[:input {:type "text" :id "method_detail" :name "method_detail" [:input {:type "text" :id "method_detail" :name "method_detail"
:on-change #(dispatch [:set-method-detail (.-value (.-target %))])}]] :on-change #(dispatch [:set-method-detail (.-value (.-target %))])}]]
[:p.widget [:p.widget