   (try
     (let [base-url "https://backpack.openbadges.org/displayer" ;TODO support other sources
           user {:id user-id :emails (user/verified-email-addresses ctx user-id)}]
-      {:badges (->> (all-public-badges user base-url)
+      {:badges (->> (all-public-badges user base-url false)
                     (map (partial import-info ctx user))
                     (sort-by :message #(compare %2 %1)))
        :status "success"

(defonce import-cache (atom {}))

(defn- put-import-cache [key data]
  (swap! import-cache assoc key {:ttl (+ (u/now) 600) :data data})
  data)

(defn- get-import-cache [key]

    (let [base-url "https://backpack.openbadges.org/displayer" ;TODO support other sources
          user {:id user-id :emails (user/verified-email-addresses ctx user-id)}
          key-set (set keys)
          badges-to-save (filter #(key-set (:checksum (meta %))) (all-public-badges user base-url true))
          badge-ids (remove nil? (map #(db/save-user-badge! ctx (assoc % :status "accepted")) badges-to-save))]
      {:status      "success"
       :message     "badge/Badgessaved"
