                 (.replaceAll desc "\n" "<br />")))
         (catch Exception e
             ; print error message in case of any DB-related exception
-            (println-and-flush "read-description(): error accessing database '" (:subname (second product)) "'!")
-            (println-and-flush e)
+            (log/error "read-description(): error accessing database '" (:subname (second product)) "'!")
+            (log/error e)
             (.printStackTrace e)
-            (println "***********" package)
+            (log/error "package" package)
             nil)))  ; special value that will be handled later
 
 (defn try-to-read-description

        (db-interface/read-changes-for-user user-name)
        (catch Exception e
            ; print error message in case of any DB-related exception
            (println-and-flush "read-changes-for-user(): Error accessing database 'css_descriptions.db'!")
            (println-and-flush e)
            nil)))  ; special value that will be handled later

(defn read-package-descriptions

    [request]
    (let [descriptions (read-all-descriptions)
          user-name    (get (get (request :cookies) "user-name") :value)]
        ;(log/debug descriptions)
        (-> (http-response/response (html-renderer/render-descriptions descriptions user-name))
            (http-response/content-type "text/html"))))

