                   (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)))
 
 

  (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]

                                                    (c/from-string (.-date %)))) data)))


(defn get-search-url [mn dt]
  (let [mnv (st/blank? mn)
        dtv (st/blank? dt)
        purl (str "http://localhost:9000/mutations/search?")]
    (cond (and (not mnv) dtv ) (str purl "mutationNumber=" mn)
          (and mnv (not dtv))  (str purl  "value=" dt)
          :else (str purl "mutationNumber="mn"&value="dt))))

(defn get-index-url [is-searched-results sel-page mn dt]
  (cond (= true is-searched-results)(str (get-search-url mn dt)"&pageIndex="sel-page"&pageSize=10")
        :else (str "http://localhost:9000/mutations?pageIndex="sel-page "&pageSize=10")))

(defn get-new-page-data [data current-page total-pages]
  (js/console.log total-pages)
  (let [pag-start (* 10 (dec current-page))
