           old-programmes (:programmes old-nav)
           old-projects (:projects old-nav)
           old-properties (:properties old-nav)]
-      (println "Old Programmes: " old-programmes " Old Projects: " old-projects " Old Properties: " old-properties)
-      (println "New Programmes: " programmes " New Projects: " projects " New Properties: " properties)
+      ;; (println "Old Programmes: " old-programmes " Old Projects: " old-projects " Old Properties: " old-properties)
+      ;; (println "New Programmes: " programmes " New Projects: " projects " New Properties: " properties)
 
       ;; Clear down
       (when (or (nil? programmes)
                 (empty? (-> @data :programmes :data)))
-        (println "Clearing projects.")
+        ;; (println "Clearing projects.")
         (om/update! data [:programmes :selected] nil)
         (om/update! data [:projects :data] [])
         (om/update! data [:projects :programme_id] nil)
         (fetch-programmes data))
 
       (when-not projects
-        (println "Clearing properties.")
+        ;; (println "Clearing properties.")
         (om/update! data [:projects :selected] nil)
         (om/update! data [:properties :data] [])
         (om/update! data [:properties :project_id] nil))
 
       (when-not properties
-        (println "Clearing devices, sensors and measurements.")
+        ;; (println "Clearing devices, sensors and measurements.")
         (om/update! data [:properties :selected] nil)
         (om/update! data [:property-details :data] {})
         (om/update! data [:property-details :property_id] nil)

        [:h3 {:id "sensors"} "Sensors"]
        (om/build sensors-table data {:opts {:histkey :sensors
                                             :path    :readings}})
        [:div {:id "chart-div"}
         [:div {:id "date-picker"}
          (om/build dtpicker/date-picker data {:opts {:histkey :range}})]
         (om/build chart-feedback-box (get-in data [:chart :message]))
         (om/build chart-summary (:chart data))
         [:div {:className "well" :id "chart" :style {:width "100%" :height 600}}
          (om/build chart/chart-figure (:chart data))]]]))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; property-details

  (om/update! data [:projects :fetching] :fetching)
  (GET (str "/4/programmes/" programme-id "/projects/")
       {:handler  (fn [x]
                    ;; (println "Fetching projects for programme: " programme-id)
                    (om/update! data [:projects :data] (mapv slugify-project x))
                    (om/update! data [:projects :fetching] (if (empty? x) :no-data :has-data)))
        :error-handler (fn [{:keys [status status-text]}]
