 (defn badge-file-upload-content [state]
   (let [status  (:status @state)]
     [:div
-     [:h1.uppercase-header (t :badge/Uploadbadgesfrom)]
+     [:h1.uppercase-header (t :badge/Importbadges)]
      [upload-info]
      (cond
        (= "loading" status) [:div.ajax-message

                                        :on-click #(do
                                                     (swap! state assoc :status "loading")
                                                     (send-assertion state))
                                        } (t :file/Upload)]]])]))

(defn content [state]
  (let [status  (:status @state)
        assertion-url (cursor state [:input-assertion-url])
        selection-atom (cursor state [:input-upload-method])]


(defn assertion-upload-info []
  [:div
   [:p (t :badge/Importbadgesviaassertioninfo1)]
   [:ul
    [:li {:dangerouslySetInnerHTML
          {:__html (str (t :badge/Importbadgesviaassertioninfo2) " " (t :badge/Importbadgesviaassertioninfo3))}}]]
   [:p
    (t :badge/Uploadbagesfromresult1) " "
    [:a {:href (path-for "/badge/mybadges")} (t :badge/Mybadges)] " " (t :badge/page) ". "
