migrate to reactHEADmaster

1 files changed, 32 insertions, 16 deletions

diff --git a/lisp/service/about-us-service.lisp b/lisp/service/about-us-service.lisp
index 1ede1d2..efc2d2f 100644
--- a/lisp/service/about-us-service.lisp
+++ b/lisp/service/about-us-service.lisp
@@ -9,10 +9,6 @@
              :accessor category))
   (:documentation ""))
 
-(defun about-us-json (category)
-  (with-noauth (instance about-us-service)
-    (setf (category instance) category)))
-
 (defclass about-us/view-service (about-us-service)
   ((content :initarg :content
             :initform nil
@@ -23,26 +19,30 @@
    (location :initform nil))
   (:documentation ""))
 
+(defclass about-us/modify-service (about-us/view-service auth-service)
+  ((form :initarg :form
+         :initform nil
+         :accessor form)
+   (admin-p :initform t)
+   (location-p :initform nil))
+  (:documentation ""))
+
+(defun about-us-json (category &optional message errormsg)
+  (with-noauth (instance about-us-service)
+    (setf (message instance) message)
+    (setf (errormsg instance) errormsg)
+    (setf (category instance) category)))
+
 (defun about-us-view-json (category)
   (with-noauth (instance about-us/view-service)
     (setf (category instance) category)
-    (with-valid-user (user "about-us-modify")
-        (setf (admin-p instance) nil)
-      (setf (admin-p instance) t))
+    (setf (admin-p instance) (with-valid-user (user "about-us-modify") nil t))
     (with-bogenherr-database
       (let* ((general-pkg (make-instance 'general-pkg))
              (about-us (get-about-us general-pkg category)))
         (when about-us
           (setf (content instance) (content about-us)))))))
 
-(defclass about-us/modify-service (about-us/view-service auth-service)
-  ((form :initarg :form
-         :initform nil
-         :accessor form)
-   (admin-p :initform t)
-   (location-p :initform nil))
-  (:documentation ""))
-
 (defun about-us-modify-json (category)
   (with-auth (instance about-us/modify-service "about-us-modify")
     (with-bogenherr-database
@@ -51,7 +51,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 +64,19 @@
           (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" :method :post) (&post (message :parameter-type 'string) (errormsg :parameter-type 'string)) about-us-json "lessons" message errormsg)
+(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" :method :post) (&post (message :parameter-type 'string) (errormsg :parameter-type 'string)) about-us-json "gigs" message errormsg)
+(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" :method :post) (&post (message :parameter-type 'string) (errormsg :parameter-type 'string)) about-us-json "programming" message errormsg)
+(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)