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"))