 
       (#{"csv" "shp"} sample-distribution)
       (do
-        ;; FIXME
+        ;; FIXME Add process to restore external samples when allow-drawn-samples? is true.
         (init-throw "Restoring external samples for user drawn samples is temporarily broken.")
-        (call-sql "delete_all_samples_by_project" project-id)
+        #_(call-sql "delete_all_samples_by_project" project-id)
         #_(call-sql "copy_saved_samples" project-id))
 
       :else

    (when (seq header-diff)
      (init-throw (str "The required header field(s) "
                       (as-> header-diff h
                         (map name h)
                         (str/join "', '" h)
                         (str/replace h #"visible_" design-type)
                         (str "'" h "'"))

                             num-plots
                             plot-spacing
                             plot-size]
  (let [[[left bottom] [right top]] (pu/EPSG:4326->3857 [lon-min lat-min] [lon-max lat-max])
        [left bottom right top]     (pad-bounds left bottom right top (/ 2.0 plot-size))]
    (check-plot-limits (if (= "gridded" plot-distribution)
                         (count-gridded-points left bottom right top plot-spacing)
                         num-plots)
