[bknr-cvs] r2148 - trunk/bknr/src/web

[bknr at bknr.net]

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