mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 15:00:24 -08:00
Code Issues Projects Releases Wiki Activity

properly escape backslash and attributes

Browse source
This commit is contained in:
David Botton 2022-07-07 19:41:01 -04:00
parent 8dd156ca79
commit 96891ba5b6
12 changed files with 126 additions and 112 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-dbi.lisp
View file

@ -309,7 +309,7 @@ new-row will block until on-fetch returns."))
"")
(if class
(format nil " class='~A'"
(escape-string class))
(escape-string class :html t))
""))
:clog-type 'clog-lookup :html-id html-id :auto-place t)))
(when label
@ -397,7 +397,7 @@ the displayed option."
"")
(if class
(format nil " class='~A'"
(escape-string class))
(escape-string class :html t))
""))
:clog-type 'clog-db-table
:html-id html-id