From 1e345eb0fcd362ea1a680e353e613e6ffa7b3dae Mon Sep 17 00:00:00 2001 From: Badlop Date: Sat, 31 May 2008 18:21:43 +0000 Subject: * src/web/ejabberd_web.erl (make_xhtml/2): Allow to include elements in the HTTP header SVN Revision: 1344 --- src/web/ejabberd_web.erl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/web/ejabberd_web.erl b/src/web/ejabberd_web.erl index 852fdf4d7..56f65a0b9 100644 --- a/src/web/ejabberd_web.erl +++ b/src/web/ejabberd_web.erl @@ -28,7 +28,7 @@ -author('alexey@process-one.net'). %% External exports --export([make_xhtml/1, +-export([make_xhtml/1, make_xhtml/2, error/1]). -include("ejabberd.hrl"). @@ -42,12 +42,16 @@ %% that third parties can use ejabberd_web as an "utility" library. make_xhtml(Els) -> + make_xhtml([], Els). + +make_xhtml(HeadEls, Els) -> {xmlelement, "html", [{"xmlns", "http://www.w3.org/1999/xhtml"}, {"xml:lang", "en"}, {"lang", "en"}], [{xmlelement, "head", [], [{xmlelement, "meta", [{"http-equiv", "Content-Type"}, - {"content", "text/html; charset=utf-8"}], []}]}, + {"content", "text/html; charset=utf-8"}], []} + | HeadEls]}, {xmlelement, "body", [], Els} ]}. -- cgit v1.2.3