From cf684daa1eacac996223f6c407074abd019ede4a Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 22 Dec 2024 18:32:18 -0700 Subject: rename to bogenherrc --- lisp/service/password-service.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/service/password-service.lisp') diff --git a/lisp/service/password-service.lisp b/lisp/service/password-service.lisp index bd22248..fee720e 100644 --- a/lisp/service/password-service.lisp +++ b/lisp/service/password-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 password-service (auth-service user) ((form :initarg :form @@ -35,7 +35,7 @@ (declare (special pwd pwd2)) (with-auth (instance password/modify-service "profile-modify") (setf (title instance) "Change Password") - (with-woodriverlessons-database + (with-bogenherr-database (let ((user (get-user))) (if (and (= id (id user)) (string= pwd pwd2)) -- cgit v1.3