                         [: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>

            "/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]
