From 6f3973e86ad51a3cff7e094fbf2653a9afa5aa67 Mon Sep 17 00:00:00 2001 From: Luis Pereira Date: Fri, 14 Nov 2025 22:44:55 +0000 Subject: [PATCH] fix: invalid login error on template --- auth-routes.lisp | 14 +++++++++----- template/login.ctml | 4 ++-- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/auth-routes.lisp b/auth-routes.lisp index 6aa5aec..8810a41 100644 --- a/auth-routes.lisp +++ b/auth-routes.lisp @@ -33,12 +33,16 @@ (format t "Session error: ~a~%" e) "Login successful but session error occurred"))) ;; Login failed - show form with error - (render-template-with-plist "login" - :title "Asteroid Radio - Login" - :error-message "Invalid username or password" - :display-error "display: block;"))) + (progn + (format t "Login unsuccessful for user: ~a~%" username) + (clip:process-to-string + (load-template "login") + :title "Asteroid Radio - Login" + :error-message "Invalid username or password" + :display-error "display: block;")))) ;; Show login form (no POST data) - (render-template-with-plist "login" + (clip:process-to-string + (load-template "login") :title "Asteroid Radio - Login" :error-message "" :display-error "display: none;")))) diff --git a/template/login.ctml b/template/login.ctml index 4eb9d49..3dadc34 100644 --- a/template/login.ctml +++ b/template/login.ctml @@ -21,8 +21,8 @@

System Access

-