diff options
Diffstat (limited to 'models/nutrient-measurement.rkt')
| -rw-r--r-- | models/nutrient-measurement.rkt | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index d1bd534..dbb3304 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -25,12 +25,6 @@ nutrient? number?)] [get-latest-nutrient-measurement-value (-> nutrient? number?)] - #; [update-nutrient-measurement! (->* (nutrient-measurement?) - (#:measured-on (or/c #f string?) - #:nutrient-values (or/c #f (listof (cons/c - nutrient? - number?)))) - (or/c nutrient-measurement? #f))] [delete-nutrient-measurement! (-> nutrient-measurement? void?)])) @@ -146,48 +140,6 @@ ;; UPDATE -#; (define (update-nutrient-measurement! nutrient-measurement - #:measured-on [measured-on #f] - #:nutrient-values [nutrient-values '()]) - (define nm-id (nutrient-measurement-id nutrient-measurement)) - (define (nvs-id nm-id) - (query-maybe-row (current-conn) - (select id - #:from nutrient_value_sets - #:where (= nutrient_measurement_id ,nm-id)))) - (with-tx - (when measured-on - (query-exec (current-conn) - (update nutrient_measurements - #:set [measured_on ,measured-on] - #:where (= id ,id)))) - (unless (null? nutrient-values) - (upsert-nutrient-values nm-id)) - (get-nutrient-measurement #:id id))) - -#; (define (upsert-nutrient-values nutrient-measurement-id) - (define maybe-nvs-id (nvs-id nm-id)) - (case maybe-nvs-id - [(#f) - (query-exec (current-conn) - (insert #:into nutrient_values_sets - #:set - [nutrient_measurement_id ,id])) - (define new-nvs-id (nvs-id nm-id)) - (query-exec (current-conn) - (string-join - '("INSERT INTO nutrient_values" - "VALUES $1 $2 $3" - "")) - new-nvs-id - )] - [else - (query-exec (current-conn) - (update nutrient_measurement_values - #:set [value ,value] - #:where (and (= measurement_id ,measurement-id) - (= nutrient_id ,nutrient-id))))])) - ;; DELETE |