diff options
Diffstat (limited to 'lisp/service/messages-service.lisp')
| -rw-r--r-- | lisp/service/messages-service.lisp | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/service/messages-service.lisp b/lisp/service/messages-service.lisp index 5c0f241..55a31ce 100644 --- a/lisp/service/messages-service.lisp +++ b/lisp/service/messages-service.lisp @@ -12,6 +12,17 @@ :accessor form)) (:documentation "")) +(defclass messages/view-service (messages-service) + ((results :initarg :results + :initform nil + :accessor results) + (location-p :initform nil)) + (:documentation "")) + +(defclass messages/mark-service (messages-service) + ((location-p :initform nil)) + (:documentation "")) + (defun messages-json () (with-auth (instance messages-service "messages-view") (setf (title instance) "Messages Administration") @@ -21,13 +32,6 @@ `((:label "View Unread" :field-type "button" :onclick "on_messages_mode_clicked('unread')") (:label "View Read" :field-type "button" :onclick "on_messages_mode_clicked('read')")))))) -(defclass messages/view-service (messages-service) - ((results :initarg :results - :initform nil - :accessor results) - (location-p :initform nil)) - (:documentation "")) - (defun messages-view-json (read) (with-auth (instance messages/view-service "messages-view") (when read (setf (session-value :messages-read) read)) @@ -40,10 +44,6 @@ (loop for result in (results instance) do (sanitize-json result)))) -(defclass messages/mark-service (messages-service) - ((location-p :initform nil)) - (:documentation "")) - (defun messages-mark-json (read id) (with-auth (instance messages/mark-service "messages-view") (with-resume-database |