add two fields

pricing-table.rkt

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