diff options
Diffstat (limited to 'models/crop-requirement.rkt')
| -rw-r--r-- | models/crop-requirement.rkt | 38 |
1 files changed, 17 insertions, 21 deletions
diff --git a/models/crop-requirement.rkt b/models/crop-requirement.rkt index 256305e..96d94cf 100644 --- a/models/crop-requirement.rkt +++ b/models/crop-requirement.rkt @@ -40,27 +40,23 @@ ;; CREATE (define (create-crop-requirement! profile nutrient-values [crop #f]) - (or - (get-crop-requirement #:profile profile) - (with-tx - (query-exec - (current-conn) - (if crop - (insert #:into crop_requirements #:set [crop_id ,(crop-id crop)] [profile ,profile]) - (insert #:into crop_requirements #:set [profile ,profile]))) - (define cr-id - (query-value (current-conn) (select id #:from crop_requirements #:where (= profile ,profile)))) - (query-exec (current-conn) (insert #:into nutrient_value_sets #:set [crop_requirement_id ,cr-id])) - (define nvs-id - (query-value (current-conn) - (select id #:from nutrient_value_sets #:where (= crop_requirement_id ,cr-id)))) - (for ([(n v) (in-hash nutrient-values)]) - (query-exec (current-conn) - (insert #:into nutrient_values - #:set [value_set_id ,nvs-id] - [nutrient_id ,(nutrient-id n)] - [value_ppm ,v]))) - (get-crop-requirement #:profile profile)))) + (with-tx + (define cr-id + (insert-id + (query (current-conn) + (if crop + (insert #:into crop_requirements #:set [crop_id ,(crop-id crop)] [profile ,profile]) + (insert #:into crop_requirements #:set [profile ,profile]))))) + (define nvs-id + (insert-id (query (current-conn) + (insert #:into nutrient_value_sets #:set [crop_requirement_id ,cr-id])))) + (insert-nutrient-values (current-conn) nvs-id nutrient-values) + (crop-requirement cr-id + profile + (if crop + (crop-id crop) + #f) + nutrient-values))) ;; READ |