     (let [params           (request :params)
           user-name        (get (get (request :cookies) "user-name") :value)
           selected-package (get params "package")]
-          (println "Selected package " selected-package)
-          (println "Operation        " operation)
+          (log/debug "Selected package " selected-package)
+          (log/debug "Operation        " operation)
           (case operation
                 :delete    (delete-package    selected-package)
                 :trim      (trim-package-name selected-package)
                 :lowercase (lowercase-package-name selected-package)
                 :none      nil)
           (let [packages    (read-all-packages-provided-by-ccs)]
-              (println "Packages         " (count packages))
+              (log/debug "Packages         " (count packages))
               (-> (http-response/response (html-renderer/render-admin-interface packages user-name))
                   (http-response/content-type "text/html")))))
 

                (.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)
            (.printStackTrace e)
            (println "***********" package)
            nil)))  ; special value that will be handled later

(defn try-to-read-description

          user-name     (get (get (request :cookies) "user-name") :value)
          selected-user (get params "name")
          changes       (read-changes-for-user selected-user)]
          (log/debug "User name: " selected-user)
          ;(log/debug "User made changes: " changes)
        (-> (http-response/response (html-renderer/render-user changes selected-user user-name))
            (http-response/content-type "text/html"))))

