;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
(declaim (optimize (speed 0) (safety 3) (debug 3)))

(in-package :bogenherr)

(defclass general-pkg (record-pkg)
  ()
  (:documentation ""))

(defmethod get-about-us ((general-pkg general-pkg) category)
  (get-record general-pkg (make-instance 'about-us :category category)))

(defmethod get-testimonials ((general-pkg general-pkg))
  (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, ~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, ~a)"
                                 (id 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)))