From 6b56a17b4a3ba74e3f6218336d97d57089623362 Mon Sep 17 00:00:00 2001 From: Luis Pereira Date: Thu, 22 Jan 2026 16:31:19 +0000 Subject: [PATCH] fix: restore AUTHSTATE object when there is no login --- user-management.lisp | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/user-management.lisp b/user-management.lisp index 2569076..fc2c6ef 100644 --- a/user-management.lisp +++ b/user-management.lisp @@ -163,12 +163,10 @@ template file." (let ((user (get-current-user))) (format nil "var AUTHSTATE = ~a" - (if user - (cl-json:encode-json-to-string - `(("loggedIn" . t) - ("isAdmin" . ,(when (user-has-role-p user :admin) t)) - ("username" . ,(dm:field user "username")))) - "null")))) + (cl-json:encode-json-to-string + `(("loggedIn" . ,(when user t)) + ("isAdmin" . ,(when (and user (user-has-role-p user :admin)) t)) + ("username" . ,(when user (dm:field user "username")))))))) (defun require-authentication (&key (api nil)) "Require user to be authenticated.