diff options
Diffstat (limited to 'db')
| -rw-r--r-- | db/seed.rkt | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/db/seed.rkt b/db/seed.rkt index f4dca42..d2353ee 100644 --- a/db/seed.rkt +++ b/db/seed.rkt @@ -3,6 +3,7 @@ (provide seed-database!) (require csv-reading + racket/runtime-path "conn.rkt" "../models/nutrient.rkt" "../models/nutrient-measurement.rkt" @@ -52,9 +53,9 @@ (unless (member name nutrient-names) (create-nutrient! name formula))))) +(define-runtime-path measurement-csv "data/dolibarr_nutrient_measurements_ppm.csv") (define (seed-historical-nutrient-measurements!) - (define input-csv "/home/blendux/git/ferti-v2/db/data/dolibarr_nutrient_measurements_ppm.csv") - (define next-row (make-csv-reader (open-input-file input-csv))) + (define next-row (make-csv-reader (open-input-file measurement-csv))) (define header (next-row)) (define (row->seed! row) (define row-alist (map cons header row)) @@ -81,9 +82,9 @@ (unless (member name crop-names) (create-crop! name))))) +(define-runtime-path requirements-csv "data/dolibarr_crop_requirements_ppm.csv") (define (seed-crop-requirements!) - (define input-csv "/home/blendux/git/ferti-v2/db/data/dolibarr_crop_requirements_ppm.csv") - (define next-row (make-csv-reader (open-input-file input-csv))) + (define next-row (make-csv-reader (open-input-file requirements-csv))) (define header (next-row)) (define (row->seed! row) (define row-alist (map cons header row)) @@ -104,9 +105,9 @@ (with-tx (csv-for-each row->seed! next-row))) +(define-runtime-path fertilizer-csv "data/dolibarr_fertilizer_compositions_percentage.csv") (define (seed-existing-fertilizer-products!) - (define input-csv "/home/blendux/git/ferti-v2/db/data/dolibarr_fertilizer_compositions_percentage.csv") - (define next-row (make-csv-reader (open-input-file input-csv))) + (define next-row (make-csv-reader (open-input-file fertilizer-csv))) (define header (next-row)) (define (row->seed! row) (define row-alist (map cons header row)) |