     (println "")
     (let [params              (request :params)
           uri                 (request :uri)
-          package             (get params "package")]
-          (-> (http-response/response (html-renderer products/products package))
-              (http-response/content-type "text/html"))))
+          package             (get params "package")
+          new-description     (get params "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)]
+              (-> (http-response/response (html-renderer products/products package ccs-description))
+                  (http-response/content-type "text/html")))))
 
 (defn return-file
     [file-name content-type]


(require '[clouseau.products :as products])

(defn read-description
    [product package]
    (let [result (jdbc/query (second product) (str "select description from packages where name='" package "';"))

        (if (not desc)
            [:div {:class "alert alert-danger"} "Not found"]
            [:div {:class "alert alert-success"} (.replaceAll desc "\n" "<br />")])))

(defn read-ccs-description
    [package]
    (let [result (jdbc/query ccs-db (str "select description from packages where name='" package "';"))
          desc   (:description (first result))]
        (if (not desc)
            nil
            desc))) ; (.replaceAll desc "\n" "<br />"))))

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

(defn render-html-header
    [package]
