                                                      table-name ext-file))
                           (call-sql "add_index_col" table-name) ; Add index for reference
                           table-name))
-                     "Error importing file into SQL.\n")))
+                     "Error importing file into SQL.")))
 
 (defn- check-load-ext [distribution project-id ext-file type must-include]
   (when (#{"csv" "shp"} distribution)

                         (try-catch-throw #(if (= "plots" type)
                                             (call-sql "select_partial_table_by_name" table)
                                             (call-sql "select_partial_sample_table_by_name" table))
                                          (str (str/capitalize type) " " distribution " file failed to load.\n"))
                         table))
                     (if (= "csv" distribution)
                       (str "Malformed " type " CSV. Fields must include LON,LAT," (str/join "," must-include) " columns.\n")
                       (str "Malformed "
                            type
                            " Shapefile. All features must be of type polygon and include "
                            (str/join "," must-include)
                            " field(s).\n")))))

(defn- create-project-samples [plot-id
                               sample-distribution

      (catch Exception e
        (try (call-sql "delete_project" project-id))
        (data-response (if-let [causes (:causes (ex-data e))]
                         (str "-" (str/join "\n-" causes))
                         "Unknown server error."))))))

;;; Update Status
