Author: hhubner Date: 2007-04-15 01:44:31 -0400 (Sun, 15 Apr 2007) New Revision: 2148
Modified: trunk/bknr/src/web/handlers.lisp Log: Fix long-outstanding bug that prevented error messages from being properly displayed to the user.
Modified: trunk/bknr/src/web/handlers.lisp =================================================================== --- trunk/bknr/src/web/handlers.lisp 2007-04-14 16:15:34 UTC (rev 2147) +++ trunk/bknr/src/web/handlers.lisp 2007-04-15 05:44:31 UTC (rev 2148) @@ -232,7 +232,10 @@ (if (member :notrap net.aserve::*debug-current* :test #'eq) (handle handler req) (handler-bind ((error #'(lambda (e) - (website-show-error-page *website* e) + (with-bknr-http-response (*req* :content-type "text/html; charset=UTF-8" + :response *response-internal-server-error*) + (with-http-body (*req* *ent*) + (website-show-error-page *website* e))) (do-error-log-request req e) (error e)))) (handle handler req))))