           package             (get params "package")
           new-description     (get params "new-description")]
           (process package new-description)))
+
+(defn render-all-descriptions
+    [request]
+    (let [descriptions (read-all-descriptions)]
+        (println descriptions)
+        (-> (http-response/response (html-renderer-descriptions descriptions))
+            (http-response/content-type "text/html"))))
 
 (defn return-file
     [file-name content-type]

        (for [product products :when (get package-descriptions (first product))]
            (first product))))

(defn process
    [package new-description]
    (if (and (not-empty-parameter? package) (not-empty-parameter? new-description))
        (store-ccs-description package new-description))
    (let [ccs-description               (read-ccs-description package)
          package-descriptions          (read-package-descriptions products/products package)
          products-without-descriptions (get-products-without-descriptions products/products package-descriptions)]
        (-> (http-response/response (html-renderer products/products package package-descriptions ccs-description products-without-descriptions))
            (http-response/content-type "text/html"))))

(defn perform-normal-processing

    (and package (not (empty? package))))

(defn html-renderer
    [products package package-descriptions ccs-description products-per-descriptions products-without-descriptions]
    (page/xhtml
        (render-html-header package)
        [:body
