                     (for [change changes]
                         [:tr [:td (:id change)]
                              [:td (:date_time change)]
-                             [:td (:package change)]
-                             [:td (:user_name change)]
+                             [:td [:a {:href (str "/?package="  (:package change))} (:package change)]]
+                             [:td [:a {:href (str "user?name=" (:user_name change))} (:user_name change)]]
                              [:td (:description change)]])
                 ]
                 (render-footer)

            "/bootstrap.min.js"  (return-file "bootstrap.min.js" "application/javascript")
            "/"                  (perform-normal-processing request)
            "/descriptions"      (render-all-descriptions request)
            "/users"             (render-users-info request))))


            (http-response/content-type "text/html"))))

(defn render-users-info
    "Create page containing user info(s) for all users."
    [request]
    (let [changes-statistic (read-changes-statistic)
          changes           (read-changes)
          user-name         (get (get (request :cookies) "user-name") :value)]
        (-> (http-response/response (html-renderer-users changes-statistic changes user-name))
            (http-response/content-type "text/html"))))

(defn render-user-info
    "Create page containing detailed informations about selected user."
    [request]
    (let [params        (request :params)
          user-name     (get (get (request :cookies) "user-name") :value)
          selected-user (get params "name")
          changes       (read-changes-for-user selected-user)]
          (println "User name: " selected-user)
          ;(println "User made changes: " changes)
        (-> (http-response/response (html-renderer-user changes selected-user user-name))
            (http-response/content-type "text/html"))))

(defn return-file
