winzlieb/beherbergung
winzlieb
/
beherbergung
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

backend: allow optional limit for import!

This commit is contained in:
Johannes Lötzsch 2022-03-16 21:54:21 +01:00
parent e31d2cfb92
commit 3614d299f3
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
backend/src/beherbergung/db/import/offer/core.clj
View File

@ -5,7 +5,9 @@
[beherbergung.db.import.offer.ngo.lifeline :as lifeline] [beherbergung.db.import.offer.ngo.lifeline :as lifeline]
[beherbergung.db.import.offer.ngo.warhelp :as warhelp])) [beherbergung.db.import.offer.ngo.warhelp :as warhelp]))
(defn import! [] (defn import!
([] (import! ##Inf))
([limit]
(if-not (:import-ngo env) (if-not (:import-ngo env)
(println "No IMPORT_NGO defined") (println "No IMPORT_NGO defined")
(let [table (if-not (:import-file env) (let [table (if-not (:import-file env)
@ -15,13 +17,14 @@
(lifeline/importfile->table (:import-file env)) (lifeline/importfile->table (:import-file env))
"warhelp_beherbergung" "warhelp_beherbergung"
(warhelp/importfile->table (:import-file env)) (warhelp/importfile->table (:import-file env))
(random/importfile->table)))] (random/importfile->table)))
(println "Records to be imported:" (count table)) table-limited (take limit table)]
(update-offers (:import-ngo env) table) (println "Records to be imported:" (count table-limited))
(println "import finished :)")))) (update-offers (:import-ngo env) table-limited)
(println "import finished :)")))))
(comment (comment
(import!) (import! 10)
(require '[beherbergung.db.state :refer [db_ctx]]) (require '[beherbergung.db.state :refer [db_ctx]])
(let [ngo:id "warhelp_beherbergung" (let [ngo:id "warhelp_beherbergung"