                            [:b (str (first ((o4register-form-validator @data-set) id)))]])
                         [:div])]])))
 
-
 (defn o4register-form-cancel [event]
   (accountant/navigate! "/o4register"))
 
+
+
 (defn o4num-sel-tag [id data data-set ]
-  [:select.form-control {:id id
-                         :value (@data-set id)
-                         :on-change #(swap! data-set assoc id  (-> % .-target .-value))}
+  [:input.form-control {:id id
+                        :value (@data-set id)
+                        :on-change #()}
    [:option {:value 0} "--Select--"]
    (for [d  data]
      ^{:key  (.-id d)}
      [:option {:value (.-o4number d)} (.-o4number d)])])
-
 
 (defn o4-form-o4num-sel [label id opt-data data-set]
   [:div.form-group

      [:h2.box-title doc-name]]
     [:div.form-horizontal
      [:div.box-body
       [o2-form-o2num-sel "O2 Number" :o2number (:o2mutations @storage) data-set]
       [o2register-input-row :startingdate "Starting Date" "date" data-set focus]
       [o2register-input-row :endingdate "Ending Date" "date" data-set focus]
       [o2-form-subdiv-sel "Sub Division Name" :subdivisionname (:subdivisions @storage) data-set]

                (set-key-value :villages dt)))]
    (do (http-get-auth (str serverhost "subdivisions/" val  "/villages") res)
        (swap! data-set assoc id (js/parseInt val)))))


(defn o4-sub-sel-tag [id data data-set]
  [:select.form-control {:id id
