     (let [params         (:params request)
           word           (get params "word")
           search-results (if (not (empty? word)) (db-interface/read-words-for-pattern word))]
-        (finish-processing request search-results)))
+        (finish-processing request search-results nil)))
 
 (defn store-words
     [words user-name]

    (doseq [word words]
        (db-interface/add-new-word-into-dictionary word user-name)))

(defn process-add-words
    [request]
    (let [input (-> (:params request) (get "new-words"))
          words (if input (clojure.string/split input #"[\s,]"))
          user-name (get-user-name request)]
          (if words
              (store-words words user-name))
        (finish-processing request nil)))

(defn perform-operation
    [request]

    [request]
    (perform-operation request)
    (let [search-results (db-interface/read-all-words)]
        (finish-processing request search-results nil)))

(defn process-deleted-words
    [request]
    (perform-operation request)
    (let [search-results (db-interface/read-deleted-words)]
        (finish-processing request search-results nil)))

(defn process-active-words
    [request]
    (perform-operation request)
    (let [search-results (db-interface/read-active-words)]
        (finish-processing request search-results nil)))

(defn read-changes-statistic
    []
