                          [:td (form/check-box "copyright")]]
                     [:tr [:td [:div {:class "_label _label-default"} "Source:"]]
                          [:td "&nbsp;"]
-                         [:td (form/drop-down "source" (map (fn [i] [(:source i)(:id i)]) sources) )]]
+                         [: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]))
         [: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"))
+        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]

        ]
        [:br]
        [:br]
        (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-map)
                )
                
                (if message
