                 :whitelist    (render-front-page-for-whitelist word url-prefix emender-page mode)
                 :blacklist    (render-front-page-for-blacklist word url-prefix emender-page mode)
                 :atomic-typos (render-front-page-for-atomic-typos word url-prefix emender-page mode)
-                :glossary     (render-front-page-for-glossary word url-prefix emender-page mode sources)
+                :glossary     (render-front-page-for-glossary word url-prefix emender-page mode sources-map)
                 )
                 
                 (if message


(defn render-front-page
    "Render front page of this application."
    [word user-name search-results sources message url-prefix title emender-page mode]
    (println user-name)
    (println url-prefix)
    (println title)
    (println mode)
    (page/xhtml
        (render-html-header word url-prefix title)
        [:body

                                         [:td (:description search-result)])
                                     [:td (handle-null :class search-result)]
                                     [:td (yes-no-with-caution :use search-result)]
                                     [:td (yes-no :internal search-result)]
                                     [:td (yes-no :copyrighted search-result)]
                                     [:td (get-source sources-map :source search-result)]
                                     [:td {:style (if deleted "color:red" "color:green")} (if deleted "deleted" "active")]
                                     [:td (if deleted [:a {:href (str "?undelete=" word) :class "btn btn-default"} "undelete"]
                                                      [:a {:href (str "?delete="   word) :class "btn btn-default"}  "delete"])]
