         onres (fn [json] (let [d (first (getdata json))]
                           (set-o2-fields data-set d)))]
     (if (= selval "select") (reset-o2-fields data-set)
-        (http-get (str serverhost "o2registers/"selval"/mutations")
-                  onres))))
+        (http-get-auth (str serverhost "o2registers/"selval"/mutations")
+                   onres))))
 
 (defn o2-select
   [data-set]
   [:div.form-group
    [:label.col-sm-3.control-label "O2 Number"]
    [:div.col-sm-6
-    [:select.form-control {:id "O2-select" :value (:o2number @data-set) :on-change #(on-o2-change data-set)}
+    [:select.form-control {:id "O2-select" :value "abcd" :on-change #(on-o2-change data-set)}
      (for [d (get-value! :o2mutations)]
        ^{:key d} [:option {:value d} d])]]])
 

              (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

                  (set-key-value :total-pages (get-total-rec-no
                                               (.-pagesCount mt)))
                  (set-key-value :current-page 1)
                  (set-page! [render-mutations (get-value! :mutations)])))]
    (set-key-value :is-searched-results false)
    (http-get-auth (str serverhost "mutations?pageIndex=0&pageSize=10") onres)))


(defn src-dist-onchange [val]
