 
 (defn get-more-badges [state]
   (let [{:keys [user-id country-selected badge-name recipient-name issuer-name
-                tags order full-tags tags-badge-ids value page_count]} @state
-        ajax-message-atom (cursor state [:ajax-message])]
+                tags order full-tags tags-badge-ids value]} @state
+        ajax-message-atom (cursor state [:ajax-message])
+        page-count-atom (cursor state [:params :page_count])]
     (ajax/GET
       (path-for (str "/obpv1/gallery/badges"))
       {:params  (:params @state)

                 :page_count     page_count}
       :handler (fn [data]
                  (value-helper state (get-in data [:tags]))
                  (swap! state assoc
                         :badges (into (:badges @state) (:badges data))
                         :page_count (inc (:page_count @state))
                         :badge_count (:badge_count data)))
       :finally (fn []
                  )})))

                    :page_count     @page-count-atom}
       :handler (fn [data]
                  (value-helper state (get-in data [:tags]))
                  (swap! page-count-atom inc)
                  (swap! state assoc
                         :badges (:badges data)
                         :badge_count (:badge_count data)))
       :finally (fn []
                  (ajax-stop ajax-message-atom))})))
