mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-03-02 20:10:32 -08:00
Code Issues Projects Releases Wiki Activity

Merge pull request #136 from bendersteed/main

Browse source 
escape sql parameters in edit record
This commit is contained in:
David Botton 2022-05-18 17:23:02 -04:00 • committed by GitHub
commit 18639d4fb0
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tools/clog-db-admin.lisp
View file

@ -117,7 +117,8 @@
(when data
(flet ((trim-last (s)
(subseq s 0 (- (length s) 1))))
(sqlite:execute-non-query
(apply
#'sqlite:execute-non-query
(db-connection app)
(format nil
"update ~A set ~A where rowid=~A"
@ -127,12 +128,12 @@
(if (equalp "rowid"
(first l))
""
(format nil "~A='~A',"
(first l)
(second l))))
(format nil "~A=?,"
(first l))))
data)))
(cadar data))))
(results-window app "select changes()" :title table)))))
(cadar data))
(mapcar #'second data))))
(results-window app "select changes()" :title table)))))
(defun on-query-tables (obj)
(let ((app (connection-data-item obj "app-data")))