diff options
Diffstat (limited to 'db/seed.rkt')
| -rw-r--r-- | db/seed.rkt | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/db/seed.rkt b/db/seed.rkt index d767d63..8d671ba 100644 --- a/db/seed.rkt +++ b/db/seed.rkt @@ -9,6 +9,7 @@ "../models/nutrient-measurement.rkt" "../models/crop.rkt" "../models/crop-requirement.rkt" + "../models/crop-rotation.rkt" "../models/fertilizer-product.rkt") (define (seed-database!) @@ -20,6 +21,7 @@ seed-historical-nutrient-measurements! seed-crops! seed-crop-requirements! + seed-initial-crop-rotation! seed-existing-fertilizer-products!)) (define (seed-nutrients!) @@ -90,6 +92,13 @@ [else (create-crop-requirement! profile nutrient-values)])) (with-tx (csv-for-each row->seed! next-row))) +(define (seed-initial-crop-rotation!) + (define nm (get-latest-nutrient-measurement)) + (define generic-requirement (get-crop-requirement #:profile "générique croissance")) + (create-crop-rotation! (nutrient-measurement-date nm) + (hash generic-requirement 100) + #:nutrient-measurement (nutrient-measurement-id nm))) + (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-products-csv))) |