From 612abc888c67f915773063202bb31479f72fc996 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 28 Oct 2017 23:14:59 -0700 Subject: [PATCH] add two fields --- pricing-table.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/pricing-table.rkt b/pricing-table.rkt index 27ed4e2..cd76d9c 100644 --- a/pricing-table.rkt +++ b/pricing-table.rkt @@ -73,7 +73,7 @@ (require rackunit) (check-equal? (textify - '(span (a ((href "equity.html")) "Equity") " + " (a ((href "concourse.html")) "Concourse Standard") " + " (a ((href "triplicate.html")) "Triplicate"))) + '(span (a ((href "equity.html")) "Equity") " + " (a ((href "concourse.html")) "Concourse Standard") " + " (a ((href "triplicate.html")) "Triplicate"))) "Equity + Concourse Standard + Triplicate")) (define (buy-link sku people) @@ -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)