         (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]

]); </nav>

(defn html-renderer
    [products package]
    (page/xhtml
        (render-html-header package)
        [:body
            [:div {:class "container"}
                (render-navigation-bar-section package)

                (if (and package (not (empty? package)))
                    [:table {:class "table table-stripped"}
                        (for [product products]


(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 "';"))
