From 11c3e1df77b5b49d0defc58d5a46d17605bd2357 Mon Sep 17 00:00:00 2001 From: Brian O'Reilly Date: Mon, 10 Nov 2025 08:10:53 -0500 Subject: [PATCH] slight error computing the external/internal url from the uri object. --- user-management.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/user-management.lisp b/user-management.lisp index d6c4985..c7f4737 100644 --- a/user-management.lisp +++ b/user-management.lisp @@ -175,7 +175,7 @@ If :api t, returns JSON error (401). Otherwise redirects to login page. Auto-detects API routes if not specified." (let* ((user-id (session:field "user-id")) - (uri (uri-to-url (radiance:uri *request*) :representation :external)) + (uri (uri-path (radiance:uri *request*))) ;; Use explicit flag if provided, otherwise auto-detect from URI (is-api-request (if api t (search "/api/" uri)))) (format t "Authentication check - User ID: ~a, URI: ~a, Is API: ~a~%" @@ -202,7 +202,7 @@ If :api t, returns JSON error (403). Otherwise redirects to login page. Auto-detects API routes if not specified." (let* ((current-user (get-current-user)) - (uri (uri-to-url (radiance:uri *request*) :representation :external)) + (uri (uri-path (radiance:uri *request*))) ;; Use explicit flag if provided, otherwise auto-detect from URI (is-api-request (if api t (search "/api/" uri)))) (format t "Current user for role check: ~a~%" (if current-user "FOUND" "NOT FOUND"))