diff options
Diffstat (limited to 'lisp/service/about-us-service.lisp')
| -rw-r--r-- | lisp/service/about-us-service.lisp | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/lisp/service/about-us-service.lisp b/lisp/service/about-us-service.lisp index 1ede1d2..33e95a6 100644 --- a/lisp/service/about-us-service.lisp +++ b/lisp/service/about-us-service.lisp @@ -9,8 +9,10 @@ :accessor category)) (:documentation "")) -(defun about-us-json (category) +(defun about-us-json (category &optional message errormsg) (with-noauth (instance about-us-service) + (when (not (org-ckons-core::null-or-empty-p message)) (setf (message instance) message)) + (when (not (org-ckons-core::null-or-empty-p errormsg)) (setf (errormsg instance) errormsg)) (setf (category instance) category))) (defclass about-us/view-service (about-us-service) @@ -51,7 +53,7 @@ (setf (form instance) (make-form "about-us-modify-form" nil nil - `((:label "Content" :name "txt-content" :field-type "textarea" :value ,(content about-us) :required "required") + `((:label "Content" :name "content" :field-type "textarea" :value ,(content about-us) :required "required") (:label "Modify" :field-type "button" :onclick "on_about_us_modify_submit_clicked()")))))))) (defun about-us-modify-submit-json (category content) @@ -64,3 +66,16 @@ (update-record general-pkg about-us)))) (setf (content instance) content) (setf (message instance) "About Us text saved successfully."))) + +(define-endpoint ("/lessons" :method :get) () about-us-json "lessons") +(define-endpoint ("/lessons/view" :method :get) () about-us-view-json "lessons") +(define-endpoint ("/lessons/modify" :method :post) () about-us-modify-json "lessons") +(define-endpoint ("/lessons/modify/submit" :method :post) (&post (content :parameter-type 'string)) about-us-modify-submit-json "lessons" content) +(define-endpoint ("/gigs" :method :get) () about-us-json "gigs") +(define-endpoint ("/gigs/view" :method :get) () about-us-view-json "gigs") +(define-endpoint ("/gigs/modify" :method :post) () about-us-modify-json "gigs") +(define-endpoint ("/gigs/modify/submit" :method :post) (&post (content :parameter-type 'string)) about-us-modify-submit-json "gigs" content) +(define-endpoint ("/programming" :method :get) () about-us-json "programming") +(define-endpoint ("/programming/view" :method :get) () about-us-view-json "programming") +(define-endpoint ("/programming/modify" :method :post) () about-us-modify-json "programming") +(define-endpoint ("/programming/modify/submit" :method :post) (&post (content :parameter-type 'string)) about-us-modify-submit-json "programming" content) |