     (let [result (jdbc/query (second product) (str "select description from packages where name='" package "';"))
           desc   (:description (first result))]
         (if (not desc)
-            [:div {:class "alert alert-danger"} "Not found"]
-            [:div {:class "alert alert-success"} (.replaceAll desc "\n" "<br />")])))
+            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]

                        [: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)]
                        )
                    ])
                (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))))

