diff options
Diffstat (limited to 'lisp/service/messages-service.lisp')
| -rw-r--r-- | lisp/service/messages-service.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/service/messages-service.lisp b/lisp/service/messages-service.lisp index e5bd6d0..18999ab 100644 --- a/lisp/service/messages-service.lisp +++ b/lisp/service/messages-service.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- (declaim (optimize (speed 0) (safety 3) (debug 3))) -(in-package :woodriverlessons) +(in-package :bogenherr) (defclass messages-service (auth-service) ((title :initarg :title @@ -32,7 +32,7 @@ (defun messages-results-json (read) (with-auth (instance messages/results-service "messages-view") (when read (setf (session-value :messages-read) read)) - (with-woodriverlessons-database + (with-bogenherr-database (let ((contact-pkg (make-instance 'contact-pkg))) (setf (results instance) (get-contact-us-posts contact-pkg (id (get-user)) @@ -47,7 +47,7 @@ (defun messages-mark-json (read id) (with-auth (instance messages/mark-service "messages-view") - (with-woodriverlessons-database + (with-bogenherr-database (handler-case (let ((contact-pkg (make-instance 'contact-pkg))) (mark-contact-us-post contact-pkg id (id (get-user)) (string= read "read")) |