From 9a3b291bd315ff02ea0744478d92c61a42b67b8e Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 24 Sep 2015 15:44:44 -0400 Subject: [PATCH] Prepend dynamic-urlprefix on login-style pages' k parameters --- src/site.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/site.rkt b/src/site.rkt index 6ce3ec7..1a00aa1 100644 --- a/src/site.rkt +++ b/src/site.rkt @@ -252,7 +252,7 @@ (define (login-or-register-url k baseurl) (format "~a?~a" baseurl - (alist->form-urlencoded (list (cons 'k k))))) + (alist->form-urlencoded (list (cons 'k (string-append dynamic-urlprefix k)))))) (define (login-or-register-flow request thunk) (define-form-bindings request ([k (named-url main-page)]))