diff options
Diffstat (limited to 'lisp/service/about-us-service.lisp')
| -rw-r--r-- | lisp/service/about-us-service.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/service/about-us-service.lisp b/lisp/service/about-us-service.lisp index c479efe..71b5b70 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) |