diff options
Diffstat (limited to 'lisp/sql/general-pkg.lisp')
| -rw-r--r-- | lisp/sql/general-pkg.lisp | 32 |
1 files changed, 30 insertions, 2 deletions
diff --git a/lisp/sql/general-pkg.lisp b/lisp/sql/general-pkg.lisp index 162d60b..5a92ed4 100644 --- a/lisp/sql/general-pkg.lisp +++ b/lisp/sql/general-pkg.lisp @@ -8,7 +8,35 @@ (:documentation "")) (defmethod get-about-us ((general-pkg general-pkg)) - (car (get-records general-pkg (make-instance 'about-us) nil))) + (get-record general-pkg (make-instance 'about-us))) (defmethod get-testimonials ((general-pkg general-pkg)) - (car (get-records general-pkg (make-instance 'testimonials) nil))) + (get-record general-pkg (make-instance 'testimonials))) + +(defmethod get-gallery ((general-pkg general-pkg) id) + (let ((gallery (make-instance 'gallery :*table (format nil "general.get_gallery(~a)" id)))) + (get-record general-pkg gallery))) + +(defmethod get-galleries ((general-pkg general-pkg)) + (let ((gallery (make-instance 'gallery :*table (format nil "general.get_galleries()")))) + (get-records general-pkg gallery nil))) + +(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))) + (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')" + (id gallery) + (description gallery) + (filename gallery) + (mime_type gallery) + (content gallery))) + (caar (call-pg-function general-pkg gallery))) |