                   (:body (http/get url))
                   (catch Exception e ""))
         page (html/html-resource (java.io.StringReader. rawPage))
-        month-calendars (html/select page [:.ProductionCalendar_grid])]
+        month-calendars (html/select page [:.MonthsList_grid])]
     (apply concat (map (fn [calendar month-index]
                          (extract-non-working-days calendar year month-index))
                        month-calendars


                   true
                   nil))
               (html/select calendar-element [:.ProductionCalendar_cells :div])
               (apply concat (repeatedly #(range 1 8))))))

(defn- get-work-calendar-for-year [year url]

  (:require [clj-http.client :as http]))

(defn- prev-month-day? [html-element]
  (.contains (:class (:attrs html-element)) "h_color_gray_lt"))

(defn- weekend? [html-element]
  (let [c (:class (:attrs html-element))]
    (and (not (nil? c))
         (.contains c "MonthsList_holiday"))))

(defn- day [html-element]
  (Integer/parseInt (first (:content html-element))))
