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

                                           :on-change  #(send-file state)
                                           :accept     "image/png, image/svg+xml"}]])])]))

(defn init-data [state]
  (ajax/GET (path-for "/obpv1/user/public-access")
            {:handler (fn [data]
                        (swap! state assoc :permission "success"))}
            (fn [] (swap! state assoc :permission "error"))))

(defn handler [site-navi]
  (let [state (atom {:status "form"
                     :permission "initial"})]
    (init-data state)

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