migrate to react

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)