         (println "stat"    changes-statistic)
         (println "changes" changes)
         (if user-name
-            (-> (http-response/response (html-renderer/render-users user-name changes-statistic changes url-prefix zw-mode))
+            (-> (http-response/response (html-renderer/render-users user-name changes-statistic changes url-prefix title))
                 (http-response/set-cookie :user-name user-name {:max-age 36000000})
                 (http-response/content-type "text/html"))
-            (-> (http-response/response (html-renderer/render-users user-name changes-statistic changes url-prefix zw-mode))
+            (-> (http-response/response (html-renderer/render-users user-name changes-statistic changes url-prefix title))
                 (http-response/content-type "text/html")))))
 
 (defn process-user-info
-    [request zw-mode]
+    [request title]
     (let [params            (:params request)
           selected-user     (get params "name")
           changes           (read-changes-for-user selected-user)
           user-name         (get-user-name request)
           url-prefix        (get-url-prefix request)]
         (if user-name
-            (-> (http-response/response (html-renderer/render-user-info selected-user changes url-prefix zw-mode))
+            (-> (http-response/response (html-renderer/render-user-info selected-user changes url-prefix title))
                 (http-response/set-cookie :user-name user-name {:max-age 36000000})
                 (http-response/content-type "text/html"))
-            (-> (http-response/response (html-renderer/render-user-info selected-user changes url-prefix zw-mode))
+            (-> (http-response/response (html-renderer/render-user-info selected-user changes url-prefix title))
                 (http-response/content-type "text/html")))))
 
 (defn words->json

        (println "-> " user-name)
        user-name))

(defn zw-mode?
    [request]
    (-> (:configuration request)
        :server
        :mode
        (= "zw")))

(defn get-url-prefix
    [request]

        (println word)
        (println search-results)
        (if user-name
            (-> (http-response/response (html-renderer/render-front-page word user-name search-results message url-prefix title mode))
                (http-response/set-cookie :user-name user-name {:max-age 36000000})
                (http-response/content-type "text/html"))
            (-> (http-response/response (html-renderer/render-front-page word user-name search-results message url-prefix title mode))
                (http-response/content-type "text/html")))))

(defn process-front-page
    [request title]
    (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 nil title)))

(defn store-word
    [word description user-name]
