                         [:br]
                     ))
                 
-                (if (and package (not (empty? package)))
-                    [:table {:class "table table-stripped"}
-                        (for [product products]
-                            [:div [:div {:class "label label-primary"} (first product)] 
-                                  (read-description product package)]
-                        )
-                    ])
+                (if (package? package)
+                    (for [product products]
+                        [:div
+                            [:div {:class "label label-primary" :style "margin-right:3px"} (first product)] 
+                            [:div {:class "alert alert-success"} (get package-descriptions (first product))]]
+     ;                       (render-description (first products-per-description))]
+                    )
+                )
+                (if (and (package? package) products-without-descriptions)
+                    [:div
+                    (for [product products-without-descriptions]
+                        [:div {:class "label label-primary" :style "margin-right:3px"} product])
+                        [:div {:class "alert alert-danger"} "Not found"]]
+                    )
                 (render-footer)
             ] ; </div class="container">
         ] ; </body>

    [parameter]
    (and parameter (not (empty? parameter))))

(defn perform-normal-processing
    [request]
    (println "time:        " (.toString (new java.util.Date)))
    (println "addr:        " (request :remote-addr))
    (println "params:      " (request :params))
    (println "user-agent:  " ((request :headers) "user-agent"))
    (println "")
    (let [params              (request :params)
          uri                 (request :uri)
          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]

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