 (defn read-product-name
     "Read name of product for the given product id."
     [product-id]
+    (log/info product-id)
     (read-from-product-table product-id :name))
 
 (defn read-product-description
     "Read description of product for the given product id."
     [product-id]
+    (log/info product-id)
     (read-from-product-table product-id :description))
 
 (defn read-name-for-id
     [table-name id]
+    (log/info table-name id)
     (try
         (-> (jdbc/query db-spec/hurvinek-db
                             [(str "select name from " table-name " where id=?") id])

(defn read-components
    "Read list of all components for selected group."
    [group-id]
    (try
        (jdbc/query db-spec/hurvinek-db
                        ["select id, name from components where group_id=? order by name" group-id])


(defn read-components-to-chapter
    [product-id]
    (log/info product-id)
    (try
        (jdbc/query db-spec/hurvinek-db
                        ["select components.name component, chapters.name chapter
