           )))
 
 (defn render-all-descriptions
+    "Create page containing all descriptions made by CCS users."
     [request]
     (let [descriptions (read-all-descriptions)
           user-name    (get (get (request :cookies) "user-name") :value)]
-        (println descriptions)
+        ;(println descriptions)
         (-> (http-response/response (html-renderer-descriptions descriptions user-name))
             (http-response/content-type "text/html"))))
 

    (jdbc/query ccs-db (str "select trim(name) as name, description from packages order by trim(name);")))

(defn store-ccs-description
    [package description]
    (jdbc/delete! ccs-db :packages ["name = ?" package])
    (jdbc/insert! ccs-db :packages {:name package :description description})

            (http-response/content-type content-type))))

(defn handler
    "Handler that is called by Ring for all requests received from user(s)."
    [request]
    (println "request URI: " (request :uri))
    (let [uri (request :uri)]
