diff options
| -rw-r--r-- | web/panettone/src/panettone.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp index bcf215d158..aaf58bd191 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" |