generalized About Us for Lessons and Gigs

3 files changed, 8 insertions, 4 deletions

diff --git a/lisp/sql/about-us.lisp b/lisp/sql/about-us.lisp
index ea09ee8..423e413 100644
--- a/lisp/sql/about-us.lisp
+++ b/lisp/sql/about-us.lisp
@@ -7,6 +7,9 @@
   ((id :initarg :id
        :initform nil
        :accessor id)
+   (category :initarg :category
+             :initform nil
+             :accessor category)
    (content :initarg :content
             :initform nil
             :accessor content)
diff --git a/lisp/sql/general-pkg.lisp b/lisp/sql/general-pkg.lisp
index 571bec6..b48ded5 100644
--- a/lisp/sql/general-pkg.lisp
+++ b/lisp/sql/general-pkg.lisp
@@ -7,8 +7,8 @@
   ()
   (:documentation ""))
 
-(defmethod get-about-us ((general-pkg general-pkg))
-  (get-record general-pkg (make-instance 'about-us)))
+(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)))
diff --git a/lisp/sql/generics.lisp b/lisp/sql/generics.lisp
index 48c50c7..fea632a 100644
--- a/lisp/sql/generics.lisp
+++ b/lisp/sql/generics.lisp
@@ -88,8 +88,9 @@ session."))
   (:documentation "Creates a new user session and returns the
 sessionid."))
 
-(defgeneric get-about-us (record-pkg)
-  (:documentation "Gets the one and only general.about_us record."))
+(defgeneric get-about-us (record-pkg category)
+  (:documentation "Gets the one and only general.about_us record with the given
+`category'."))
 
 (defgeneric get-testimonials (record-pkg)
   (:documentation "Gets the one and only general.testimonials record."))