25
1
mirror of https://github.com/processone/ejabberd.git synced 2024-12-20 17:27:00 +01:00

Replace TYPE/1 with is_TYPE/1 (EJAB-922)

SVN Revision: 2596
This commit is contained in:
Badlop 2009-09-10 22:38:37 +00:00
parent 4b8d7dd19b
commit c86a73f894

View File

@ -1350,12 +1350,12 @@ raw_to_item(NodeId, {ItemId, SJID, Creation, Modification, XML}) ->
modification={ToTime(Modification), JID},
payload = Payload}.
l2i(L) when list(L) -> list_to_integer(L);
l2i(I) when integer(I) -> I.
i2l(I) when integer(I) -> integer_to_list(I);
i2l(L) when list(L) -> L.
i2l(I, N) when integer(I) -> i2l(i2l(I), N);
i2l(L, N) when list(L) ->
l2i(L) when is_list(L) -> list_to_integer(L);
l2i(I) when is_integer(I) -> I.
i2l(I) when is_integer(I) -> integer_to_list(I);
i2l(L) when is_list(L) -> L.
i2l(I, N) when is_integer(I) -> i2l(i2l(I), N);
i2l(L, N) when is_list(L) ->
case length(L) of
N -> L;
C when C > N -> L;