         (condp = uri
             "/"                                 (perform-index-page request)
             "/author"                           (perform-author-page request)
+            "/author-week"                      (perform-author-week-page request)
             "/product"                          (perform-product-page request)
             "/favicon.ico"                      (return-icon uri)
             "/bootstrap.min.css"                (return-css uri)

        (-> (html-renderer/render-author-page author-name statistic weeks-stat last-week week-graph-data cummulative-graph-data)
            continue-processing)))

(defn perform-product-page
    [request]
    (let [params (:params request)

          statistic   (db-interface/read-statistic-for-author author-name)
          last-week       (calendar/get-week (calendar/get-calendar))
          weeks-stat      (get-weeks-stat last-week author-name)
          week-graph-data [{:values (get-data weeks-stat :stat-for-author :commits-count) :label "Commits"}
                           {:values (get-data weeks-stat :stat-for-author :files-changed) :label "Files changed"}
                           {:values (get-data weeks-stat :stat-for-author :deletions) :label "Deletions"}
