               (db-interface/undelete-word to-undelete))))
 
 (defn process-all-words
-    [request]
+    [request zw-mode]
     (perform-operation request)
     (let [search-results (db-interface/read-all-words)]
-        (finish-processing request search-results nil)))
+        (finish-processing request search-results nil zw-mode)))
 
 (defn process-deleted-words
-    [request]
+    [request zw-mode]
     (perform-operation request)
     (let [search-results (db-interface/read-deleted-words)]
-        (finish-processing request search-results nil)))
+        (finish-processing request search-results nil zw-mode)))
 
 (defn process-active-words
-    [request]
+    [request zw-mode]
     (perform-operation request)
     (let [search-results (db-interface/read-active-words)]
-        (finish-processing request search-results nil)))
+        (finish-processing request search-results nil zw-mode)))
 
 (defn read-changes-statistic
     []

          message   (add-words-message words)]
          (if (seq words)
              (store-words words user-name))
        (finish-processing request nil message)))

(defn perform-operation
    [request]

    (db-interface/read-changes-for-user user-name))

(defn process-user-list
    [request zw-mode]
    (let [changes-statistic (read-changes-statistic)
          changes           (read-changes)
          user-name         (get-user-name request)
