diff options
Diffstat (limited to 'db')
| -rw-r--r-- | db/seed.rkt | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/db/seed.rkt b/db/seed.rkt index 25d7ee3..d767d63 100644 --- a/db/seed.rkt +++ b/db/seed.rkt @@ -45,9 +45,9 @@ (unless (member canonical-name nutrient-names) (create-nutrient! canonical-name french-name formula))))) -(define-runtime-path measurement-csv "data/dolibarr_nutrient_measurements_ppm.csv") +(define-runtime-path nutrient-measurements-csv "data/dolibarr_nutrient_measurements_ppm.csv") (define (seed-historical-nutrient-measurements!) - (define next-row (make-csv-reader (open-input-file measurement-csv))) + (define next-row (make-csv-reader (open-input-file nutrient-measurements-csv))) (define header (next-row)) (define (row->seed! row) (define row-alist (map cons header row)) @@ -69,9 +69,9 @@ (unless (member name crop-names) (create-crop! name))))) -(define-runtime-path requirements-csv "data/dolibarr_crop_requirements_ppm.csv") +(define-runtime-path crop-requirements-csv "data/dolibarr_crop_requirements_ppm.csv") (define (seed-crop-requirements!) - (define next-row (make-csv-reader (open-input-file requirements-csv))) + (define next-row (make-csv-reader (open-input-file crop-requirements-csv))) (define header (next-row)) (define (row->seed! row) (define row-alist (map cons header row)) @@ -90,9 +90,9 @@ [else (create-crop-requirement! profile nutrient-values)])) (with-tx (csv-for-each row->seed! next-row))) -(define-runtime-path fertilizer-csv "data/dolibarr_fertilizer_compositions_percentage.csv") +(define-runtime-path fertilizer-products-csv "data/dolibarr_fertilizer_compositions_percentage.csv") (define (seed-existing-fertilizer-products!) - (define next-row (make-csv-reader (open-input-file fertilizer-csv))) + (define next-row (make-csv-reader (open-input-file fertilizer-products-csv))) (define header (next-row)) (define (row->seed! row) (define row-alist (map cons header row)) |