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},
|
||||
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;
|
||||
|
Loading…
Reference in New Issue
Block a user