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:
parent
4b8d7dd19b
commit
c86a73f894
@ -1350,12 +1350,12 @@ raw_to_item(NodeId, {ItemId, SJID, Creation, Modification, XML}) ->
|
|||||||
modification={ToTime(Modification), JID},
|
modification={ToTime(Modification), JID},
|
||||||
payload = Payload}.
|
payload = Payload}.
|
||||||
|
|
||||||
l2i(L) when list(L) -> list_to_integer(L);
|
l2i(L) when is_list(L) -> list_to_integer(L);
|
||||||
l2i(I) when integer(I) -> I.
|
l2i(I) when is_integer(I) -> I.
|
||||||
i2l(I) when integer(I) -> integer_to_list(I);
|
i2l(I) when is_integer(I) -> integer_to_list(I);
|
||||||
i2l(L) when list(L) -> L.
|
i2l(L) when is_list(L) -> L.
|
||||||
i2l(I, N) when integer(I) -> i2l(i2l(I), N);
|
i2l(I, N) when is_integer(I) -> i2l(i2l(I), N);
|
||||||
i2l(L, N) when list(L) ->
|
i2l(L, N) when is_list(L) ->
|
||||||
case length(L) of
|
case length(L) of
|
||||||
N -> L;
|
N -> L;
|
||||||
C when C > N -> L;
|
C when C > N -> L;
|
||||||
|
Loading…
Reference in New Issue
Block a user