From ebd383b0e0a6168f99857126897b07395e24b41c Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 27 May 2024 16:57:01 -0600 Subject: embed youtobe videos --- lisp/sql/general-pkg.lisp | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) (limited to 'lisp/sql/general-pkg.lisp') diff --git a/lisp/sql/general-pkg.lisp b/lisp/sql/general-pkg.lisp index 5a92ed4..0d1b3db 100644 --- a/lisp/sql/general-pkg.lisp +++ b/lisp/sql/general-pkg.lisp @@ -23,20 +23,22 @@ (defmethod insert-gallery ((general-pkg general-pkg) (gallery gallery)) (setf (*table gallery) (format nil - "general.insert_gallery('~a', '~a', '~a', '~a')" - (description gallery) - (filename gallery) - (mime_type gallery) - (content gallery))) + "general.insert_gallery(~a, ~a, ~a, ~a, ~a)" + (org-ckons-sql::sanitize gallery (description gallery)) + (org-ckons-sql::sanitize gallery (filename gallery)) + (org-ckons-sql::sanitize gallery (mime_type gallery)) + (org-ckons-sql::sanitize gallery (video_embed_url gallery)) + (org-ckons-sql::sanitize gallery (content gallery)))) (setf (id gallery) (caar (call-pg-function general-pkg gallery))) (id gallery)) (defmethod update-gallery ((general-pkg general-pkg) (gallery gallery)) (setf (*table gallery) (format nil - "general.update_gallery(~a, '~a', '~a', '~a', '~a')" + "general.update_gallery(~a, ~a, ~a, ~a, ~a, ~a)" (id gallery) - (description gallery) - (filename gallery) - (mime_type gallery) - (content gallery))) + (org-ckons-sql::sanitize gallery (description gallery)) + (org-ckons-sql::sanitize gallery (filename gallery)) + (org-ckons-sql::sanitize gallery (mime_type gallery)) + (org-ckons-sql::sanitize gallery (video_embed_url gallery)) + (org-ckons-sql::sanitize gallery (content gallery)))) (caar (call-pg-function general-pkg gallery))) -- cgit v1.3