From 3614d299f33d923b231067696971c6678ba2f09b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Johannes=20L=C3=B6tzsch?= Date: Wed, 16 Mar 2022 21:54:21 +0100 Subject: [PATCH] backend: allow optional limit for import! --- backend/src/beherbergung/db/import/offer/core.clj | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/backend/src/beherbergung/db/import/offer/core.clj b/backend/src/beherbergung/db/import/offer/core.clj index 81571fa..2669b6b 100644 --- a/backend/src/beherbergung/db/import/offer/core.clj +++ b/backend/src/beherbergung/db/import/offer/core.clj @@ -5,7 +5,9 @@ [beherbergung.db.import.offer.ngo.lifeline :as lifeline] [beherbergung.db.import.offer.ngo.warhelp :as warhelp])) -(defn import! [] +(defn import! + ([] (import! ##Inf)) + ([limit] (if-not (:import-ngo env) (println "No IMPORT_NGO defined") (let [table (if-not (:import-file env) @@ -15,13 +17,14 @@ (lifeline/importfile->table (:import-file env)) "warhelp_beherbergung" (warhelp/importfile->table (:import-file env)) - (random/importfile->table)))] - (println "Records to be imported:" (count table)) - (update-offers (:import-ngo env) table) - (println "import finished :)")))) + (random/importfile->table))) + table-limited (take limit table)] + (println "Records to be imported:" (count table-limited)) + (update-offers (:import-ngo env) table-limited) + (println "import finished :)"))))) (comment - (import!) + (import! 10) (require '[beherbergung.db.state :refer [db_ctx]]) (let [ngo:id "warhelp_beherbergung"