                                 (int (.-value (.getElementById js/document "districts")))))
         (let [onres (fn[data]
                       (secretary/dispatch! "/"))]
-          (http-put (str "http://localhost:9000/mutations/" (:id @data-set))
+          (http-put (str serverhost "mutations/" (:id @data-set))
                     onres (.serialize (Serializer.) (clj->js @data-set)))))
     (reset! focus "on")))
 

  (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[data] (secretary/dispatch! "/fieldbook"))]
          (http-put (str "http://localhost:9000/fieldbooks/" (:id @data-set)) onres (.serialize (Serializer.) (clj->js @data-set)))))
    (reset! focus "on")))

(defn fieldbook-form-cancel [event]

                        (set-page! [revenue-update-template id
                                    (first (filter (fn[obj]
                                                     (=(.-id obj) (.parseInt js/window id))) (get-value! :revenues)))])))]
    (http-get (str serverhost "villages") onres)))

(defn revenue-add [event]
  (secretary/dispatch! "/revenue/add"))
