     (let [error-products (package-error package-descriptions)]
         (str "Can not access following " (count error-products) " database" (if (> (count error-products) 1) "s" "") ": " (clojure.string/join ", " error-products))))
 
-(defn process
-    "Gather all required informations and send it back to user."
+(defn generate-response
     [package new-description output-format new-user-name old-user-name]
-    (if (and (not-empty-parameter? package) (not-empty-parameter? new-description))
-        (store-ccs-description package new-description))
     (let [ccs-description               (read-ccs-description package)
           package-descriptions          (read-package-descriptions products/products package)
           products-without-descriptions (get-products-without-descriptions products/products package-descriptions)

                           (package-error package-descriptions) (generate-txt-error-response package user-name (generate-error-message-package-db-error package-descriptions))
                           :else                                (generate-txt-normal-response products/products package package-descriptions ccs-description products-per-description products-without-descriptions new-description user-name))
)))

(defn perform-normal-processing
    "Generates Clouseau main page."

    "Store new ccs description into the table 'ccs-db' stored in a file 'ccs_descriptions.db'."
    [package description]
    (jdbc/delete! ccs-db :packages ["name = ?" package])
    (jdbc/insert! ccs-db :packages {:name package :description description}))

(defn not-empty-parameter?
    [parameter]
