[Racket] Ferti hydroponic nutrient solver, redux.
Now possible to destroy ferilizers.
Changed files
handlers.rkt
@@ -68,7 +68,7 @@
68
68
[("ferti" "fertilizer" "new") #:method "get" new-fertilizer]
69
69
[("ferti" "fertilizer" "create") #:method "post" create-fertilizer]
70
70
[("ferti" "fertilizer" (integer-arg)) #:method "get" show-fertilizer]
71
Removed:
[("ferti" "fertilizer" (integer-arg)) #:method "delete" destroy-fertilizer]
71
Added:
[("ferti" "fertilizer" "destroy" (integer-arg)) #:method "get" destroy-fertilizer]
72
72
;; Default
73
73
[("") #:method "get" index]
74
74
[else fallback]))
views.rkt
@@ -155,12 +155,17 @@
155
155
`(p "La recette Ferti requiert au moins un relevé et une cible.")))))
156
156
157
157
(define (ferti-fertilizers-page fertilizers)
158
Added:
(define (delete-button-for fp)
159
Added:
`(a ((class "btn btn-outline-danger btn-sm")
160
Added:
[href ,(format "/ferti/fertilizer/destroy/~a" (fertilizer-product-id fp))])
161
Added:
"Supprimer"))
158
162
(define table
159
163
`(table ((class "table table-striped"))
160
Removed:
(tr (th () "Nom de référence") (th () "Nom de marque"))
164
Added:
(tr (th () "Nom de référence") (th () "Nom de marque") (th () "Actions"))
161
165
,@(for/list ([fertilizer fertilizers])
162
166
`(tr (td ,(fertilizer-name fertilizer))
163
Removed:
(td ,(or (fertilizer-brand-name fertilizer) "—"))))))
167
Added:
(td ,(or (fertilizer-brand-name fertilizer) "—"))
168
Added:
(td ,(delete-button-for fertilizer))))))
164
169
(ferti-template `((h2 () "Intrants") (a ((class "btn btn-primary mb-3") [href
165
170
"/ferti/fertilizer/new"])
166
171
"Ajouter un intrant")