             "/select-product"             (process-select-product-page  request title)
             "/product"                    (process-product-page         request title)
             "/add-new-product"            (process-add-new-product-page request title)
+            "/add-new-chapter"            (process-add-new-chapter-page request title)
             "/edit-product"               (process-edit-product-page    request title)
             "/chapter"                    (process-chapter-page         request title)
             "/group"                      (process-group-page           request title)

              insert-result         (finish-processing-product-list request title product-list :message-type "danger" :message (str insert-result))
              :else                 (finish-processing-product-list request title product-list :message-type "info" :message (str "Product " product-name " has been added into the database"))
          )))

(defn process-edit-product-page
    [request title]

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

(defn finish-processing-chapter-list
    [request title product-id product-name chapter-list & {:keys [message-type message]}]
    (let [params        (:params request)
          url-prefix    (get-url-prefix request)]
          (-> (http-response/response (html-renderer/render-chapter-list url-prefix title product-id product-name chapter-list :message-type message-type :message message))
              (http-response/content-type "text/html"))))

(defn finish-processing-group-list
