gallery

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)))