diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2024-12-22 18:32:18 -0700 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2024-12-22 18:32:18 -0700 |
| commit | cf684daa1eacac996223f6c407074abd019ede4a (patch) | |
| tree | f79ffd0809f243ca8dbdff51d943181bca2e7de0 /lisp/service/login-service.lisp | |
| parent | 947d1d69e344fefd604bfab000522b903bbb7b21 (diff) | |
rename to bogenherrc
Diffstat (limited to 'lisp/service/login-service.lisp')
| -rw-r--r-- | lisp/service/login-service.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/service/login-service.lisp b/lisp/service/login-service.lisp index 5f27236..5e029ba 100644 --- a/lisp/service/login-service.lisp +++ b/lisp/service/login-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 login-service (rest-service) ((form :initarg :form @@ -50,7 +50,7 @@ (if (or (org-ckons-core::null-or-empty-p username) (org-ckons-core::null-or-empty-p pwd)) (setf (session-value :errormsg) "Login failed.") - (with-woodriverlessons-database + (with-bogenherr-database (let* ((auth-pkg (make-instance 'auth-pkg)) (user (get-active-user-by-username-pwd auth-pkg username pwd))) (cond (user |