about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--web/panettone/src/panettone.lisp5
1 files changed, 3 insertions, 2 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index bcf215d15828..aaf58bd1915e 100644
--- a/web/panettone/src/panettone.lisp
+++ b/web/panettone/src/panettone.lisp
@@ -147,7 +147,7 @@
       (:form
        :method :post :action "/login"
        (:input :type "hidden" :name "original-uri"
-               :value original-uri)
+               :value (who:escape-string original-uri))
        (:div
         (:label :for "username"
                 "Username")
@@ -251,7 +251,8 @@
                        :name "subject"
                        :placeholder "Subject"
                        :value (when editing
-                                (subject issue))))
+                                (who:escape-string
+                                  (subject issue)))))
 
               (:div
                (:textarea :name "body"