add two fields

master
Matthew Butterick 7 years ago
parent 6fafef09b0
commit 612abc888c

@ -84,7 +84,9 @@
(item ,item) (item ,item)
(label ,(format "~a (~a-person license)" item people)) (label ,(format "~a (~a-person license)" item people))
(quantity ,(number->string people)) (quantity ,(number->string people))
(amount ,(number->string price))) (amount ,(number->string price))
(success "/order-success.html")
(failure "/order-failure.html"))
,(format "$~a" price))) ,(format "$~a" price)))
(define (make-buy-grid #:people people-list #:skus sku-list) (define (make-buy-grid #:people people-list #:skus sku-list)