 ]); </nav>
 
 (defn html-renderer
-    [products package]
+    [products package ccs-description]
     (page/xhtml
         (render-html-header package)
         [:body
             [:div {:class "container"}
                 (render-navigation-bar-section package)
 
+                (if (and package (not (empty? package)))
+                    (form/form-to [:post "/"]
+                        [:div {:class "label label-primary"} "Description provided by CCS"]
+                        [:br]
+                        (form/hidden-field "package" (str package))
+                        (form/text-area {:cols "120" :rows "10"} "new-description" ccs-description)
+                        [:br]
+                        (form/submit-button {:class "btn btn-danger"} "Update description")
+                        [:br]
+                        [:br]
+                    ))
+                
                 (if (and package (not (empty? package)))
                     [:table {:class "table table-stripped"}
                         (for [product products]

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

(defn render-html-header
    [package]


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

(def ccs-db
    {:classname   "org.sqlite.JDBC"
     :subprotocol "sqlite"
     :subname     "ccs_descriptions.db"
    })

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