           ;product-repo (read-stat-for-product-repo product-id @config/start-year @config/end-year)]
         (-> (html-renderer/render-product-page product-name repositories product-stat @config/mailto year-graph-data-1 year-graph-data-2)
             continue-processing)))
-
-(defn get-year-data
-    [stat what]
-    (for [s stat]
-        [(key s) (or (get (val s) what) 0)]))
 
 (defn perform-repository-page
     [request]

    [request]
    (let [params (:params request)
          author-name     (get params "name")
          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"}

        (-> (html-renderer/render-author-week-repo-page author-name selected-week stat-for-week product repo @config/mailto)
            continue-processing)))

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