                 :order (trim order)
                 :followed show-followed-only}
        :handler (fn [data]
-                  (swap! state assoc :all-issuer-applications (:applications data) ))})))
+                  (swap! state assoc :all-issuer-applications (:applications data) )
+                  (all-connections state))})))
 
 (defn fetch-badge-adverts [state]
   (let [{:keys [user-id country-selected name recipient-name issuer-name order tags show-followed-only]} @state]

  (fetch-badge-adverts state))

(defn issuer-applications-count [issuer-name state]
  (init-issuer-applications state)
  (count (filter #(= issuer-name (:issuer_content_name %)) (:all-issuer-applications @state))))

(defn- issuer-image [path]

    (subs text 1)
    text))

(defn all-connections [state]
  (ajax/GET
    (path-for (str "/obpv1/social/connections_issuer"))
    {:handler (fn [data]
                (swap! state assoc :all-connections data)
                )}))

(defn init-issuer-applications [state]
  (let [{:keys [user-id country-selected name recipient-name issuer-name order tags show-followed-only]} @state]
