about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--web/panettone/src/panettone.lisp7
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)