From c14a945343991a673f76459dd675064723906989 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 28 Jun 2010 15:52:59 -0400 Subject: [PATCH] Post a bug -> redirect to a thanks page, when submitting with the web form. (Submitting from DrRacket needs a simple response.) --- collects/meta/web/minis/bugs.rkt | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/collects/meta/web/minis/bugs.rkt b/collects/meta/web/minis/bugs.rkt index 9f7c29a60d..db6142546d 100644 --- a/collects/meta/web/minis/bugs.rkt +++ b/collects/meta/web/minis/bugs.rkt @@ -195,6 +195,7 @@ style: '("border: 2px solid #44f; padding: 6px;" " background-color: #eef;") onsubmit: "return CheckSubmit();"]{ + @input[type: 'hidden name: 'cont value: thanks] @field['br "Your name"]{ @input[type: 'text name: 'name value: "" size: 40]} @field['br "Your e-mail address"]{ @@ -230,3 +231,15 @@ (and c @field['line @list{Please type @c}]{ @input[type: 'text name: 'captcha value: "" size: 10]})) @input[type: 'submit value: "Submit"]}}) + +(define thanks + @page[#:title "Thanks!" #:extra-headers bugs-script #:referrer values]{ + @p{@strong{Thanks!}} + @p{Your Racket bug report has been submitted.} + @p{You should receive an email confirming your report in a few minutes. + The confirmation will be sent to the email address you specified in + your report.} + @p{If you do not receive such confirmation, please report the problem to + @tt{@small{racket@"@"racket-lang.org}} + or to the Racket + @a[href: "http://lists.racket-lang.org/users/"]{mailing list}.}})