     []
     (try
         (jdbc/query changes-db (str "select * from changes order by id;"))
+        (catch Exception e
+            (println-and-flush "read-ccs-description(): Error accessing database 'css_descriptions.db'!")
+            (println e)
+            nil)))  ; special value that will be handled later
+
+(defn read-changes-for-user
+    "Read all changes made by specific user."
+    [user-name]
+    (try
+        (jdbc/query changes-db [(str "select * from changes where user_name=? order by id;") user-name])
         (catch Exception e
             (println-and-flush "read-ccs-description(): Error accessing database 'css_descriptions.db'!")
             (println e)

                    (for [change changes]
                        [:tr [:td (:id change)]
                             [:td (:date_time change)]
                             [:td (:package change)]
                             [:td (:user_name change)]
                             [:td (:description change)]])
                ]
                (render-footer)

                    [:tr [:th "User name"]
                         [:th "Changes made"]]
                    (for [stat statistic]
                        [:tr [:td [:a {:href (str "user?name=" (:user_name stat))} (:user_name stat)]]
                             [:td (:cnt stat)]]
                    )
                ]
