         ] ; /.container-fluid
 ]); </nav>
 
+(defn render-description
+    [description]
+    (if-not description
+        [:div {:class "alert alert-danger"} "Not found"]
+        [:div {:class "alert alert-success"} description]))
+
+(defn package?
+    [package]
+    (and package (not (empty? package))))
+
 (defn html-renderer
-    [products package ccs-description]
+    [products package package-descriptions ccs-description products-without-descriptions]
     (page/xhtml
         (render-html-header package)
         [:body
             [:div {:class "container"}
                 (render-navigation-bar-section package)
 
-                (if (and package (not (empty? package)))
+                (if (package? package)
                     (form/form-to [:post "/"]
                         [:div {:class "label label-primary"} "Description provided by CCS"]
                         [:br]

            "/bootstrap.min.css" (return-file "bootstrap.min.css" "text/css")
            "/smearch.css"       (return-file "smearch.css" "text/css")
            "/bootstrap.min.js"  (return-file "bootstrap.min.js" "application/javascript")
            (perform-normal-processing request))))


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

(defn read-package-descriptions
    [products package]
    (zipmap
        (for [product products]
            (first product))
        (for [product products]
            (read-description product package))))

(defn read-ccs-description
    [package]
