Add html body

2013-08-27 16:44:58 +02:00
parent c29a6ad195
commit 0c0fb5c9c8
1 changed files with 3 additions and 1 deletions
--- a/library/server/wsf_html/webcontrol/wsf_page_control.e
+++ b/library/server/wsf_html/webcontrol/wsf_page_control.e
@@ -61,8 +61,10 @@ feature
 			data: STRING
 		do
 			data := control.render
-			response.put_header ({HTTP_STATUS_CODE}.ok, <<["Content-Type", "text/plain"], ["Content-Length", data.count.out]>>)
+			response.put_header ({HTTP_STATUS_CODE}.ok, <<["Content-Type", "text/html"], ["Content-Length", data.count.out]>>)
+			response.put_string ("<html><head></head><body>")
 			response.put_string (data)
+			response.put_string ("</body></html>")
 		end

 	get_parameter (key: STRING): detachable STRING