         first) "properties") "category")))
 
 (defn handle-new-data [data incomplete-channel user-channel]
-  (condp = (:resource-type data)
+  (case (:resource-type data)
     :divisions
-    (if (:results data)
+    (if (< 1 (count (:results data)))
       ; no id, got all neighborhoods
       (let [neighborhoods
             (sort-by #(:name %)

                  (subs init-hash 1))))
            (tmpl/populate-neighborhood-menu neighborhoods nil))))
      ; specific neighborhood
      (tmpl/output-neighborhood data (@app-state :neighborhoods)))

    :respondents
    (tmpl/output-stats (count (:results data)) (into {} (for [key

   (loop [received-keys #{}
          data {}]
     (let [val (<! channel)
           cdata              (js->clj val)
           category           (category cdata)
           aggregate-id       (keyword (category-to-map-id category))
