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


      (when (and (not= programmes old-programmes)
                 programmes)
        ;; (println "Setting selected programme to: " programmes)
        (om/update! data [:programmes :selected] programmes)
        (om/update! data [:projects :programme_id] programmes)
        (fetch-projects programmes data))

      (when (and (not= projects old-projects)
                 projects)
        ;; (println "Setting selected project to: " projects)
        (om/update! data [:projects :selected] projects)
        (om/update! data [:properties :project_id] projects)
        (fetch-properties projects data))

      (when (and (not= properties old-properties)
                 properties)
        ;; (println "Setting property details to: " properties)
        (om/update! data [:properties :selected] properties))

      (when sensors

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