                           :total-pages 1
                           :page-location nil
                           :villages {}
+                          :is-searched-results false
                           :user nil}))
 
 

  (let [onres (fn [json]
                (let [mt (getdata json)]
                  (set-key-value :mutations (.-data mt))
                  (set-key-value :pagesCount (get-total-rec-no
                                              (.-pagesCount mt)))
                  (set-key-value :current-page 1)
                  (set-key-value :page-location
                                 [render-mutations (get-value! :mutations)])))]
    (http-get "http://localhost:9000/mutations?pageIndex=0&pageSize=10" onres)))

(defn render-mutations [mutations]

                  (set-key-value :mutations (.-data dt))
                  (set-key-value :total-pages (get-total-rec-no (.-pagesCount dt)))
                  (set-key-value :page-location  [render-mutations (get-value! :mutations)])))]
    (set-key-value :is-searched-results false)
    (http-get (str "http://localhost:9000/mutations?pageIndex="(dec (get-value! :current-page))"&pageSize=10") onres)))

(defroute mutations-list "/mutations" []
