# Please see issue #6 (#6).

silvioprog · Jan 1, 2013 · c8f0ceb · c8f0ceb
1 parent 65b0d61
commit c8f0ceb
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/brokers/brookfclcgibroker.pas b/brokers/brookfclcgibroker.pas
@@ -316,7 +316,9 @@ procedure TBrookCGIHandler.ShowRequestException(R: TResponse; E: Exception);
     R.SendContent;
     Exit;
   end;
-  if R.ContentType = BROOK_HTTP_CONTENT_TYPE_TEXT_HTML then
+  if ((R.ContentType = BROOK_HTTP_CONTENT_TYPE_TEXT_HTML) or
+    (BrookSettings.ContentType = BROOK_HTTP_CONTENT_TYPE_TEXT_HTML)) and
+    (not R.HeadersSent) then
   begin
     VStr := TStringList.Create;
     try

diff --git a/brokers/brookfclfcgibroker.pas b/brokers/brookfclfcgibroker.pas
@@ -302,7 +302,9 @@ procedure TBrookFCGIHandler.ShowRequestException(R: TResponse; E: Exception);
     R.SendContent;
     Exit;
   end;
-  if R.ContentType = BROOK_HTTP_CONTENT_TYPE_TEXT_HTML then
+  if ((R.ContentType = BROOK_HTTP_CONTENT_TYPE_TEXT_HTML) or
+    (BrookSettings.ContentType = BROOK_HTTP_CONTENT_TYPE_TEXT_HTML)) and
+    (not R.HeadersSent) then
   begin
     VStr := TStringList.Create;
     try