   (if (= nil (fieldbook-form-validator @data-set))
     (do (reset! data-set (assoc @data-set :villageid (int (.-value (.getElementById js/document "fieldbook-districts")))))
         (let [onres (fn[json] (secretary/dispatch! "/fieldbook"))]
-          (http-post "http://localhost:9000/fieldbooks" onres  (.serialize (Serializer.) (clj->js @data-set)))))
+          (http-post (str serverhost "fieldbooks") onres  (.serialize (Serializer.) (clj->js @data-set)))))
   (reset! focus "on")))
 
 

    (http-get (str (get-search-url mn dt) "&pageIndex=0&pageSize=10")
              onres)))

;; ========================================================================================
;; Add-update-form creation validation
;; ========================================================================================

(defn form-validator [data-set]
  (first (b/validate data-set

                   (set-key-value :villages dt)))]
    (set-key-value :villages [])
    (when-not ( >  1 (.-length eval))
      (http-get (str serverhost "villages/search?name=" eval) onresp))))


(defn revenue-tags-template [data-set]
