mirror of
https://github.com/processone/ejabberd.git
synced 2024-12-20 17:27:00 +01:00
* src/web/ejabberd_web.erl (make_xhtml/2): Allow to include
elements in the HTTP header SVN Revision: 1344
This commit is contained in:
parent
110a4b4518
commit
1e345eb0fc
@ -1,5 +1,8 @@
|
||||
2008-05-31 Badlop <badlop@process-one.net>
|
||||
|
||||
* src/web/ejabberd_web.erl (make_xhtml/2): Allow to include
|
||||
elements in the HTTP header
|
||||
|
||||
* src/odbc/odbc_queries.erl (del_user_return_password): Return
|
||||
password (thanks to Oleg Palij)
|
||||
|
||||
|
@ -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}
|
||||
]}.
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user