    [:div.col-sm-6 [dist-sel-tag id opt-data data-set]]
    [:div.col-sm-3 [:div]]])
 
-(defn sub-onchange [id]
+(defn sub-onchange [id val data-set]
   (let [res (fn [json]
               (let [dt (getdata json)]
                 (set-key-value :villages dt)))]
-    (http-get (str  "http://localhost:9000/subdivisions/" id  "/villages") res)))
+    (do (http-get (str serverhost "subdivisions/" val  "/villages") res)
+        (swap! data-set assoc id val)
+        )))
 
 (defn sub-sel-tag [id data data-set]
   [:select.form-control {:id id
                          :value (@data-set id)
-                         :on-change #(sub-onchange (-> % .-target .-value))}
+                         :on-change #(sub-onchange  id (-> % .-target .-value) data-set)}
    [:option {:value 0} "--Select--"]
    (for [d  data]
      ^{:key (.-id d) }

     ^{:key (.-id d)}
     [:option {:value (.-id d)} (.-villagename d)])])


(defn render-mutations [mutations]
  [:div
   [:div {:class "box"}
    [:div {:class "box-header"}
     [:h3 "List of Mutations"]]
    [:div.col-md-12
     [:div.form-group
      [:div.row
       [:div.col-sm-2 "Mutation Number"
        [:input.form-control {:id "mutationnumber"
                              :type "text"
                              :placeholder "Enter search by mutationnumber"}]]
       [:div.col-sm-2 "Enter Search Text"
        [:input.form-control {:id "dt" :type "text"
                              :placeholder "Enter search text.."}]]]]

     [:div.form-group
      [:div.row
       [:div.col-sm-2 "Title"
        [:input.form-control {:id "stitle"
                              :type "text"
                              :placeholder "Title"}]]
       [:div.col-sm-2 "District Name"
        [src-dist-sel-tag]]
       [:div.col-sm-2 "Sub Division Name"
        [src-sub-sel-tag]]
       [:div.col-sm-2 "Village Name"
        [src-vill-sel-tag]]
       [:div.col-sm-2 "Name Of P.O"
        [:input.form-control {:id "svillagename"
                              :list "combo"
                              :placeholder "Name Of P.O"}[datalist]]]]]
     [:div.form-group
      [:div.row
       [:div.col-sm-2 "O2 Number"
        [:input.form-control {:id "so2number"
                              :type "text"
                              :placeholder "O2 Number"}]]
       [:div.col-sm-2 "Khasra Number"
        [:input.form-control {:id "skhasranumber"
                              :type "text"

                           [:b (str (first ((form-validator @data-set) id)))]])
                        [:div])]])))

(defn dist-onchange [id val data-set]
  (let [res (fn [json]
              (let [dt (getdata json)]
                (set-key-value :subdivisions dt)
                (set-key-value :villages nil)))]
    (do (http-get (str  serverhost "districts/" val  "/subdivisions") res)
        (swap! data-set assoc id val)
        )))

(defn dist-sel-tag [id data data-set]
  [:select.form-control {:id id
                         :value (@data-set id)
                         :on-change #(dist-onchange id (-> % .-target .-value) data-set) }
   [:option {:value 0} "--Select--"]
   (for [d  data]
     ^{:key (.-id d)}
