         ]
         [:br]
         [:br]
+        (comment
         (form/form-to [:post (str url-prefix "add-word-to-glossary")]
                 [:table {:style "border-collapse: separate; border-spacing: 10px;"}
                     [:tr [:td [:div {:class "_label _label-primary"} "New word:"]]

                :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)
                )
                
                (if message

                         [:td (form/check-box "copyright")]]
                    [:tr [:td [:div {:class "_label _label-default"} "Source:"]]
                         [:td "&nbsp;"]
                         [:td (form/drop-down "source" (map (fn [i] [(val i)(key i)]) sources) )]]
                    [:tr [:td "&nbsp;"]
                         [:td "&nbsp;"]
                         [:td (form/submit-button {:class "btn btn-primary"} "Add new word")]]]
                [:br]))
        [:br]])

(defn yes-no
    [key-name search-results]
    (condp = (get search-results key-name)
        1 "yes"
        0 "no"
          "N/A"))

(defn yes-no-with-caution
    [key-name search-results]
    (condp = (get search-results key-name)
        1 "yes"
        0 "no"
        2 "with caution"
          "N/A"))

(defn get-source
    [sources-map key-name search-results]
    (let [source (get search-results key-name)]
        (if source
            (get sources-map (dec source))
            "N/A")))

(defn handle-null
    [key-name search-results]
