 
 
 (defn handler [site-navi params]
-  (let [id (:badge-id params) 
+  (let [id (:badge-id params)
         state (atom {:permission "initial"}) ]
     (init-data state id)
     (fn []

            name]]
          [:div.media-issuer
           issuer_content_name]
          
          
          [:div.media-description description]]]]
       [:div.media-bottom
        [:div {:class "pull-left"}

(defn content [state]
  (let [{:keys [id permission]} @state
        url                     (str (session/get :site-url) (path-for (str "/badge/info/" id)))]
    (cond
      (= "success" permission) (success-view state)
      (= "error" permission)   (error-view state)
