diff options
| -rw-r--r-- | web/panettone/src/panettone.lisp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp index b85a2e91cc6f..3d1bf41b4a5c 100644 --- a/web/panettone/src/panettone.lisp +++ b/web/panettone/src/panettone.lisp @@ -105,7 +105,12 @@ successful, `nil' otherwise" :action "/logout" (:input :type "submit" :value "Log Out"))) (who:htm - (:a :href "/login" "Log In"))))))) + (:a :href + (format nil + "/login?original-uri=~A" + (drakma:url-encode (hunchentoot:request-uri*) + :utf-8)) + "Log In"))))))) (defmacro render ((&key (footer t)) &body body) `(who:with-html-output-to-string (*standard-output* nil :prologue t) |